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

0 then jS| 9jg:  
Response.Write 错误 ： & err.description & S;I}:F#5  
response.end <e@+w6Kp'7  
End if QL`Hb p  
End Sub qjmlwVw  
Sub EndDB() *VgiJ  
Set objOraDB = Nothing C0%yGLh&  
Set objOraSession = Nothing SK;c D>)  
End Sub o==:e  
Function getTableList(str) p5\B0G<m  
Dim strSql,strTmp )lrmP(C*.a  
Dim objRs wOs t).  
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 I7e.pm  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) .FpeVjR''  
While Not objRs.Eof ?I332,,q  
strA = objRs(uname) & . & objRs(tname) T43Jgk,  
6_kv~`"tZ  
If str=strA then S<UWv@`U"  
strTmp = strTmp & & strA & -|_MC^)  
Else {>n\B~*,"C  
strTmp = strTmp & & strA & b]k9c1x  
End if M.?[Xpa  
objRs.MoveNext B6xM#)  
Wend oZ,_G,b^  
Set objRs = Nothing sA!
$}W  
getTableList = strTmp 2c1L[]h'
 
End Function fm1yZX?`  
% > u+5MrS[  
OV,t|  
1paLxR5  
b.|k j  
Lvm"!!  
All Tables : xSy`VuSl  
P:&X1MC  
= 4 wf  
?Es(pwJB  
SZ
(]su:  
() (]N- HN]v  
L(
+
I  
U;#9^<^  
omzG/)M:O  
K26`wt  
Zi=/w  
  then y$[:Kh,  
strSql = Select * from & tblname ;9$71E  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) HvzXAd  
Response.Write h'
ik19  
for i=0 to rs.Fields.count-1 v8f1o$R  
  Response.Write & rs.fields(i).name & _=-B%m  
next Cd2A&RB  
Response.Write -+{<a!N
b  
While Not Rs.Eof U
'k 0;  
  Response.Write fs\A(]`$  
  for i=0 to rs.fields.count -1 M`)/^S9  
        Response.Write & Rs.Fields(i).Value &   a]nK!;>$  
  next 1Y'NG<d_  
  Response.Write       H5>
?{(m  
  Rs.MoveNext a&RH_LjM  
Wend )9i$ 1"a(  
Set Rs = Nothing MUn(ZnQy|  
end if |ya.c\}q  
  % > ohna1a^  
W`v$-o-  
@8*lqV2  
#+#^cqjZ  
AF\Jh+ynT!  
转自： ASP教程采集