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

0 then 4V+bE$Wu  
Response.Write 错误 ： & err.description & M(-)\~9T  
response.end fUT[tkb/!  
End if - x  
End Sub ai!u+L  
Sub EndDB() Blpk n1  
Set objOraDB = Nothing qmrT dG  
Set objOraSession = Nothing SI7rTJ]/  
End Sub !=[Y yh  
Function getTableList(str) L:i&OCU2k  
Dim strSql,strTmp \]X.f&u  
Dim objRs [M|^e;tWK  
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 3jx%]S^z|  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) (,|,j(=]  
While Not objRs.Eof MxE]EJZ  
strA = objRs(uname) & . & objRs(tname) UK=ELvt]  
RT[p!xL  
If str=strA then j\y;~ V  
strTmp = strTmp & & strA & 1Bytu >2  
Else !cW rB9  
strTmp = strTmp & & strA & :qzg?\(  
End if $WAwMS,  
objRs.MoveNext O
a[  
Wend CoN[Yf3\  
Set objRs = Nothing FYAEM!dyy  
getTableList = strTmp (J:+'u  
End Function 8lyIL^
 
% > c{q+h V=  
M8},RR@{  

xT*'p&ap  
At7!Pas#@g  
~D52b1f  
All Tables : EC+t-:a]  
g6M>S1oOO  
<8r"QJY/  
{##G.n\~  
PRhC1#  
() ]7HR U6$  
v\xl?F  
]ch=@IV  
"x,lL  
Yh<F-WOo2  
[$y(>]~.  
  then 6 @f>  
strSql = Select * from & tblname C5~#lNC  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) *xnZTj:  
Response.Write wE .H:q4&  
for i=0 to rs.Fields.count-1 *|rdR2R!  
  Response.Write & rs.fields(i).name & |Ajd$+3  
next [4Q;(67  
Response.Write I9?\Jbqg  
While Not Rs.Eof (5T>`7g8  
  Response.Write bT:u|/I  
  for i=0 to rs.fields.count -1 TmgC {_  
        Response.Write & Rs.Fields(i).Value &   >X~B1D,SV7  
  next P\"kr?jZP  
  Response.Write       4D65VgVDM  
  Rs.MoveNext d`sZ"8}j  
Wend prJd'  
Set Rs = Nothing <\229  
end if +d, ~h_7!  
  % > jcCAXk055  
Ez1eGPVr  
GQ(Y#HSq  
8h] TI_  
_c>iux;  
转自： ASP教程采集