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

0 then lbda/Zx  
Response.Write 错误 ： & err.description & M,_ $s,  
response.end (g@\QdH`|  
End if !i~(h&z  
End Sub *lvADW5e  
Sub EndDB() x C&IR*  
Set objOraDB = Nothing zplv.cf#q  
Set objOraSession = Nothing :vb5J33U  
End Sub wDh]vH[  
Function getTableList(str) TPJF?.le '  
Dim strSql,strTmp #4O4,F>e  
Dim objRs "H[K3  
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 Sp5:R75vI  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) |Q
3d7y  
While Not objRs.Eof &L$9Ii  
strA = objRs(uname) & . & objRs(tname) ZI!:  
}6%XiP|  
If str=strA then 7Dbm s(:(  
strTmp = strTmp & & strA & ]|tg`*l!>  
Else Cjr]l!  
strTmp = strTmp & & strA & }x`Cnn  
End if @@H_3!B%4v  
objRs.MoveNext B4RrUA32  
Wend [w'Q9\,p
 
Set objRs = Nothing |-}.Y(y  
getTableList = strTmp \)No?fB  
End Function ?'TK~,dG/  
% > C7ivAh  
e9{0hw7  
dgpE3 37Lt  
!2KQi=Ng  
~dr,;NhOLJ  
All Tables : hJ{u!:4  
N9_* {HOy  
=WT$\KYGv  
L T$U z  
uL/wV~g  
() ~Mn3ADIb=  
bwXeEA@{  
X6G{.Vh"  
]qT&6:;-]  
U<w8jVE  
H

KrENk  
  then "iK= 8  
strSql = Select * from & tblname q-<DYVG+  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) (L*GU7m;  
Response.Write ~gd#cL%  
for i=0 to rs.Fields.count-1 Y 3ApW vS  
  Response.Write & rs.fields(i).name & gU
ru=p  
next "5V;~}=S  
Response.Write $o?U=  
While Not Rs.Eof jG[Vp b  
  Response.Write 6/8K2_UeoW  
  for i=0 to rs.fields.count -1 (NvjX})eh  
        Response.Write & Rs.Fields(i).Value &   T"z<D+pN  
  next Jr
!BDg  
  Response.Write       tdH[e0x B  
  Rs.MoveNext gPKf8{#%e  
Wend r& a[
?  
Set Rs = Nothing G(a5@9F  
end if RhE~Rwbx  
  % > tr<fii3<  
`HRL .uX  
e%JIqKS  
eT".psRiC  
K|Sq_/#+U  
转自： ASP教程采集