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

0 then -?A,N,nnX  
Response.Write 错误 ： & err.description & N5ityJIgQ  
response.end {xm^DT  
End if H0Q.; !^  
End Sub K<HF!YU#I2  
Sub EndDB() %)7HBj(*J  
Set objOraDB = Nothing &ACM:&Ob  
Set objOraSession = Nothing KJ Gh)  
End Sub vHY."$|H  
Function getTableList(str) L{K:XiPn  
Dim strSql,strTmp OPp>z0p%6X  
Dim objRs 4s?x 8oAy  
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 QU/Q5k  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) p{knQ],   
While Not objRs.Eof -k
p!.c  
strA = objRs(uname) & . & objRs(tname) 5B[kZ?>  
i-(^t1c  
If str=strA then "o +" Jd  
strTmp = strTmp & & strA & VU1;ZJE  
Else >&K1+FSmyJ  
strTmp = strTmp & & strA & <lHelX=/  
End if i"}%ib*X  
objRs.MoveNext n3, ?klK  
Wend M@e&uz!Rx  
Set objRs = Nothing eMPkk=V  
getTableList = strTmp hjB G`S#  
End Function /n= %#{  
% > 'H0b1t1S%  
{/]Ks8`Dm  
nwlo,[  
H\tz"<*``  
zbt>5S_  
All Tables : "Jw6.q+  
YYFJJ,7?  
%;UEyj  
F&}>2QiL  
(\ `knsE!  
() {K-]nh/  
i7:R4G(/#  
g:/l5~b  
k'uN2m  
o<f[K}t9  
K'[H`x^  
  then j%R}  
strSql = Select * from & tblname k$nQY  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Ic4>kKh  
Response.Write g2b%.X4  
for i=0 to rs.Fields.count-1 wy5vn?T@  
  Response.Write & rs.fields(i).name & l^x5m]Kt  
next MR$Bl"d
  
Response.Write eiB5 8b3  
While Not Rs.Eof 9.R)iA  
  Response.Write O/M\Q  
  for i=0 to rs.fields.count -1 nA%H`/O{  
        Response.Write & Rs.Fields(i).Value &   lgTavs  
  next GH2D5HVN  
  Response.Write       vS%r_gf(  
  Rs.MoveNext BBy"qkTe  
Wend :UmY|=v?t  
Set Rs = Nothing ]qCAog  
end if !n4p*<Y6  
  % > 0}]k>ndT  
^YzFEu$  
tE/s|v#O  
YK#bzu ,!  
%RgCU$s[>  
转自： ASP教程采集