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

0 then (<ybst6+I  
Response.Write 错误 ： & err.description & 9Y:JA]U&8  
response.end 8'=8!V  
End if qaBjV6loy  
End Sub wAHW@q9CK  
Sub EndDB() (bfHxk
R.  
Set objOraDB = Nothing %N\pfZ2\  
Set objOraSession = Nothing Xg*IOhF6x  
End Sub S>~QuCMY  
Function getTableList(str) )A]
E:]2  
Dim strSql,strTmp qzv$E
;zAl  
Dim objRs tAD{{GW
9  
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 =>ooB/  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ien >Ou  
While Not objRs.Eof 9moenkL  
strA = objRs(uname) & . & objRs(tname) lf3:Z5*&>  
u@SE)qg  
If str=strA then 8
+Lig  
strTmp = strTmp & & strA & &(!Sy?tNe  
Else sa\v9  
strTmp = strTmp & & strA & {r2-^QHF  
End if XcJ'w  
objRs.MoveNext jKV,i?  
Wend J~z;sTR  
Set objRs = Nothing Ya] qo]  
getTableList = strTmp \m!swYy  
End Function azMrY<  
% > q|J3]F !n  
}a@ZFk_>  
oD,f5Ci-  
ehE
XC  
$rf4h]&<  
All Tables : ehO@3%z30c  
\nV|Y=5  
'tK5s>gv<  
X<s']C9c  
w5"C<5^  
() 4ew|5Zex.~  
Sc "J5^  
VHX&#vm*  
~o`I[-g)  
ShanwaCDqv  
_+K[1P  
  then po_||NIY  
strSql = Select * from & tblname d
,au&WZ;_  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) jh.W$.Oq  
Response.Write ~~]/<d  
for i=0 to rs.Fields.count-1 H<|I&nV
 
  Response.Write & rs.fields(i).name & VAf~,T]Ww  
next +F ~;Q$T  
Response.Write 2A@9jl s  
While Not Rs.Eof  G~T]
m .  
  Response.Write D"fE )@Q@Y  
  for i=0 to rs.fields.count -1 ,YFuMek  
        Response.Write & Rs.Fields(i).Value &   QZk:G+$  
  next vrXmzq  
  Response.Write       +]Of f^s  
  Rs.MoveNext haW8zb0z  
Wend V#!ihL/>  
Set Rs = Nothing jzc/Olb  
end if &9\z!r6mc  
  % > YMP:T?vMVh  
{e[S?1t=l  
$enh>!mU  
jJl6H~ "q  
5=Mm=HyI2  
转自： ASP教程采集