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

0 then )%F5t&lum  
Response.Write 错误 ： & err.description & )/>A6A:  
response.end Q4Q pn  
End if Ur3m[07H  
End Sub WbcS: !0  
Sub EndDB() 4TZ cc|B5  
Set objOraDB = Nothing J# EP%  
Set objOraSession = Nothing :c=.D;,  
End Sub cbYK5fj"T  
Function getTableList(str) i\Wdo/c-H  
Dim strSql,strTmp -c+]Wm"\  
Dim objRs i=#F)AD^5#  
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 !OAvD#  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) %u!b& 5]e  
While Not objRs.Eof !MV@) (.  
strA = objRs(uname) & . & objRs(tname) izuF !
9  
H M:r0_  
If str=strA then T1bd:mC}n  
strTmp = strTmp & & strA & O|'1B>X  
Else }r3~rG<D71  
strTmp = strTmp & & strA & U>Gg0`>  
End if b1-&v|L  
objRs.MoveNext v&;:^jJ8  
Wend D*2\{W/  
Set objRs = Nothing Gu;OVLR|  
getTableList = strTmp z9 ($.  
End Function uM
S*(L_  
% > sn{tra  

Mu&x_&|  
fk{0d  
m4m<nnM  
DQ80B)<O  
All Tables : N+g@8Q2s;5  
goZ V.,w  
<Ef[c@3  
h-QLV
[^  
:Li/=>R^  
() {vVTv SC  
:]II-$/8  
Ed-M7
#wY  
tSHFm-q`  
0xMj=3']  
3)N\'xFh@  
  then i$uN4tVKT  
strSql = Select * from & tblname \#Up|u:  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) DL8x":;  
Response.Write @S3f:s0~D
 
for i=0 to rs.Fields.count-1 Yj3I5RG  
  Response.Write & rs.fields(i).name & XKU=oI0\j  
next <<zI\+V  
Response.Write )^x K   
While Not Rs.Eof vhgLcrn  
  Response.Write {C3Y7<  
  for i=0 to rs.fields.count -1 3yO=S0`  
        Response.Write & Rs.Fields(i).Value &   'i|rjW(  
  next eV};9VJ$F  
  Response.Write       .*5Z"Q['G  
  Rs.MoveNext >)**khuP7  
Wend ELD!{bMT  
Set Rs = Nothing JAjku6  
end if \ |!\V  
  % > K$[$4 dX]  
U[\Vj_?(I  
z5 m>H;P  
wkb$^mU  
A9:NKY{z  
转自： ASP教程采集