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

0 then o|FRG{TJ  
Response.Write 错误 ： & err.description & ,#@B3~giC  
response.end : z*OAl"  
End if t
>:2F,0K9  
End Sub c4E=qgP  
Sub EndDB() cD{I*t$  
Set objOraDB = Nothing SRuNt3wW6  
Set objOraSession = Nothing  BR;f!  
End Sub maW,YOyRN  
Function getTableList(str)
Nz %{T  
Dim strSql,strTmp </(bwc~2  
Dim objRs WB<_AIt+  
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 ?]+{2&&$  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) v0&E!4q*'  
While Not objRs.Eof AX!YB'm-  
strA = objRs(uname) & . & objRs(tname) Uax[Zh[Cg  
~vgm;O  
If str=strA then zBg>I=hiG  
strTmp = strTmp & & strA & \q(DlqTqs  
Else H}5zKv.T  
strTmp = strTmp & & strA & k\rzvo=U  
End if /X>Fn9mM  
objRs.MoveNext Pi7vuOJr8  
Wend pVbgjJI  
Set objRs = Nothing ?UuJk  
getTableList = strTmp cD5c&+,&I  
End Function (lBgW
z  
% > ASME~]]?  
c~bi ~ f  
7/%{7q3G>  
oju)8
H1o#  
X;25G  
All Tables : 4 qM
O@E_  
IMjz#|c  
uSh!A  
%5.aC|^}  
,5J-
C!C  
() rjqQWfShY  
p
 w(eWP  
r6k0=6i  
HF>Gf2-C  
S3EM6`q'  
F=)9z+l#  
  then Ln-/ 9'^  
strSql = Select * from & tblname ~H"Q5Hr  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) %6rMS}  
Response.Write ,[fn? s r  
for i=0 to rs.Fields.count-1 Nb;xJSlox  
  Response.Write & rs.fields(i).name & [gI;;GW  
next ClZ:#uMbN  
Response.Write owHV&(Go(B  
While Not Rs.Eof 5=]q+&y\H  
  Response.Write r#ES|  
  for i=0 to rs.fields.count -1 k=">2!O/  
        Response.Write & Rs.Fields(i).Value &   6M^P]l  
  next baJ(Iy$XT  
  Response.Write       ".ay
pD)W  
  Rs.MoveNext tg%s#lLeH  
Wend >;a_
i>[  
Set Rs = Nothing a![x^@nF  
end if =xzDpn>f  
  % > d67Q@')00  
]XX9.Xh=-  
oj\av~cI  
ti6\~SY  
v[4A_WjT  
转自： ASP教程采集