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

0 then " Q?~LB  
Response.Write 错误 ： & err.description & +1YEOOfVY  
response.end OQ hQ!6  
End if #i@f%Bq-  
End Sub TDDMx |{  
Sub EndDB() yy=hCjQ)  
Set objOraDB = Nothing $ mE*=  
Set objOraSession = Nothing 4h@,hY1#  
End Sub !(F?`([A  
Function getTableList(str) lbda/Zx  
Dim strSql,strTmp UjQz  
Dim objRs _\X ,a5Un  
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 sdZ$3oE.  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) BP@tI|  
While Not objRs.Eof P?/JyiO}  
strA = objRs(uname) & . & objRs(tname) JkWhYP}  
?&#LmeZ}K  
If str=strA then Bh2l3J4X  
strTmp = strTmp & & strA & <[)-Q~Gg5  
Else W&Fm;m@M  
strTmp = strTmp & & strA & 3 R
+e  
End if > v%.q]E6n  
objRs.MoveNext &>,]YrU  
Wend dT*Yv`h  
Set objRs = Nothing H5x7)1Ir|  
getTableList = strTmp H?];8wq$G  
End Function d,Aa8I  
% > r[i^tIv6As  
qIQ=OY=6  
Cjr]l!  
 RbTGAA  
@@H_3!B%4v  
All Tables : B4RrUA32  
PM[_0b  
|-}.Y(y  
\)No?fB  
&M}X$k I  
() 5OI.Ka  
isL zgN%  
q7Hf7^a  
_x<NGIz  
1v]%FC`  
49Jnp>h  
  then =0d|F 8  
strSql = Select * from & tblname n8<?<-2  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 9)1Ye  
Response.Write dYrgL3'  
for i=0 to rs.Fields.count-1 ud`-w  
  Response.Write & rs.fields(i).name & z;>$["t]6  
next C*b[J  
Response.Write bwXeEA@{  
While Not Rs.Eof X6G{.Vh"  
  Response.Write >;I8w(  
  for i=0 to rs.fields.count -1 5q0L<GOrj  
        Response.Write & Rs.Fields(i).Value &   t|>zke!'  
  next ML905n u  
  Response.Write       r)5xS]  
  Rs.MoveNext 7yfh4-1M  
Wend >n09K8 A  
Set Rs = Nothing Jx.fDVJ  
end if >NBc-DX^  
  % > 'NlhLu  
W]oD(eZ  
a ~v$ bNu  
xc#t8`  
89LD:+p/  
转自： ASP教程采集