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

0 then Zb=NcEPGy  
Response.Write 错误 ： & err.description & Y:;_R=M  
response.end y!gPBkG&3n  
End if `[5xncZ-  
End Sub uX_#NP/2  
Sub EndDB() v_5qE  
Set objOraDB = Nothing yS~Y"#F!.  
Set objOraSession = Nothing y\^zxG*]'  
End Sub [<f2h-V$  
Function getTableList(str) }d}gb`Du  
Dim strSql,strTmp 39 }e }W"  
Dim objRs @>O7/d?O  
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 [T r7SU#x  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) Dst;sLr[,  
While Not objRs.Eof ^WB[uFt-  
strA = objRs(uname) & . & objRs(tname) ,nYa+
e  
?I^$35  
If str=strA then h@R n)D  
strTmp = strTmp & & strA & HjA~3l7  
Else E~}H,*)  
strTmp = strTmp & & strA & $a~  
End if N9M}H#  
objRs.MoveNext TNqL ')f  
Wend 4j3_OUwWZx  
Set objRs = Nothing ivgX o'=  
getTableList = strTmp ;xiN<f4B  
End Function )8oyo~4?  
% > .t\J@?Z  
L;opQ~g  
ra*|HcLD  
6<W^T9}v@/  
h>!h|Ma  
All Tables : :epBd3f  
A x8>  
>I@&"&d  
Q.$8>)  
R?)Yh.vi=t  
() 5/P. 4<c7  
X'$H'[8;C  
|u%;"N'p)  
1R@G7m  
#9TL5-1y  
Se!w(Y&  
  then J'WzEgCnU  
strSql = Select * from & tblname }}k%.Qb  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) x~}&t+FK  
Response.Write x} =,'Ko}3  
for i=0 to rs.Fields.count-1 cZN<}n+q  
  Response.Write & rs.fields(i).name & h!dij^bD  
next 17'd~-lE  
Response.Write t8RtJ2;  
While Not Rs.Eof eg*aVb  
  Response.Write )8^E{w^D}  
  for i=0 to rs.fields.count -1 T^^7@\vDI  
        Response.Write & Rs.Fields(i).Value &   =M?+KbTJ3  
  next }R+#>P  
  Response.Write       VvIUAn  
  Rs.MoveNext _
"p(/H  
Wend q(~jP0pj%  
Set Rs = Nothing /F.<Gz;w  
end if f`ibP6%  
  % > mxCneX  
*^@b0f~vj  
>uZc#Zt  
k 76<CX  
CP9Q|'oJ  
转自： ASP教程采集