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

0 then 2hntQ1[  
Response.Write 错误 ： & err.description & )jI4]6  
response.end \py&v5J)s!  
End if E]{0lG`l  
End Sub LfnQcI$kO  
Sub EndDB() lh0G/8+C  
Set objOraDB = Nothing JKYtBXOl  
Set objOraSession = Nothing HE4S%#bH>  
End Sub ctgH/SU  
Function getTableList(str) UGOe(JB  
Dim strSql,strTmp UHl1>(U  
Dim objRs qyE*?73W  
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 ,^iT,MgNNf  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) '+|uv7|+v  
While Not objRs.Eof ^y&2N  
strA = objRs(uname) & . & objRs(tname) dZ,7q_r,~  
}/xdHt  
If str=strA then z1e+Ob&  
strTmp = strTmp & & strA & &@&^k$du8q  
Else @$ )C pg  
strTmp = strTmp & & strA & U$ZbBVa`~  
End if 2JHF*zvO-  
objRs.MoveNext kx0w?A8-  
Wend |[bQJ<v6  
Set objRs = Nothing >vf
LlYx  
getTableList = strTmp
n 8|  
End Function e+MsFXnB8  
% > -fz(]d  
RCGpZyl  
\y/0)NL\  
# WL5p.  
_ZuI x=!  
All Tables : L-3wez;hm  
Sj'.)nz>  
R<>uCF0  
jAFJ?L(  
j62oA$z  
() TkjZI}]2  
L:_pJP  
=~j S  
-F-,
Gcos  
iHOvCrp+X  
]O68~+6  
  then ?Qh[vcF7`  
strSql = Select * from & tblname t4,(W`  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) $-]PD`wmY  
Response.Write v.]W{~PI2V  
for i=0 to rs.Fields.count-1 ) ]]PhGX~  
  Response.Write & rs.fields(i).name & -+.-Ab7  
next fL R.2vJ  
Response.Write w259':  
While Not Rs.Eof &uv7`VT  
  Response.Write a`QKNrA2  
  for i=0 to rs.fields.count -1 HFf9^  
        Response.Write & Rs.Fields(i).Value &   ZGWZ2>k
  
  next +QFY.>KH  
  Response.Write       Q\v^3u2;m`  
  Rs.MoveNext xHdv?69,  
Wend *}`D2_uP  
Set Rs = Nothing `wLa.Gzj  
end if _S#3!Wx  
  % > \wo'XF3:  
c*g(R.!  
|H4/a;]~  
OW12m{  
5b9>a5j1;  
转自： ASP教程采集