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

0 then /],9N  
Response.Write 错误 ： & err.description & X`A+/{ H  
response.end -#Jp@6'k%  
End if {Fvl7Sh  
End Sub PU-L,]K  
Sub EndDB() bAEwjZ  
Set objOraDB = Nothing ^|(VI0KO  
Set objOraSession = Nothing +ZR>ul-c  
End Sub ;)Sf|  
Function getTableList(str) @!*I mN
MI  
Dim strSql,strTmp ;NF:98  
Dim objRs UHS"{%  
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 \;1nEjIA  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) jt0f*eYE8  
While Not objRs.Eof ;( (|0Xa  
strA = objRs(uname) & . & objRs(tname) GC[Ot~*_  
<=!FB8 .  
If str=strA then yeLd,M/I  
strTmp = strTmp & & strA & ),lE8A{ H  
Else E-deXY  
strTmp = strTmp & & strA & }J6 y NoXu  
End if =vsvx{o?  
objRs.MoveNext X2`n&JE  
Wend H#3Ma1z  
Set objRs = Nothing %zN~%mJ
G  
getTableList = strTmp 8{)N%r  
End Function C3KAQU  
% > &
kQj)  
jEm=A8q  
/}k?Tg/  
CUx-k|\  
F.AP)`6+*  
All Tables : 2LS91  
Qp-P[Tc  
$49;\pBZl  
cRWYS[O?-  
s0'6r$xj  
() -HRa6  
4JL]?75  
X$=/H 6R5Z  
|P-kyY34  
vBV_aB1{  
q:mqA$n  
  then (d['f]S+&  
strSql = Select * from & tblname #e[igxwi  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) m,Mg  
Response.Write >0cg  
for i=0 to rs.Fields.count-1 !
Y*O0_  
  Response.Write & rs.fields(i).name & EME}G42KN  
next oN,9#*PVL  
Response.Write #<vzQ\~Y  
While Not Rs.Eof tcD5"ALJ  
  Response.Write K<v:RbU|[1  
  for i=0 to rs.fields.count -1 a``
Q}.ST  
        Response.Write & Rs.Fields(i).Value &   juMHc$d17  
  next ~n%]u! 6  
  Response.Write       "YN6o_*]  
  Rs.MoveNext $Zj3#l:rK  
Wend ue -a/a  
Set Rs = Nothing Z& bIjp  
end if &<# ,J4  
  % > <-HWs@8#  
n66b(6"mO2  
"sed{?  
c LfPSA  
_8wT4|z5  
转自： ASP教程采集