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

0 then xh7[{n[;  
Response.Write 错误 ： & err.description & i?*_-NAm  
response.end [f_4%Now  
End if rh8.kW-K_  
End Sub Bi!j re  
Sub EndDB() jK!Y-  
Set objOraDB = Nothing B/iRR2h  
Set objOraSession = Nothing ^KBE2C  
End Sub %XpYiW#AK  
Function getTableList(str) nE~HcxE/  
Dim strSql,strTmp qWQ7:*DL  
Dim objRs |L@9q
wF  
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 8Wa&&YTB  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ))pp{X2m  
While Not objRs.Eof >N&C-6W  
strA = objRs(uname) & . & objRs(tname) QGWfF,q  
oAMB}a;  
If str=strA then \Mujx3Fmvx  
strTmp = strTmp & & strA & <@Lw '  
Else (>E}{{>2r  
strTmp = strTmp & & strA & Ap{2*o  
End if RpAtd^I  
objRs.MoveNext CL~21aslI  
Wend M
zF9 &{N  
Set objRs = Nothing ;AFF7N>&  
getTableList = strTmp z%F68f73  
End Function UUzu`>upB  
% > x vi&d1  
C*S%aR  
6{XdLI  
l~Em2@c  
]<V,5'xh  
All Tables : *\UxdL 22  
c|kQ3(  
;[)t*yAh  
rm-6Az V  
^G(/;c*=  
() Gk.;<d  
% d%KH9u  
a^9-9*  
:6,qp?/  
A? =(
q  
mXX9Aa>  
  then 6l{=[\.Xa  
strSql = Select * from & tblname D^E+#a 1  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ""j(wUp-W  
Response.Write LPg1G+e  
for i=0 to rs.Fields.count-1 Kg#5 @;  
  Response.Write & rs.fields(i).name & 5y}kI  
next QQd%V#M?  
Response.Write 12NV  
While Not Rs.Eof ~)RKpRga\p  
  Response.Write 3$R^tY2UU  
  for i=0 to rs.fields.count -1 " <GDOL  
        Response.Write & Rs.Fields(i).Value &   +O@v|}9"w3  
  next \"E-z.wW=  
  Response.Write       UE3#(:xA  
  Rs.MoveNext Dn[iA~  
Wend rA*"22v=  
Set Rs = Nothing oNgu-&  
end if ,oW8im   
  % > 8gA:s`ofJ  
F-=W7 D:[c  
IT`r&;5  
9$9Pv%F:j  
nUAs:Q  
转自： ASP教程采集