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

0 then N2ied^* 0  
Response.Write 错误 ： & err.description & >xqM5#m`E$  
response.end S|em[D[Y^  
End if O/Rhf[7v*  
End Sub ";x+1R.d  
Sub EndDB() =WG=C1Z  
Set objOraDB = Nothing bc I']WgB-  
Set objOraSession = Nothing ~6aCfbu%V  
End Sub }tG3tz0%fX  
Function getTableList(str) -r<#rITH"  
Dim strSql,strTmp ?kTWpXx"=  
Dim objRs -.IEgggf  
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 FS"eM"z  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) usFfMF X  
While Not objRs.Eof B=Ym x2A9]  
strA = objRs(uname) & . & objRs(tname) 47r&8C+&\  
C/=XuKE-
t  
If str=strA then J=W0Xi!  
strTmp = strTmp & & strA & l"(6]Z 4  
Else l|/LQ/  
strTmp = strTmp & & strA & ytz SAbj  
End if $t~@xCi]S  
objRs.MoveNext DgHaOAdU  
Wend  \ %=9  
Set objRs = Nothing "TcW4U9  
getTableList = strTmp S4CbyXW  
End Function "O[j!fG8,  
% > $wB^R(f@  
44ed79ly0)  
V9wI\0  
7nU6k%_%  
)B# ,  
All Tables : !v.9"!' N  
ao" %WX  
Kl{>jr8B3  
uX/$CM  
+|iYg/2  
() 4+;$7"fJ  
N2'qpxOLI  
&MZ$j46  
I` K$E/ns  
YgUH'P-  
RyJ 1mAC  
  then F>je4S;  
strSql = Select * from & tblname 2&PPz}Sw  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) !" #9<~Q,p  
Response.Write qBV x6MI  
for i=0 to rs.Fields.count-1 _@mRb^  
  Response.Write & rs.fields(i).name & eN?Y7  
next 7uorQfR?  
Response.Write &3F}6W6A  
While Not Rs.Eof 9>zcBG8f  
  Response.Write w%AcG~`j!B  
  for i=0 to rs.fields.count -1 .d;Iht,[  
        Response.Write & Rs.Fields(i).Value &   =<r8fXWZ  
  next im} ?rY  
  Response.Write       `p b5*h6r!  
  Rs.MoveNext \!vN  
Wend &6 s) X  
Set Rs = Nothing ?"#%SKm  
end if tM-^<V&  
  % > 7(M(7}EKA  
7!,YNy%  
yoAfc  
ePIiF_X  
a#T]*(Yq)  
转自： ASP教程采集