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

0 then H%O\4V2s  
Response.Write 错误 ： & err.description & r >'tE7W9  
response.end O`~#X w  
End if OJcS%-~  
End Sub /aI@2]|~  
Sub EndDB() yjjq&Cn  
Set objOraDB = Nothing .7.lr[
$g  
Set objOraSession = Nothing  `Eh>E,  
End Sub teJt.VA7)  
Function getTableList(str) 7\6g>4J^`  
Dim strSql,strTmp jsN[Drra  
Dim objRs T)\}V#iA*  
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 ipwlP|UjQ5  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) z$?F^3>  
While Not objRs.Eof ['IH*gi  
strA = objRs(uname) & . & objRs(tname) hik.qK  
KV_/fa~Ry  
If str=strA then =~+ WJN  
strTmp = strTmp & & strA & =xo
0T 6  
Else o pTXI*QA  
strTmp = strTmp & & strA & ^v;)6a2  
End if Y)1/fEM  
objRs.MoveNext )%K<pIk  
Wend !zX()V  
Set objRs = Nothing L+8ar9es  
getTableList = strTmp 5skN'*oG  
End Function L]kBY2c  
% > |Mb{0mKb  
lcdhOjz!N  
,u `xneOs  
^X96yj'?  
<l<O2l  
All Tables : ]I\GnDJ^  
=P(*j7=  
f!x9%  
7l53&,s   
Z~J]I|R:  
() s* (a  
6$R9Y.s>Z  
=-2~>B  
<,M"kF:  
FH=2,"A  
3ay},3MCV%  
  then ?@rd,:'dE  
strSql = Select * from & tblname i(j/C  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ]{1{XIF  
Response.Write `MU~N_  
for i=0 to rs.Fields.count-1 $,}jz.R@  
  Response.Write & rs.fields(i).name & R(wUu#n$  
next p/ ITg  
Response.Write ^lHy)!&A  
While Not Rs.Eof <o%T]  
  Response.Write t8*Jdd^3Z/  
  for i=0 to rs.fields.count -1 UGO#o`.G}  
        Response.Write & Rs.Fields(i).Value &   e(t}$Q=  
  next 8FuxN2  
  Response.Write       zS%XmS\  
  Rs.MoveNext T?7u [D[[  
Wend tJ^p}yxO  
Set Rs = Nothing Hm2Y% 4i%  
end if 1[!:|=
 
  % > g6,DBkv2  
<O1R*CaP  
sy"}25s  
3k1e  
dVbFMQ&  
转自： ASP教程采集