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

0 then #IBBaxOk  
Response.Write 错误 ： & err.description & 9~,eu  
response.end oUw-l_M]  
End if z6G^BaT'  
End Sub ~|J6M  
Sub EndDB() uB,B%XHj  
Set objOraDB = Nothing !4jS=Lhe>  
Set objOraSession = Nothing fV}\  
End Sub m ]K.0E  
Function getTableList(str) =10t3nA1$  
Dim strSql,strTmp q{7s.m >  
Dim objRs xel&8 `  
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 ~.x!st}  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) @-b}iP<T  
While Not objRs.Eof H[,.nH_>+  
strA = objRs(uname) & . & objRs(tname) >M:5yk@  
4g1u9Sc0  
If str=strA then K)Db3JIIk  
strTmp = strTmp & & strA & CaBTqo  
Else &9s6p6eb  
strTmp = strTmp & & strA & DO03vN  
End if ']vX  
objRs.MoveNext \Y!Z3CK  
Wend {.,OPR"\  
Set objRs = Nothing ydns_Z  
getTableList = strTmp #zy,x  
End Function _-8,}F}W#s  
% > !Q7  
jSYj+k  
@/0aj  
;#~ !`>n?  
(tq)64XVz  
All Tables : 9D#PO">|  
N%B#f\N  
//+
UQgl6  
TVFGonVY  
%okEN!=  
() sa#"@j)  
NOS5bm&-  
@ ~sp:l  
6PMu;#  
y ph  
p[o2F5 T2  
  then #^v5Eo  
strSql = Select * from & tblname 3mJHk<m8T  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ]owH [wvX  
Response.Write A:NY:#uC  
for i=0 to rs.Fields.count-1 56bB~=c  
  Response.Write & rs.fields(i).name & WJ.PPq>]F  
next X2e|[MWkp  
Response.Write s{q2C}=$?D  
While Not Rs.Eof Pdn.c1[-a  
  Response.Write v;$^1I  
  for i=0 to rs.fields.count -1 THua?,oyW  
        Response.Write & Rs.Fields(i).Value &   _+;x4K;  
  next QHM39Eu]  
  Response.Write       |;_ yAL  
  Rs.MoveNext 1QN]9R0`#7  
Wend Qp=uiXs  
Set Rs = Nothing s=q+3NTv  
end if -xcz+pHQ  
  % > e+6~JbMV  
8D n]`}ok  
uyA9`~p=#  
#* Hhe>  
k{bba=<  
转自： ASP教程采集