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

0 then BRgXr  
Response.Write 错误 ： & err.description & Ab{ K<:l  
response.end E2R&[Q"%  
End if Vf]
"L.G  
End Sub old(i:2  
Sub EndDB() j+$rj  
Set objOraDB = Nothing {zQ8)$CQ  
Set objOraSession = Nothing _`&m\Qe>  
End Sub (nf~x  
Function getTableList(str) +BETF;0D  
Dim strSql,strTmp |}BLF  
Dim objRs &"&Z #llb  
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 7z JRJ*NB  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) =;Rtdy/Yn%  
While Not objRs.Eof 6jE|  
strA = objRs(uname) & . & objRs(tname) ?XrQ53  
#`CA8!j!!  
If str=strA then w$zu~/qV2  
strTmp = strTmp & & strA & I*{4rDt  
Else CZud& <  
strTmp = strTmp & & strA & I&}L*Z?`  
End if
[^Os kJ4  
objRs.MoveNext %b&".mN  
Wend ^1iSn)&  
Set objRs = Nothing :W!7mna  
getTableList = strTmp QM5R`i{r  
End Function #lmB AL~3  
% > C7lH]`W|/  
Uzz'.K(Mv|  
K28+]qy[  
D!{Y$;  
.k,1f*%  
All Tables : ^U `[(kz=  
[Y|8\Ph`&  
UK595n;P  
D>/0v8  
Y2a5bc P  
() -~s!73pDY  
7mI:|G  
*7CV^mDm  
?I6fye7  
fsJ9bQm/  

'8Q]C*Z  
  then E(O74/2c8  
strSql = Select * from & tblname >p)MawT]  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Q\^O64geD  
Response.Write %-)H^i~]%  
for i=0 to rs.Fields.count-1  3,p]/Z_  
  Response.Write & rs.fields(i).name & VPO N-{=`  
next <v)1<*I  
Response.Write (\\eo  
While Not Rs.Eof #xho[\  
  Response.Write ,5i`-OI  
  for i=0 to rs.fields.count -1 K~c=M",mW  
        Response.Write & Rs.Fields(i).Value &   E)TN,@%  
  next k9k XyX[  
  Response.Write       T ?$:'XJ  
  Rs.MoveNext tX5"UQA  
Wend k
`So -e-  
Set Rs = Nothing 0+?7EL~  
end if @JtM5qB  
  % > p~SClaR3H  
U7K,AflK?M  
[0(B>a3J  
B|R@5mjm  
xAK6pDp  
转自： ASP教程采集