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

0 then LH(P<k&  
Response.Write 错误 ： & err.description & l%2VA  
response.end Zq85q  
End if 7FoX)54"  
End Sub Y:;_R=M  
Sub EndDB() 9SsVJ<9,R  
Set objOraDB = Nothing `{!A1xK
Z  
Set objOraSession = Nothing Hi={(Z5tC4  
End Sub ]]
:K l  
Function getTableList(str) `.J)Z=o  
Dim strSql,strTmp ,5 ka{Q`K  
Dim objRs ((A@VcX  
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 0a89<yX  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) "O>~osj  
While Not objRs.Eof b5)^g+8)w  
strA = objRs(uname) & . & objRs(tname) "b`#RohCi  
dh`s^D6Q>  
If str=strA then [T_[QU:A  
strTmp = strTmp & & strA & aeUgr!  
Else 6d]4 %QT  
strTmp = strTmp & & strA & a%Q`R;W  
End if c qCNk  
objRs.MoveNext ):PN0.H8  
Wend x
F!IT"5D  
Set objRs = Nothing 6"G(Iq'2t3  
getTableList = strTmp "L]v:lg3  
End Function ]Ik~TW&  
% > }&=l)\e  
OU%"dmSDk  
g/.FJ-I*  
VYb,Hmm>kC  
Ld*Ds!*'/  
All Tables : #a=]h}&1?  
*,G<X^  
ivgX o'=  
;xiN<f4B  
)8oyo~4?  
() .t\J@?Z  
L;opQ~g  
J.XkdGQ  
ks.p)F>]  
_m?i$5  
&6CDIxH{  
  then V]--d33/a  
strSql = Select * from & tblname YaS!YrpI  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Q.$8>)  
Response.Write R?)Yh.vi=t  
for i=0 to rs.Fields.count-1 OE(y$+L3_I  
  Response.Write & rs.fields(i).name & D Z*c.|W  
next Vwp>:'Pu  
Response.Write y/S3ZJY  
While Not Rs.Eof ;g?PK5rB(  
  Response.Write <fHHrmZ#/.  
  for i=0 to rs.fields.count -1 T%%EWa<a  
        Response.Write & Rs.Fields(i).Value &   Jf2JGTcm  
  next RjVUm+<  
  Response.Write       #WG}"[ ,c  
  Rs.MoveNext R-zS7Jyox  
Wend ,Dv*<La`\  
Set Rs = Nothing \uHC9}0  
end if Ag0 6M U  
  % > #@HlnF}T  
u|wl;+.  
$MgO)bH  
h$`m0-'  
I@m(}  
转自： ASP教程采集