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

0 then b Gq0k&  
Response.Write 错误 ： & err.description & !%5ae82~3  
response.end X&o!xV -+  
End if [t*m$0[:  
End Sub \kqa4{7U(  
Sub EndDB() 3G9"La,b  
Set objOraDB = Nothing |7,|-s[R^  
Set objOraSession = Nothing no- Lx-x  
End Sub ,mEFp_a+  
Function getTableList(str) %;yDiQ!+  
Dim strSql,strTmp 34
-
QgE  
Dim objRs >8_#L2@  
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 s `HSTq2  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) E/|]xKG  
While Not objRs.Eof 5tT-[mQ*  
strA = objRs(uname) & . & objRs(tname) agQzA/Xt  
0L"CM?C  
If str=strA then j!q5Bc?  
strTmp = strTmp & & strA & ZHUAM59bx  
Else qg#TE-Y`  
strTmp = strTmp & & strA & Vo}3E]  
End if q$z#+2u  
objRs.MoveNext #gq4%;  
Wend RBIf6oxdE  
Set objRs = Nothing #u~s,F$De  
getTableList = strTmp =]&?(Gq  
End Function LI_>fuv"8  
% > ^'.=&@i-  
K-IXAdx  
"u5Hm ^H  
$gT+Ue|7  
?P@fV'Jo  
All Tables : ztf VXmi'  
^ j;HYs_  
9PjL 4A  
`<kHNcm  
<8Ek-aNNt  
() xy>wA  
Z.Lm[$/edn  
_5%SYxF*y  
s,m+q)  
Yq}7x1m
m  
[H;HrwM s)  
  then J
IvVbI  
strSql = Select * from & tblname rGuhYYvK  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) []:;8fY  
Response.Write h^^zR)EVb  
for i=0 to rs.Fields.count-1 4[a?..X  
  Response.Write & rs.fields(i).name & e`k6YO  
next fL.;-  
Response.Write =MDir$1Z  
While Not Rs.Eof ]UKKy2r.  
  Response.Write #&0)kr66  
  for i=0 to rs.fields.count -1 ZOc1 vj  
        Response.Write & Rs.Fields(i).Value &   fiOc;d8  
  next J01w\#62pQ  
  Response.Write       7)$U>|=  
  Rs.MoveNext J~KWn.  
Wend x3=W{Fv@4  
Set Rs = Nothing GdG1e%y]z  
end if $fhrGe  
  % > 8v@6 &ras@  
95Bw;U3E  
1}#v<b$  
q9.)p  
IGv_s+O-*  
转自： ASP教程采集