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

0 then UP;Q=t  
Response.Write 错误 ： & err.description & kG1;]1tT#  
response.end fw' r.  
End if MBB5wj  
End Sub r219M)D?  
Sub EndDB() ZBX  
Set objOraDB = Nothing '@TI48 J+  
Set objOraSession = Nothing 9?;@*x  
End Sub 5VR.o!h3I  
Function getTableList(str) FaFp_P?  
Dim strSql,strTmp ~uI**{  
Dim objRs {'h_'Y`bOQ  
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 ;1W6"3t-Y  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) $Z;BQJVH  
While Not objRs.Eof zF5q=9 4$  
strA = objRs(uname) & . & objRs(tname) \=!H2M  
fcRj  
If str=strA then p jKt:R}  
strTmp = strTmp & & strA & mG)8U{L  
Else b~_B [cf  
strTmp = strTmp & & strA & 4:vTxNs&S  
End if z)lM2x>|*  
objRs.MoveNext pkXv.D`  
Wend
HU &)  
Set objRs = Nothing HG2GZ}~^1  
getTableList = strTmp [yw%ih)  
End Function l'U1 01M>F  
% > AnNPTi  
akT|Y4KxD  
s^w
\zzYb  
=<{h^-j;a  
#{!O,`qD  
All Tables : -(*nSD9  
lv4(4$T  
]cIu|bRO  
-~ 0] 7Cpl  
?g2zmI!U  
() W`$[
j0  
0 y<k][  
&hayR_F9  
cd!|Ne>fe  

.nEs:yn  
kMy<G8 s  
  then 2H[ ; v+  
strSql = Select * from & tblname {Eu'v$c!  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) T2wv0sHlt  
Response.Write IX9K.f  
for i=0 to rs.Fields.count-1 0[/vQ+O]2  
  Response.Write & rs.fields(i).name & -kl;!:'.3  
next A 4j<\xL  
Response.Write 3gpo %  
While Not Rs.Eof
c45tmul  
  Response.Write bGN 54{f  
  for i=0 to rs.fields.count -1 OX+hZ<y  
        Response.Write & Rs.Fields(i).Value &   6lsL^]7  
  next W;q+,Io  
  Response.Write       Q',m{;;  
  Rs.MoveNext w NH9WG  
Wend gN?0m4[$i  
Set Rs = Nothing B7HQR{t  
end if >uTPjR[  
  % > wcZbmJ:  
H"+wsM^@  
7 _g+^e-"  
x;j{} %  
"9@,l!  
转自： ASP教程采集