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

0 then AXBv']Y  
Response.Write 错误 ： & err.description & 65FdA-4  
response.end iz'#K?PF_  
End if }D5*   
End Sub qaBjV6loy  
Sub EndDB() Wsb=SM7;  
Set objOraDB = Nothing 5oz[Njq4  
Set objOraSession = Nothing 1tvgM !.  
End Sub c5_?jKpl  
Function getTableList(str) zV)Ob0M7U  
Dim strSql,strTmp m?;aTSa  
Dim objRs ># FO0R  
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
8l|v#
^v  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 7 4rmxjiN  
While Not objRs.Eof fMjn8.  
strA = objRs(uname) & . & objRs(tname) S5eQHef  
zx7*Bnu0  
If str=strA then kc&>l(  
strTmp = strTmp & & strA & >
S /Zd  
Else &*TwEN^h  
strTmp = strTmp & & strA & du
2q6"  
End if iqecm]Z0  
objRs.MoveNext uVoM2n?D%^  
Wend 5MJ`B:He+  
Set objRs = Nothing w7Nb+/,sg  
getTableList = strTmp 1Yt;1k'  
End Function h,Y MR3:X  
% > L]{ 1"`#  
$KL5Z#K  
Zmf\A  
6[BQx)7T  
OZ?4"1$.t  
All Tables : |;q*Zy(  
{Y{*(5YV  
k[oU}~*U+  
b&uo^G,  
<Sn5ME<*  
() azMrY<  
3 wVN:g7  
kq6K<e4jO  
^ri?eKy.-g  
)i&9)_ro  
>'#G$f  
  then $rf4h]&<  
strSql = Select * from & tblname dbGW`_zQ4  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) }?B=R#5  
Response.Write 84[T!cDk  
for i=0 to rs.Fields.count-1 T2# W=P  
  Response.Write & rs.fields(i).name & LPbZ.  
next (j-[m\wF  
Response.Write L{$ZL&  
While Not Rs.Eof C)> ])'S  
  Response.Write gBRhO^Sz  
  for i=0 to rs.fields.count -1 )f4D2c&VE  
        Response.Write & Rs.Fields(i).Value &   2BOe,giy  
  next F,#)8>O  
  Response.Write       Y
o:l@(  
  Rs.MoveNext zECdj'/  
Wend =p>"PqJ/7n  
Set Rs = Nothing =LJc8@<:f  
end if rkA0v-N6v  
  % > d>:(>@wz  
nf!RB-orF  
Y
>-|`2Z  
)5P*O5kQ -  
 =%AFn9q  
转自： ASP教程采集