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

0 then Z{IUy  
Response.Write 错误 ： & err.description & ^_I} x)i*@  
response.end M/D)".;  
End if B (/U3}w-  
End Sub kpwt]]e*  
Sub EndDB() ub0zJTFJ#  
Set objOraDB = Nothing G |*(8r()  
Set objOraSession = Nothing qVjWV$
j  
End Sub Y-piL8Xc  
Function getTableList(str) MJ<Jb,D1  
Dim strSql,strTmp gV1[3dW  
Dim objRs <HWS:'1  
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 wyx(FinIH  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) "Y`3DxXz  
While Not objRs.Eof T[k4lM  
strA = objRs(uname) & . & objRs(tname) C;AA/4Ib  
_s,ao'/  
If str=strA then :_<_[Y]1  
strTmp = strTmp & & strA & ukgAI<O%  
Else zHWSE7!  
strTmp = strTmp & & strA & ?B@;QjhjiJ  
End if mN`YuR~  
objRs.MoveNext i[C~5}%  
Wend 'PZ|:9FX!  
Set objRs = Nothing 9DQ)cy  
getTableList = strTmp {",MCu_V  
End Function 2 g
q$C"  
% >  GJi~y  
05Fz@31~  
148V2H)  
9CGNn+~YI  
QZAB=rR  
All Tables : JE5  
;^ wd_  
{n3EGSP#  
psh^MX)Q  
yZ]:y-1  
() RT/o$$  
,:J
us  
%\O#&=$E  
tary6K9K+  
3H\w2V  
3FSqd<t;D  
  then g3n'aD@'x  
strSql = Select * from & tblname iq#b#PYA  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) P`4]-5gE  
Response.Write 2N#$X'8  
for i=0 to rs.Fields.count-1 <%}QDO8\i  
  Response.Write & rs.fields(i).name & h/eR  
next ~na!@<zB{  
Response.Write {yAL+}  
While Not Rs.Eof ! hd</_#  
  Response.Write s1Ok|31|  
  for i=0 to rs.fields.count -1 Bm$"WbOq*R  
        Response.Write & Rs.Fields(i).Value &   5 *}R$  
  next ^Jp&H\gI.  
  Response.Write       (;x3} ]  
  Rs.MoveNext <>eOC9;VY  
Wend KT|R
F  
Set Rs = Nothing 0Q,g7K<d  
end if }uHrto3M  
  % > iF5'ygR-Z  

GY3Wj  
nZ1zJpBmI  
.JX EK  
^VW PdH/Fe  
转自： ASP教程采集