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

0 then m ['UV2  
Response.Write 错误 ： & err.description & Y Dq5%N`  
response.end jV#{8 8  
End if e4j:IK>  
End Sub edx-R-Dc-1  
Sub EndDB() w0q.cj@nd  
Set objOraDB = Nothing `XE8[XY  
Set objOraSession = Nothing v#8{pr  
End Sub z~# .Ey  
Function getTableList(str) )C|[j@MD  
Dim strSql,strTmp dpxP  
Dim objRs xi %u)p  
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 T;-&3  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 4l<%Q2  
While Not objRs.Eof jhr:QS/9  
strA = objRs(uname) & . & objRs(tname)  ")q  
g+bc4eU  
If str=strA then -iLp3m<ai  
strTmp = strTmp & & strA & >ZTRwy`_(  
Else 2/
<VoK0b  
strTmp = strTmp & & strA & yM`J+tq  
End if z'z_6]5  
objRs.MoveNext ,qz$6oxh\  
Wend (J I4ibP  
Set objRs = Nothing :7
0[zo7n'  
getTableList = strTmp LZG?M|(6D  
End Function [K1RP.  
% > 3x@t7B  
`m")v0n3  
Tb!Fv W  
,wYA_1$$H  
+x(~!33[G  
All Tables : fw3P?_4;*  
:3N&&
]
  
B?gFFU61  
C{<H)?]*BF  
\8<ZPqt9  
() k[Ue}L|  
oniVC',  
"p@EY|Zv%I  
"tF#]iQQ u  
=pk5'hBAi  
8\VP)<<  
  then 7.y35y  
strSql = Select * from & tblname /$'|`jKsB  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) e2_p7   
Response.Write MXa(Oi2Gg  
for i=0 to rs.Fields.count-1 ss0`9:z  
  Response.Write & rs.fields(i).name & \=&F\EV  
next |>zYUT[V  
Response.Write %M5{-pJ|C  
While Not Rs.Eof HT%'dZ1  
  Response.Write w.o>G2u  
  for i=0 to rs.fields.count -1 (jp!q,)  
        Response.Write & Rs.Fields(i).Value &   }bZb8hiG  
  next s1>d)2lX  
  Response.Write       [[7=rn}@<  
  Rs.MoveNext -T=sY/O  
Wend 1smKU9B2)  
Set Rs = Nothing +mRc8G  
end if  SH6+'7  
  % > /T<))@$  
^xX1G_{  
Am@:<J  
2DNB?,uP,'  
g#%Egb1  
转自： ASP教程采集