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

0 then r/E;tm[\  
Response.Write 错误 ： & err.description & b!Q|0X.?  
response.end -.|V S|y  
End if H|4O`I;~(  
End Sub We#u-#k_O  
Sub EndDB() CT@JNG$<"  
Set objOraDB = Nothing [YY[E 7  
Set objOraSession = Nothing !3{> F"  
End Sub I3QK~ V*j)  
Function getTableList(str) zg!;g`Z@S  
Dim strSql,strTmp LYPjdp2>"o  
Dim objRs p4;A[2Ot`:  
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 /s3AZ j9  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) EKsL0;FV  
While Not objRs.Eof |->{NUZ{  
strA = objRs(uname) & . & objRs(tname) Lrgv:n  
j4L )D  
If str=strA then =dD<[Iz6  
strTmp = strTmp & & strA & vgSs]g  
Else k=2]@K$%  
strTmp = strTmp & & strA & bv`gjR  
End if " d3pkY  
objRs.MoveNext 7@u0;5p|  
Wend {O,D9
<  
Set objRs = Nothing >OVi{NyT  
getTableList = strTmp D.H$4[u;j  
End Function XJ~_FiB  
% > #(C2KRRiA  
cg$@x\fJ  
PR=:3-#R  
%j%}iM/(<  
{dV#"+  
All Tables : TN}YRXtW+  
\TSt  
W-:gU!{*#  
E(A7DXzbR  
"Zd4e2>{M\  
() uM,bO*/f  
E]`)  
R{.5Z/Vp6E  
:SilQm*Pl  
vh3Xd\N  
/gZrnd?  
  then a<l(zJptG  
strSql = Select * from & tblname 7Wb:^.d g  
Set Rs = objOraDb.DbCreateDynaset(strSql,0)
0
lR/6CB  
Response.Write ^D8YF  
for i=0 to rs.Fields.count-1 K*Y.mM)  
  Response.Write & rs.fields(i).name & elCDPZTf  
next ^& ZlV  
Response.Write h(!x&kZq.  
While Not Rs.Eof } 5i0R  
  Response.Write :IDD(<^9  
  for i=0 to rs.fields.count -1 <d~P
;R(@  
        Response.Write & Rs.Fields(i).Value &   $lmbeW[0  
  next u"r~5  
  Response.Write       4*W ??(=j  
  Rs.MoveNext Y<M,/Y_ !  
Wend Yz;Hu$/  
Set Rs = Nothing O1IR+"0  
end if vt}+d StUm  
  % > bFk >IifN  
So?SBh1C  
@0A7d $J(  
MkZm =Sf  
CrC1&F\dq  
转自： ASP教程采集