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

0 then j/=iMq  
Response.Write 错误 ： & err.description & **9x?s  
response.end Zl 9aDg  
End if pl@O N"=[  
End Sub ,B?~-2cCz  
Sub EndDB() OsBo+fwT  
Set objOraDB = Nothing <,o>Wx*1C  
Set objOraSession = Nothing W} WI; cI  
End Sub A.<H>=Z#O  
Function getTableList(str) H]Hv;fcC  
Dim strSql,strTmp fjvN$NgVs  
Dim objRs \(226^|j  
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 4BnSqwa_  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) `E+Jnu,jC  
While Not objRs.Eof QaUm1i#
 
strA = objRs(uname) & . & objRs(tname) ? WJ> p  
^`un'5Vk  
If str=strA then S$
KFf=0  
strTmp = strTmp & & strA & >U F  
Else ~wg:!VWA)  
strTmp = strTmp & & strA & QXCH(5as  
End if 720PjQ  
objRs.MoveNext Qt_dEl  
Wend coYij  
Set objRs = Nothing :0Z^uuk`gq  
getTableList = strTmp ?X@fKAj  
End Function (c0A.L)  
% > ;iDPn2?6?x  
N0hE4t  
dJ$"l|$$  
fXrXV~'8  
93t9^9  
All Tables : ^u3V E  
f0Bto/,>~  
LU!dN"[k  
U(~+o  
&-(463  
() 8r3A~  
3?Y2L  
Ol4+_n8xj  
 >S$Z  
ss;R8:5  
xsWur(>]  
  then \*=7#Vd  
strSql = Select * from & tblname 'SQG>F Uy  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ,{\Bze1fn  
Response.Write t_mIOm)S%  
for i=0 to rs.Fields.count-1 y:v,j42%  
  Response.Write & rs.fields(i).name &  XL7h}  
next lu Q~YjH  
Response.Write Mq';S^  
While Not Rs.Eof cuOvN"nuNj  
  Response.Write %Uz(Vd
#K  
  for i=0 to rs.fields.count -1 =8U&[F  
        Response.Write & Rs.Fields(i).Value &   R<B7K?SxV~  
  next >X*Mio8P#  
  Response.Write       GhPK-+"X  
  Rs.MoveNext ,3nN[
)dk  
Wend `/Y{ l  
Set Rs = Nothing yf&7P;A  
end if <&)v~-&O  
  % > @&[T _l  
Y@PI {;!  
/x3/Ubmz~x  
{Zp\^/  
asJ)4ema  
转自： ASP教程采集