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

0 then `
qj24ehc  
Response.Write 错误 ： & err.description & l~GcD  
response.end w0fFm"A|W  
End if /QVhT  
End Sub IL<@UWs6  
Sub EndDB() bH_zWk  
Set objOraDB = Nothing mbO.Kyfen  
Set objOraSession = Nothing RMBPm*H  
End Sub K=;oZYNd  
Function getTableList(str) 9AZpvQ  
Dim strSql,strTmp o$,e#q)8  
Dim objRs Np R&`]  
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 a &tl@y1  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) wRj&k(?*  
While Not objRs.Eof 1Ozy;;\-9  
strA = objRs(uname) & . & objRs(tname) RL1cx|  
66Xo3o  
If str=strA then |kkg1M#  
strTmp = strTmp & & strA & A$o?_  
Else k54Vh=p  
strTmp = strTmp & & strA & 1WLaJ%Fv  
End if dL>8|  
objRs.MoveNext =^g
ZJ@  
Wend VY'1 $  
Set objRs = Nothing z<n&P7k5j  
getTableList = strTmp $rmfE  
End Function M`.v/UQn  
% > +[$ Q C*  
f;%\4TH?  
x)^t5"F  
BFMINq>  
lAx^!#
~\  
All Tables : G,h=5y9_J  
<LA!L  
wx)Yl1C  
j43-YdCJ  
eh}{\P  
() j_HwR9^fd,  
8K0@*0  
5$L=l  
W&8
)yog.  
cAc>p-y
%  
U<mFwJ C]  
  then %oqC5O6  
strSql = Select * from & tblname uO;_T/^u  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) .@(9v.:_u  
Response.Write
UFY_.N~  
for i=0 to rs.Fields.count-1 DZ~qk+,I  
  Response.Write & rs.fields(i).name & %vFoTu)2  
next ;33LuD<h.  
Response.Write CP!>V:w%9!  
While Not Rs.Eof U<H< !NV  
  Response.Write XhEd9>#  
  for i=0 to rs.fields.count -1 ;;g'C*_  
        Response.Write & Rs.Fields(i).Value &   j^'op|l  
  next f|X./J4Bl  
  Response.Write       ?oO<PR}y  
  Rs.MoveNext n; fUwon  
Wend sX$EdIq  
Set Rs = Nothing _MC\\u/C/  
end if W_ hckq.  
  % > j[<}l&  
98AX=%8  
8rx"D`{|  
_@Le MNv  
iI(7{$y  
转自： ASP教程采集