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

0 then Y4i-Pp?  
Response.Write 错误 ： & err.description & #i~.wQ$1  
response.end TPkm~>zD.  
End if
xQN](OKG  
End Sub -i58FJ`B  
Sub EndDB() @A)gsDt9A  
Set objOraDB = Nothing sl)_HA7G  
Set objOraSession = Nothing %1#5 7-  
End Sub {
&/q\UQ  
Function getTableList(str) 4b4nFRnH  
Dim strSql,strTmp D3I;5m`_  
Dim objRs nGRF<2!  
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 7OT}V}iP  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 3i7n"8\$  
While Not objRs.Eof Jx'p\*  
strA = objRs(uname) & . & objRs(tname) =Y89X6  
Jk`A}  
If str=strA then wZ*m  
strTmp = strTmp & & strA & vXyaOZ  
Else A }dl@  
strTmp = strTmp & & strA & ;'nu9FU*O  
End if ?bbguwo~F  
objRs.MoveNext IH{g-#U  
Wend dLv\H&  
Set objRs = Nothing ecr pv+  
getTableList = strTmp qgu.c`GmW  
End Function .>&kAf.  
% > u{I)C0  
B&tl6?7h  
$ZE OE8.\  
]92@&J0w  
sR#( \  
All Tables : 1(C%/g#"  
e\/Lcng  
#.) qQ8*(  
/\2s%b*  
3C.bzw^  
() P_w+p"@m  
w2Pkw'a{  
-[ F<u  
N>VA`+aFR  
n-p|7N  
GCc@ :*4[  
  then xAsbP$J:  
strSql = Select * from & tblname mw.9cDf  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) aWW|.#L  
Response.Write )V+;7j<"D  
for i=0 to rs.Fields.count-1 RzNv|   
  Response.Write & rs.fields(i).name & "M2HiV  
next =eYrz@,  
Response.Write oc>,5 x  
While Not Rs.Eof Zs)HzOP)9  
  Response.Write M" %w9)@  
  for i=0 to rs.fields.count -1 )j!22tlL  
        Response.Write & Rs.Fields(i).Value &   HJM-;C](  
  next "5]GEzM3O  
  Response.Write       WM:we*k8h  
  Rs.MoveNext 7 zK%CJ  
Wend 6wfCC,2  
Set Rs = Nothing Ql!$e
&A|l  
end if u9QvcD^'z  
  % > #~ UG9@a  

KZJ;O7'`  
r6QNs1f~.  
$!ka8) ~  
79=w]y  
转自： ASP教程采集