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

0 then vp\PYg;x  
Response.Write 错误 ： & err.description & u<l#xud  
response.end [2GXAvXsT  
End if -yX

.Jv  
End Sub I@3Q=14k%  
Sub EndDB() -"~
L2f"?  
Set objOraDB = Nothing j~,h)C/v  
Set objOraSession = Nothing GB&Nt{  
End Sub 4R&*&GZ#  
Function getTableList(str) l `fW{lh  
Dim strSql,strTmp 8A2if9E3  
Dim objRs w1wXTt  
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 k~0#'I
9  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) =4frP*H?  
While Not objRs.Eof PHQ{-b?4t  
strA = objRs(uname) & . & objRs(tname) BN+V,W  
!Oeq G  
If str=strA then La`h$=#`  
strTmp = strTmp & & strA & wzD\8_;6N  
Else 2}^+]5  
strTmp = strTmp & & strA & 9 '2=  
End if r_4TtP&UW  
objRs.MoveNext jA4PDHf+  
Wend 2Ryp@c&r^  
Set objRs = Nothing xK$}QZ)  
getTableList = strTmp /a@ kS  
End Function Y.DwtfE  
% > +VSZhg,Np8  
wENzlXeOP  
\Os:6U=X-  
s{yJ:WncI  
:&Qb>PH[  
All Tables : 'n~fR]
h}  
sS C?io  
OI~}e,[2z  
]}BB/KQy^  
e Wc_N  
() y7CWBTH0>  
5B}3GBA  
(FM4 ^#6  
Hab!qWK`  
OZ
G0AX+=#  
66oK3%[  
  then zLh Fbyn(  
strSql = Select * from & tblname {J{1`@  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ;!'qtw"CB  
Response.Write m'd^?Qc
 
for i=0 to rs.Fields.count-1 ;xL67e%?  
  Response.Write & rs.fields(i).name & h]qT1(I  
next F vj{@B!  
Response.Write +Qt[1Xq  
While Not Rs.Eof ]x1p!TSU  
  Response.Write mRCHrw?WG  
  for i=0 to rs.fields.count -1 aIQOs  
        Response.Write & Rs.Fields(i).Value &   "
hW(S  
  next i#k-)N _$  
  Response.Write       ?RDO] I>  
  Rs.MoveNext  7krh4  
Wend GGnp Pp  
Set Rs = Nothing ,X/
-  
end if K)[8 H~Lm  
  % > lS9n@  
B9M>e'H%<  
FtIa*j^G  
nvyB/  
$1@,Qor  
转自： ASP教程采集