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

0 then KhXW
5hS1  
Response.Write 错误 ： & err.description & ?|N:[.  
response.end e)cmZ8~S  
End if w`F}3zm  
End Sub t
op3o{4  
Sub EndDB() wy:.  
Set objOraDB = Nothing 2s|[!:L5  
Set objOraSession = Nothing {P1W{|  
End Sub @>X."QbE  
Function getTableList(str) &EA4`p  
Dim strSql,strTmp k3S**&i!CR  
Dim objRs pg4M
$;
ED  
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 FjkE^o>  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ZLE4XB]  
While Not objRs.Eof s49AF  
strA = objRs(uname) & . & objRs(tname) ~|l>bf  
lYQcQ*-  
If str=strA then > {fX;l  
strTmp = strTmp & & strA & r4!zA-{  
Else ,h8)5Mj/J  
strTmp = strTmp & & strA & o] )qv~o)  
End if VNXB7#ry  
objRs.MoveNext @105 @9F  
Wend CIO&VK  
Set objRs = Nothing R^%7|  
getTableList = strTmp NBUM* Z  
End Function \iu2rat^  
% > t)$>++i  
{{@3r5KGl  
cN&b$8O=%  
y$4,r4cmR|  
L.+5`&  
All Tables : K V 4>(  
r
o^Y$;G  
bG2!5m4L  
ymr-kB  
G78rpp  
() ew}C*4qH  
}1X,~y]  
A g
/z\kX  
9FJU'$FN  
h+N75  
)|Y"^K%Jm  
  then h r*KDT^!  
strSql = Select * from & tblname e:NzpzI"v  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) X
XxX;xz$  
Response.Write 9-}&znLZe  
for i=0 to rs.Fields.count-1 15Yy&9D  
  Response.Write & rs.fields(i).name & s- g[B(  
next o6B!ikz 8  
Response.Write sx*(JM}Be  
While Not Rs.Eof +de.!oY  
  Response.Write #_|b;cf  
  for i=0 to rs.fields.count -1 ,+zLFQC0@  
        Response.Write & Rs.Fields(i).Value &   tao3Xr^?  
  next s&8Q
RI.  
  Response.Write      
?z Ms;  
  Rs.MoveNext `9b D%M  
Wend <(s+  
Set Rs = Nothing s{<rc>  
end if MEq ()}7P  
  % > 0D$+WX  
6j_ A{*~Ng  
LT2mwJl  
j_p.KF'[?  
d-xKm2sH  
转自： ASP教程采集