asp下用OracleInProcServer完成对Oracle的连接和操作

0 then l:Ci'=  
Response.Write 错误 ： & err.description & N Ja]UZx  
response.end 9jaYmY]~  
End if s26s:A3rh  
End Sub iv#9{T  
Sub EndDB() /J{P8=x}_:  
Set objOraDB = Nothing uHz D  
Set objOraSession = Nothing X/5tZ@  
End Sub ,X$S4>  
Function getTableList(str) yKZ~ ^  
Dim strSql,strTmp X,O&X  
Dim objRs R(pvUm&L  
strSql = Select at.table_name as tname,au.username as uname from all_tables at,all_users au Where au.username=at.owner order by au.username w'M0Rd]  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) aH"tSgi  
While Not objRs.Eof 0%FC;v0  
strA = objRs(uname) & . & objRs(tname) ?\$77k  
{!^HG+  
If str=strA then U@f3V8CPy  
strTmp = strTmp & & strA & .RJvu$U2j  
Else zRvYN  
strTmp = strTmp & & strA & =*Wl;PI'  
End if XZp(Po:H  
objRs.MoveNext ( }JX ]-  
Wend 22tY%Y9  
Set objRs = Nothing 6EX:qp^`  
getTableList = strTmp cty~dzX^  
End Function 9Od Kh\F (  
% > f=/S]o4/3  
8qS)j1
.!  
IeN!nK-  
?_<ZCH  

,iSs2&$m  
All Tables : 'kW`62AX
 
7 hnTHL  
F;q I^{m2  
C6'[Tn  
#"i}wS  
() -fUz$Df/R  
T'Jw\u>"R  
>@H:+0h-  
3:
mF!  
qViky=/-  
Y 3KCIL9
 
  then i>)Whr'e8  
strSql = Select * from & tblname d9Rj-e1x  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) HLk}E*.mC  
Response.Write &rw|fF|]  
for i=0 to rs.Fields.count-1 C:4h  
  Response.Write & rs.fields(i).name & Zls4@/\Q  
next ?r'b Z~  
Response.Write : ] Y=  
While Not Rs.Eof lZn <v'y  
  Response.Write qY14LdC}~  
  for i=0 to rs.fields.count -1 {R1jysGtD  
        Response.Write & Rs.Fields(i).Value &   Z8'uZ#=Yw  
  next o6vm(I%  
  Response.Write       Ypv"u0  
  Rs.MoveNext /-BplU*"9  
Wend |
_O; U=2  
Set Rs = Nothing i"w$D{N  
end if a |z{Bb  
  % > $: Qi9N
 
d54>nycU~N  
.P,\69g~A  
W4>8
 
.'.|s?s  
转自： ASP教程采集