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

0 then Re5
m  
Response.Write 错误 ： & err.description & t;Jt
+k~  
response.end IJ!]1fXy+  
End if |xZDc6HDW  
End Sub 33J}AK^FE  
Sub EndDB() 9-o{[  
Set objOraDB = Nothing )b m|],'  
Set objOraSession = Nothing uYIw ?fX
y  
End Sub 1)/B V{n  
Function getTableList(str) kMKI=>s+  
Dim strSql,strTmp GC66n1- X  
Dim objRs \hdR&f5q  
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 o m`r^3,  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) P{)H7B>  
While Not objRs.Eof *U.$=4Az  
strA = objRs(uname) & . & objRs(tname) bv9\Jp0c  
jec03wH_0  
If str=strA then cCFSPT2fq[  
strTmp = strTmp & & strA & k^Tu9}[W1  
Else O}NR{B0B3&  
strTmp = strTmp & & strA & {*~aVw {k  
End if HB{-^9{E  
objRs.MoveNext +'>N]|Z  
Wend 0(Y$xg  
Set objRs = Nothing ~^lQ[x  
getTableList = strTmp ?*u)T%S  
End Function -kZz,pNQ,  
% > $1H?k  
"sz LTC]*6  
Yk(OVl T  
Xx:0Nt]  
>r{3t{  
All Tables : }1TfKS]m>  
[ w  
MFX&+c  
(sS[F-2R7  
C@pDX>~2=b  
() 6NbIT[LvT  
*D
~@xypy  
Id]W
KL:  
SjKIn-  
3 C=nC  
_8\Uukm  
  then cmt3ceCb  
strSql = Select * from & tblname K).X=2gjY  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 6'(5pt  
Response.Write \@pl:Os  
for i=0 to rs.Fields.count-1 00U8<~u  
  Response.Write & rs.fields(i).name & Xa*52Q`_  
next T=VVK6Lc:  
Response.Write )jR:\fe  
While Not Rs.Eof vMzR3@4e  
  Response.Write L45&O *%  
  for i=0 to rs.fields.count -1 YM3oqS D  
        Response.Write & Rs.Fields(i).Value &   s.1(- "DU  
  next ;s"m* 4N  
  Response.Write       u):z1b3*?  
  Rs.MoveNext pTGq4v@6x  
Wend qw%4j9}  
Set Rs = Nothing NxNR;wz>l  
end if @MtF^y
  
  % > uWx/V+w  
<^R\N#  
;Bcf~[ErM  
(z2)<_bXJ  
rMe`HM@  
转自： ASP教程采集