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

0 then A)6xEeyR  
Response.Write 错误 ： & err.description & ]S!:p>
R  
response.end 
*|WS,  
End if ?5'EP|<  
End Sub 0?c2=Y  
Sub EndDB() ZNWo:N8;  
Set objOraDB = Nothing } )DE  
Set objOraSession = Nothing C:z+8wt  
End Sub b)ytm=7ha  
Function getTableList(str) pUbf]3 t  
Dim strSql,strTmp _mSDz=!Z3  
Dim objRs 9~3;upWu!  
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 0Va+l)F  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) HK}br!?  
While Not objRs.Eof uBpnfIe  
strA = objRs(uname) & . & objRs(tname) =Q+i(UGHi  
|T`ZK?B+u  
If str=strA then M9[52D!{  
strTmp = strTmp & & strA & G-7!|&  
Else arVu`pD*n  
strTmp = strTmp & & strA & 9mA6nmp  
End if Nk JOD3>U  
objRs.MoveNext FR*CiaD1  
Wend 2fqg,_  
Set objRs = Nothing srS2v\1:  
getTableList = strTmp GgT 5'e;N  
End Function 0FN;^hP5|  
% > _PPZ!r(  
Y5mQY5u|  
I1f4u6\*X  
E5;6ks)  
gm^j8B  
All Tables : s+m3&(X  
 lL\%eQ  
1>yh`Bp\=  
8'sT zB]  
,|}}Ml
 
() ^uiQZ%;  
og[cwa_  
<6.aSOS  
SAVA6 64  
\=1$$EDS9  
cy-o@U"s8  
  then H^3f!\MC;o  
strSql = Select * from & tblname %~e+H|  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) nmo<t]  
Response.Write ?<
;9=l\Q
 
for i=0 to rs.Fields.count-1 J#'8]p3E  
  Response.Write & rs.fields(i).name & G+~f  
next WrHY'  
Response.Write ikd1KF+I  
While Not Rs.Eof w!%"b03q  
  Response.Write ?W 6 :$  
  for i=0 to rs.fields.count -1 (-D^_*f  
        Response.Write & Rs.Fields(i).Value &   u<['9U  
  next Te6cw+6  
  Response.Write       \Ota~A  
  Rs.MoveNext H/
2dVUU  
Wend $2E&~W %  
Set Rs = Nothing !AXt6z cZ  
end if n\i~H  
  % > ^qY?x7mx1  
`Sx1?@8(  
oh
0*bh  
g-~]^$  
OQ&'3hv{  
转自： ASP教程采集