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

0 then Tl6%z9rY@  
Response.Write 错误 ： & err.description & K\v1o  
response.end 3XjM@D  
End if hlWTsi4N  
End Sub Xkk m~sM6  
Sub EndDB() eYLeytF]Uy  
Set objOraDB = Nothing X!Xl  
Set objOraSession = Nothing ?KDI'>"-v  
End Sub R-+k>_96|  
Function getTableList(str) X!KjRP\\  
Dim strSql,strTmp sluR@[l  
Dim objRs l:5x*QSX  
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 *"2TT})  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) l_Mi'}j  
While Not objRs.Eof
.gh3"  
strA = objRs(uname) & . & objRs(tname) L}7c{6!F7  
-SnP+X!  
If str=strA then n.Iu|,?q  
strTmp = strTmp & & strA & <05\  
Else ^NKB  
strTmp = strTmp & & strA & *_ {w0U)  
End if tG+ E'OP  
objRs.MoveNext )o-rg  
Wend $yS7
u  
Set objRs = Nothing Rs_bM@  
getTableList = strTmp `VM@-;@w  
End Function 481J=8H  
% > S450
8l  
YtI2Vr/9  
_1S^A0ft  
`uo'w:Q  
G'T/I\tB  
All Tables : SO^:6GuJ  
o*& D;  
H
48`z'o  
$\h\,N$y  
zcnp?
%  
() [xXa3W  
="hh=x.5J  
R`sU5:n  
>jMq-#*4  
hY XH9:  
aVcQ  
  then \WKly  
strSql = Select * from & tblname xrd@GTaI  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) {W*_^>;K  
Response.Write H.cN(7LXm  
for i=0 to rs.Fields.count-1 xO"fg9a  
  Response.Write & rs.fields(i).name & gIa/sD2m>  
next ASME~]]?  
Response.Write c~bi ~ f  
While Not Rs.Eof 7/%{7q3G>  
  Response.Write oju)8
H1o#  
  for i=0 to rs.fields.count -1 X;25G  
        Response.Write & Rs.Fields(i).Value &   x@/ N9*  
  next h.+{cOA;n  
  Response.Write       No#1Ikw  
  Rs.MoveNext ,5J-
C!C  
Wend rjqQWfShY  
Set Rs = Nothing X+2aP'D  
end if r6k0=6i  
  % > n%GlOKC  
p(dJf&D  
*;b.x"  
z9OhY]PPF  
/3`#ldb%}  
转自： ASP教程采集