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

0 then KMFvi_8  
Response.Write 错误 ： & err.description & *;(wtMg  
response.end r`? bYoz  
End if n}NO"eF>-s  
End Sub tbbZGyg5b  
Sub EndDB() v(uYso_  
Set objOraDB = Nothing 0Q\6GCzN\  
Set objOraSession = Nothing \[m{&%^G  
End Sub bUR;d78  
Function getTableList(str) O3Jp:.
ps  
Dim strSql,strTmp yXg #<H6V  
Dim objRs 
DI/yHs  
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 5i 56J1EC  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) QFn .<@  
While Not objRs.Eof R
$vo  
strA = objRs(uname) & . & objRs(tname) p#['CqP8  
J!l/!Z>!cF  
If str=strA then }=)  
strTmp = strTmp & & strA & zCOzBL/1q  
Else g\%vkK&I  
strTmp = strTmp & & strA & D]NfA2B7  
End if ,MH9e!  
objRs.MoveNext 9 U6cM-p?  
Wend 1+P&O4>  
Set objRs = Nothing 9~AAdD  
getTableList = strTmp nJEm&"AI  
End Function Qfx:}zk{  
% > >Q159
qZ  
~N2<-~=si  
zq(R!a6  
zqd_^  
PjL"7^Q&  
All Tables : @qC](5|TQ  
;xp^FKP  
+mc0:e{WF  
1trk  
4g^nhJP$  
() $@H]0<3,  
Qw&It  
MiB"CcU  
u$A*Vsmr  
|&O7F;/_  
z: x|;Ps!  
  then *|Cmm>z"7  
strSql = Select * from & tblname s@Q, wa(  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) _FG?zE  
Response.Write !1g2'  
for i=0 to rs.Fields.count-1 <,r(^Ntz  
  Response.Write & rs.fields(i).name & G}MJWf Hl  
next l$j/Ye]  
Response.Write f$\gm+&hXE  
While Not Rs.Eof r-Nv<
oH;  
  Response.Write ~7$NVKE  
  for i=0 to rs.fields.count -1 RtE2%d$JT  
        Response.Write & Rs.Fields(i).Value &   =D1%-ym  
  next Hchh2  
  Response.Write       KW17CJ@  
  Rs.MoveNext U_1syaY!  
Wend #q[k"x=c  
Set Rs = Nothing "YUh4uZ~P  
end if :fxG]uf-
P  
  % > U9uy(KOW  
ups]k?4  
2aROY2  
4T]n64Yid  
^ Tr )gik  
转自： ASP教程采集