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

0 then :c)<B@NqNo  
Response.Write 错误 ： & err.description & ]02 l!"  
response.end 1y0.tdI(  
End if 2I?HBz1v  
End Sub j#&sZ$HQ4  
Sub EndDB() =oT@h 9VI  
Set objOraDB = Nothing U]hQ#a+  
Set objOraSession = Nothing ADv a@P  
End Sub 6{azzk8  
Function getTableList(str) K^{`8E&A  
Dim strSql,strTmp Yc?taL)  
Dim objRs ,l; &Tb=k  
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 (GPJ=r  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) %/etoK  
While Not objRs.Eof |,dMF2ADc  
strA = objRs(uname) & . & objRs(tname) 5B2x# m|8  
bHS2;K~  
If str=strA then ZFW}Vnl  
strTmp = strTmp & & strA & {K3\S 0L  
Else dN |w;|M  
strTmp = strTmp & & strA & q3NS?t!  
End if tx
5_e[  
objRs.MoveNext 308w0eP  
Wend nZ\,
ZqV  
Set objRs = Nothing aE#ZTc=  
getTableList = strTmp Q(]-\L
'  
End Function &1Cq+Yp
I  
% > K/\#FJno  
;xB"D0~,1  
0M8JE9 Kx  
K:y q^T7  
zo} SS[  
All Tables : Vg \-^$  
~BS*x+M  
i+&="Z@  
@/$mZ]|T  
_"0n.JQg  
() y\0^c5}  
t_]UseP$RF  
|!!E5osXq  
/mD KQ<  
[7I|8
  
)&dhE^ O  
  then d}l^yln  
strSql = Select * from & tblname cC}s
5`  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) VpVw:Rh>  
Response.Write huKz["]z[  
for i=0 to rs.Fields.count-1 p*npY"}v  
  Response.Write & rs.fields(i).name & B.P64"w  
next "BFW&<1  
Response.Write '|XP}V0I  
While Not Rs.Eof X2@o"xU
  
  Response.Write $}KYpSV  
  for i=0 to rs.fields.count -1 @{CpC  
        Response.Write & Rs.Fields(i).Value &   ^_+ks/  
  next U1q$B32  
  Response.Write       +:'Po.{"  
  Rs.MoveNext zi-+@9T  
Wend TS[Z<m  
Set Rs = Nothing ~!&[;EM<bm  
end if <BU|?T6~  
  % > 1MahFeQ[  
8OFrW.>[  
ZcWl{e4  
n/|/Womr  
|@ldXuYb  
转自： ASP教程采集