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

0 then *^aEUp6&  
Response.Write 错误 ： & err.description & w.X MyHj  
response.end (w[#h9j  
End if Aqy y\G;  
End Sub yzyBr1s  
Sub EndDB() RD6n1Wb(@  
Set objOraDB = Nothing N> 7sG(!'"  
Set objOraSession = Nothing A#7/,1h\  
End Sub vbBNXy/  
Function getTableList(str) ahICx{hK  
Dim strSql,strTmp ^#( B4l!  
Dim objRs L!;"73,&(8  
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 r+:]lO  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 05>mRqVL  
While Not objRs.Eof YN]xI  
strA = objRs(uname) & . & objRs(tname) f4 k  
e'I/}J  
If str=strA then [J!jp&o  
strTmp = strTmp & & strA & ~F"<Nq  
Else a_Sp}s<J  
strTmp = strTmp & & strA & FP=up#zl  
End if U_Jchi,!  
objRs.MoveNext Sy@)Q[A  
Wend Jn7T5$p
J  
Set objRs = Nothing #B2a?   
getTableList = strTmp IN8G4\r  
End Function lQl!TW"aO  
% > )2sE9G,  
Yyx
sj9  
d4~;!#<  
YY zUg  
\+)aYP2Hu  
All Tables : "_^vQ1M]Z  
_^/k  
whi#\>i  
*O|_)G  
r1axC%  
() tgyW:<iv  
='vD4}"j  
Ko|m<;LX  
 \OJam<hZ  
.} O@<t  
Kpg?' !I  
  then ty8>(N(~  
strSql = Select * from & tblname : E`78  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 38GkV.e}$  
Response.Write m]+~F_/  
for i=0 to rs.Fields.count-1 J Bgq2  
  Response.Write & rs.fields(i).name & 
["fUSQ  
next tVv/G~(  
Response.Write G! Y l0Zr  
While Not Rs.Eof ,&~-Sq)~  
  Response.Write ,<=gPs;x  
  for i=0 to rs.fields.count -1 )2lB  
        Response.Write & Rs.Fields(i).Value &   $l $p|  
  next Qz"+M+~%&  
  Response.Write       3D-0 N0o  
  Rs.MoveNext ^sKdN-{  
Wend (_%l[:o6  
Set Rs = Nothing `# U<'$  
end if "XQ3mi`y  
  % > KpBOmXE  
5e3p9K`5  
`w&?SXFO8  
z:a7)z  
]]o?!NX
 
转自： ASP教程采集