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

0 then Dbt"}#uit;  
Response.Write 错误 ： & err.description & Su99A.w  
response.end pIBL85Xe  
End if !, Y1FC  
End Sub /1ZRjf^  
Sub EndDB() x5_V5A/@LU  
Set objOraDB = Nothing .}Va~[0j  
Set objOraSession = Nothing lB9 9J"A
 
End Sub "w.gP8`  
Function getTableList(str) R{"Kh2q_  
Dim strSql,strTmp e E:J  
Dim objRs 'E FP/(2J  
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 mOG;[CB  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) x"q!=&>f  
While Not objRs.Eof &5:83#*Oj  
strA = objRs(uname) & . & objRs(tname) *;7~aM  
!5lb+%7  
If str=strA then JGl0 (i*|  
strTmp = strTmp & & strA & "NR`{1f:O  
Else d>[=]  
strTmp = strTmp & & strA & 34S0W]V  
End if ]t$wK  
objRs.MoveNext -?L~\WJAL  
Wend / i[F  
Set objRs = Nothing jd]Om r!  
getTableList = strTmp tnL$v2e6q  
End Function T%|{Qo<j  
% > Z4 y9d?g%b  
E Dh$UB
)  
bzYj`t?  
jpijnz{M  
LsB|}
_j7  
All Tables : GH ]c  
{/|RKV83  
66ULR&D8  
VZhtx)  

H,8
HGL[l  
() (lPiv+'n  
*Ae> ,LyE  
o@T-kAEf-.  
S9\_ODv  
ux>wa+XFa  
f_\,H|zco)  
  then 2z*EamF  
strSql = Select * from & tblname g~ub
ivl2  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) );*:UzsC_  
Response.Write 4WspPHj  
for i=0 to rs.Fields.count-1 T,G38  
  Response.Write & rs.fields(i).name & K"fr4xHq  
next [%?ViKW  
Response.Write 2Kg-ZDK8  
While Not Rs.Eof z[vHMJ
0  
  Response.Write {N.JA=  
  for i=0 to rs.fields.count -1 MKiP3kt
8  
        Response.Write & Rs.Fields(i).Value &   P|U9f6^3  
  next y6#AL<W@=  
  Response.Write       +g.lLb*#  
  Rs.MoveNext mCb1^
Y  
Wend <rQ+ErDA  
Set Rs = Nothing qnO>F^itF  
end if $X\deJ1Hi  
  % > gXy'@!  
"+dByaY  
LZ'Y3 *  
NC@L,)F  
BQo$c~  
转自： ASP教程采集