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

0 then /x  
Response.Write 错误 ： & err.description & @72x`&|I?u  
response.end ;".z[l*  
End if !uWxRpT,7  
End Sub 9?uqQ  
Sub EndDB() :O9P(X*  
Set objOraDB = Nothing Mn]}s:v  
Set objOraSession = Nothing C(-[ Y!  
End Sub aG
Pqh,<QD  
Function getTableList(str) Q0V^PDF  
Dim strSql,strTmp 0jR){G9+  
Dim objRs T>#TDMU#Fm  
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 w$gSj/  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) paW'R+Rck  
While Not objRs.Eof N0=-7wMk(Z  
strA = objRs(uname) & . & objRs(tname) CE~r4  
f%2%T'Q  
If str=strA then hzaLx8L  
strTmp = strTmp & & strA & :3*`IB !  
Else )fNGB]%  
strTmp = strTmp & & strA & C/F@ ]_y  
End if L)q`D2|'  
objRs.MoveNext Uh|TDuM  
Wend ]{YN{
 
Set objRs = Nothing !L4dUMo  
getTableList = strTmp Dba+z-3Nzy  
End Function H}vn$$ O  
% > VR"u*  
z>6.[Z(T  
c Qld$  
u\`/Nhn  
~6p5H}'H1  
All Tables : 6|QTS|!  
/sy-;JDnsu  
csYy7uzi  
r+o_t2_b*  
X*0k>j  
() wi>DZkR  
Y|mW.  
1{^CfamF  
[!W5}=^H  

y'^F,WTM  
neF8V"-u&  
  then LyIKP$t  
strSql = Select * from & tblname u[)_^kIE(n  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) O47PkP8  
Response.Write jQ6Xr&}  
for i=0 to rs.Fields.count-1 >wA+[81[  
  Response.Write & rs.fields(i).name & vruD U#  
next 5`"iq "5Cf  
Response.Write Qe_+r(3)k  
While Not Rs.Eof 2zhn`m  
  Response.Write ^[#=L4  
  for i=0 to rs.fields.count -1 L/~D<V  
        Response.Write & Rs.Fields(i).Value &   mIvnz{_d  
  next mxgqS
=`  
  Response.Write       jDkm:X}:  
  Rs.MoveNext {t&*>ma6)  
Wend d [r-k 2  
Set Rs = Nothing J<rlz5':  
end if :i.t)ES  
  % >  m;c3Z-  
6Z Xu,ks}  
x.b
a|:5  
hqL+_|DW  
8yn4}`Nc@  
转自： ASP教程采集