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

0 then Qpj[]c5  
Response.Write 错误 ： & err.description & T LF'7ufq  
response.end M*C1QQf\N  
End if MmePhHf  
End Sub a.RYRq4o  
Sub EndDB() &
49Wfc
tT  
Set objOraDB = Nothing $DtUTh3)  
Set objOraSession = Nothing .p?SPR  
End Sub qQ6@43TC  
Function getTableList(str) -yTIv*y  
Dim strSql,strTmp ,oPxt  
Dim objRs ledr[)  
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 |`s:&<W+kp  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) N R4\TU  
While Not objRs.Eof Aon.Y Z  
strA = objRs(uname) & . & objRs(tname) CS5[E-%}T=  
-WR<tkK  
If str=strA then 2;J\Z=7  
strTmp = strTmp & & strA & 6V}xgfB  
Else EJQT\c  
strTmp = strTmp & & strA & SJlE!MK  
End if +_u~Np  
objRs.MoveNext ^4'!B +}F  
Wend Fs(S!;  
Set objRs = Nothing ~*UY[!+4^=  
getTableList = strTmp 7,8TMd1`M  
End Function 8?x:PkK  
% > pYu6[  
/L5:/Z  
Y>ATL  
3-)}.8F  

uPxjW"M+  
All Tables : g5u4|+70  
LafBf6wds  
12_7UWZ"  
8G9( )UF.  
%+<1X?;,Fq  
() #};Zgixo$  
& 9 c^9<F  
065=I+Vo  
0PsQ 1[1  
DyA/!%g  
]mUt[Yy:z  
  then fny6`_O  
strSql = Select * from & tblname M)AvcZNs  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) h@\HPYi#.  
Response.Write
Y(2Z<d  
for i=0 to rs.Fields.count-1 Jf\`?g3#  
  Response.Write & rs.fields(i).name & (0.JoeA`y  
next R
*XZPzg%  
Response.Write yF%e)6  
While Not Rs.Eof Q<ia  
  Response.Write E*fa&G~s )  
  for i=0 to rs.fields.count -1 Kp1 F"!  
        Response.Write & Rs.Fields(i).Value &   q^n LC6q  
  next *K@O3n   
  Response.Write       Y6v#0pT  
  Rs.MoveNext \Sv|yQUT  
Wend %y*'bS  
Set Rs = Nothing t)g%9 k^  
end if `PvS+>q  
  % >  6pfkv2.}  
&GvSgdttv  
~l{Qz0&
  
W}}ZP];  
{fX~%%c"  
转自： ASP教程采集