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

0 then k`,>52  
Response.Write 错误 ： & err.description & WNV}@  
response.end &o)eRcwH`  
End if .u9,w  
End Sub "[\TL#/  
Sub EndDB() wEb10t,  
Set objOraDB = Nothing +zsB~Vz  
Set objOraSession = Nothing MvlqxJ$  
End Sub :.fm LL  
Function getTableList(str) ~fF;GtP  
Dim strSql,strTmp |VML.u:N  
Dim objRs Wc{/K6]f  
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 kt hy9<!$  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) V3>JZH`  
While Not objRs.Eof 7 +kU8}  
strA = objRs(uname) & . & objRs(tname) C.9l${QU  
2GBE=T  
If str=strA then rIWQD%Afm  
strTmp = strTmp & & strA & xE
qr3(  
Else  F]KAnEf  
strTmp = strTmp & & strA & qgw)SuwW  
End if 2umgF  
objRs.MoveNext I=9sTR)  
Wend Y`!Zk$8  
Set objRs = Nothing }:hN}*H  
getTableList = strTmp ps3jw*QZ{5  
End Function E4N{;'  
% > 5Z*6,P0  
}w/6"MJ[n  
Fhk`qh'i  
v<tr1cUT  
Z+G/==%3#,  
All Tables : f#b;s<G  
*t,1(Gw|7q  
C0%yGLh&  
Ipyr+7/zJ  
cCbZ*  
() d\v1R-V  
[e;c)XS[  
?I332,,q  
0 pPSg9  
j NkobJ1  
Y2Y)|<FH  
  then oA]rwaUX  
strSql = Select * from & tblname 6#(==}Sm+  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) i-gN<8\
v  
Response.Write ]YWz;
Z  
for i=0 to rs.Fields.count-1 ?n(OH~@$i  
  Response.Write & rs.fields(i).name & )4e?-?bK!  
next Lvm"!!  
Response.Write 2$s2u;  
While Not Rs.Eof Gqs)E"h  
  Response.Write +Fa!<txn  
  for i=0 to rs.fields.count -1 rc`}QoB)R  
        Response.Write & Rs.Fields(i).Value &   szC<ht?z  
  next omzG/)M:O  
  Response.Write       6&`hf >  
  Rs.MoveNext lgQ
"K(zY  
Wend @jY=b<  
Set Rs = Nothing !8*lU2  
end if Wmc@: (n  
  % > R,dbq4xkl  
@A'@%Zv-  
b|oT!s  
?/|KM8  
dJ>~  
转自： ASP教程采集