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

0 then j~'a %P  
Response.Write 错误 ： & err.description & Ha}TdQ%  
response.end "s6\l~+9l  
End if &rj)Oh2  
End Sub Zdm7As]  
Sub EndDB() lV*dQwa?i  
Set objOraDB = Nothing 'H]&$AZ;@
 
Set objOraSession = Nothing #7Pnw.s3zz  
End Sub S 6|#9C&  
Function getTableList(str) :d!qZFln  
Dim strSql,strTmp y>5??q  
Dim objRs Z<Pf[C  
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 qoo+=eh!  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ~h<<-c  
While Not objRs.Eof T=kR!Gx  
strA = objRs(uname) & . & objRs(tname) ?KKu1~a_  
dpTeF`N  
If str=strA then d hp-XI
A;  
strTmp = strTmp & & strA & 9Sy|:J0  
Else e[:i`J2  
strTmp = strTmp & & strA & z+k[HE^S  
End if WcG}9)9  
objRs.MoveNext XuY#EJbZ  
Wend Ei Yj`P  
Set objRs = Nothing T- |36Os4  
getTableList = strTmp ?q%&"  
End Function [T<Z?  
% > UrP jZ:K'  
LO&/U4:  

VsrYU@V  
l, [cR?v  
z :q9~  
All Tables : 3utv  
(9phRo)>  
&6#>a"?"  
FS1> J%P  
3rUuRsXn  
() )qL
UHE=  
mk'$ |2O  
sb3k? q  
y-/,,,r  
l0&Y",vy  
GlPd)m`  
  then a#k
=! W  
strSql = Select * from & tblname )v+R+3<  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) &>T7]])  
Response.Write dYn<L/#  
for i=0 to rs.Fields.count-1 *wd@YMOP  
  Response.Write & rs.fields(i).name & xaSg'8-  
next .Z0$KQ'iy  
Response.Write a*g7uaoP  
While Not Rs.Eof T0Kjnzs  
  Response.Write naHQeX;  
  for i=0 to rs.fields.count -1 ,1!
~@dhs  
        Response.Write & Rs.Fields(i).Value &   @N%/v*  
  next dh~ cj5  
  Response.Write       B9[eLh!  
  Rs.MoveNext dHUcu@,  
Wend CU7WK}2h2C  
Set Rs = Nothing _^(}6o  
end if ,+Bp>=pvs  
  % > w9W0j  
K*]^0  
Ne=o+ $.(  
>cV^f6fH  
] C&AU[U*  
转自： ASP教程采集