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

0 then Q,h7Sk*  
Response.Write 错误 ： & err.description & j2l55@  
response.end \C^;k%{LV  
End if ra N)8w}-  
End Sub qmy%J  
Sub EndDB() z*$q8Z&7rg  
Set objOraDB = Nothing ,m<H-gwa  
Set objOraSession = Nothing dq1:s1  
End Sub #-% A[7Cdp  
Function getTableList(str) >wHxmq8F5<  
Dim strSql,strTmp (b,[C\RBF  
Dim objRs llV3ka^!  
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 RP5+d  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) G~7 i@Zs  
While Not objRs.Eof J[~5U~F  
strA = objRs(uname) & . & objRs(tname) 6 15s5ZA  
] b9-k  
If str=strA then ?ULo&P[  
strTmp = strTmp & & strA & z+a%5J  
Else '})0!g<Y  
strTmp = strTmp & & strA & P|tNL}2`;  
End if r7]zQIE  
objRs.MoveNext c#IYFTz  
Wend b1XRC`Gy  
Set objRs = Nothing PQKaqv}N  
getTableList = strTmp .`<@m]m-  
End Function K$K^=>I"o  
% > )Or.;  
:'F}Dy  
klgy;jSEr  
!+)AeDc:j  
obrl#(\P  
All Tables : Uo12gIX  
dz [!-M  
r0d35
 
~_IHaw$hg  

<<](XgR(  
() mkh"Kb*{  
?{w3|Ef&  
-Y Bd, k3  
 c gz
wx  
G0u LmW70  
g,o?q:FL  
  then '0y9MXRT  
strSql = Select * from & tblname "<_0A f]  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) iRg7*MQu  
Response.Write I):!`R.,  
for i=0 to rs.Fields.count-1 DypFl M*  
  Response.Write & rs.fields(i).name & ?m$a6'2-,J  
next Uj+j}C  
Response.Write @';B_iQ  
While Not Rs.Eof b^D$jY  
  Response.Write "H-"  
  for i=0 to rs.fields.count -1 \<}&&SuH  
        Response.Write & Rs.Fields(i).Value &   f7h*Vu`>  
  next ydw)mT44K  
  Response.Write       X
U/QA [K  
  Rs.MoveNext {u1V|q  
Wend aLJ(?8M@  
Set Rs = Nothing [.RO'>2z  
end if )o-Q!<*1  
  % > t#%R q  
)X9W y!w0  
MX4]Vpv  
F":r4`5D"K  
`qd+f{Q  
转自： ASP教程采集