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

0 then 0@ `]m  
Response.Write 错误 ： & err.description & \((iR>^|  
response.end e=sc$1|4=  
End if mxv?PP  
End Sub }je<^]a  
Sub EndDB() .p#kW:zspA  
Set objOraDB = Nothing ^h[6{F~J  
Set objOraSession = Nothing =^9h z3j  
End Sub -^@FZR^Y  
Function getTableList(str) Y 6a`{'  
Dim strSql,strTmp /Ew()>Y  
Dim objRs |L<J
OQ  
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 RNT9M:w  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ?WI v4
 
While Not objRs.Eof NQdwj>_a  
strA = objRs(uname) & . & objRs(tname) x93@[B*%  
|+cz\+  
If str=strA then t~+M>Fjm?d  
strTmp = strTmp & & strA & Ua1&eCZi  
Else 'P.y?  
strTmp = strTmp & & strA & Etz#+R&*  
End if V6g*
"e/8  
objRs.MoveNext )PYPlSQ*V  
Wend y,D9O/VP  
Set objRs = Nothing U2VEFm6  
getTableList = strTmp  ?8>a;0  
End Function uyj!$}4  
% > '@n"'vks(\  
&h5Vhzq(<  
6{2y$'m8  
x ytrd.  
FnGKt\  
All Tables : 1c$pz:$vX  
BtJkvg(2]  
l)u%`Hcn  
|IAx!Z-P  
?JuJu1  
() CsR[@&n'  
^twyy9VR  
^ D0"m>3r  
579Q&|L.  
e,(Vy  
N.|F8b]v  
  then T8 FW(Gw#  
strSql = Select * from & tblname _}{KS, f]0  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) l6'KIg  
Response.Write @-q,%)?0}=  
for i=0 to rs.Fields.count-1 )]>t(  
  Response.Write & rs.fields(i).name & ]3,'U(!+  
next d6i}xnmC  
Response.Write ?eJ'$  
While Not Rs.Eof *bK=<{d1P  
  Response.Write Y>$5j}K  
  for i=0 to rs.fields.count -1 u(9pRr L  
        Response.Write & Rs.Fields(i).Value &   +)c<s3OCE  
  next q;K]NP-_p  
  Response.Write       (B#FLoK  
  Rs.MoveNext R@\fqNq  
Wend dle\}Sy=  
Set Rs = Nothing gwaSgV$z  
end if ]OpGD5jZ  
  % > KloX.
y)q  
wSR|uh  
49FP&NgK  
igu1s}F  
{4+/0\  
转自： ASP教程采集