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

0 then F [Lg,}  
Response.Write 错误 ： & err.description & ^9`|QF  
response.end +!GJ  
End if 2cO6'?b  
End Sub QI'-I\Co  
Sub EndDB() r7sA;Y\  
Set objOraDB = Nothing .hM t:BMf*  
Set objOraSession = Nothing t 9t '9  
End Sub S[gACEZ =  
Function getTableList(str) @eZBwFe  
Dim strSql,strTmp C0K: ffv;<  
Dim objRs >gs_Bzy]  
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 MD*dq  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) +I-BqA9  
While Not objRs.Eof a'`?kBK7`U  
strA = objRs(uname) & . & objRs(tname) k$ T  
]v0Z[l>yf  
If str=strA then {NQCe0S+p  
strTmp = strTmp & & strA & R8:5N3Fx  
Else 0)cSm"s  
strTmp = strTmp & & strA & TpwN2 =  
End if )#8g<]q  
objRs.MoveNext $5/d?q-ts{  
Wend $=Ns7Sbup  
Set objRs = Nothing $+f=l~/s  
getTableList = strTmp \EU^`o+  
End Function 6D[
]Jf,9  
% > vG.KSA  
`Oi#`lC\  
}3_b%{  
Ue60Mf
  
^iBIp
#  
All Tables : t$~'$kM)<  
j}B86oX  
^H7xFd|>  
UgK c2~  
Z\Ur F0  
()  T&MhSJf#  
r#2Fk&Z9  
@{q<"hT  
4p-"1c$  
0ug&HEl_w  
|,5|ZpgL  
  then $H[q5(_~  
strSql = Select * from & tblname 5O d]rE  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) )qw;KG0F  
Response.Write 2_)UHTwsK  
for i=0 to rs.Fields.count-1 0+$gR~^^  
  Response.Write & rs.fields(i).name & _<{<b  
next &^DVSVqs^  
Response.Write =EMB~i  
While Not Rs.Eof W+6
3B8)4  
  Response.Write c AO:fb7  
  for i=0 to rs.fields.count -1 $-Ex g*i  
        Response.Write & Rs.Fields(i).Value &   _K!.TM+9  
  next |idw?qCn  
  Response.Write       Dol{y=(3e  
  Rs.MoveNext DBB&6~;?  
Wend M2|h.+[Q  
Set Rs = Nothing E/a2b(,Tg  
end if CxjB9#  
  % > Xpn\TD<_I  
[2Zy~`*y{  
0QW=2rs  
M /v@C*c  
!rr,(!Ip?O  
转自： ASP教程采集