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

0 then C/ VHzV%q  
Response.Write 错误 ： & err.description & s/t,6-~EH  
response.end zk1]?  
End if ZUj1vf6I  
End Sub \0Xq&CG=E  
Sub EndDB() #'@@P6o5  
Set objOraDB = Nothing -p0*R<t  
Set objOraSession = Nothing c0l?+:0M  
End Sub 16N|  
Function getTableList(str) S -,$ (  
Dim strSql,strTmp f/z]kfgw  
Dim objRs 'w1ll9O  
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 'k}w|gNB  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) IR3+BDE)>  
While Not objRs.Eof %qqCpg4  
strA = objRs(uname) & . & objRs(tname) ts@w9|  
/F^ Jn_  
If str=strA then 8LF=l1=~  
strTmp = strTmp & & strA & %x;~o:  
Else [OPF3W3z  
strTmp = strTmp & & strA & -1hCi!  
End if \'zloBU  
objRs.MoveNext Jj0:p"  
Wend \d.\M  
Set objRs = Nothing 3QXs
r<  
getTableList = strTmp @:Ft+*2  
End Function A:4&XRYZY  
% > C \5yo  
nxEC6Vh'  
ffI=Bt]t  
d%L/[.&  
74NL)|M  
All Tables : ./zzuKO8XK  
vo:h"ti  
*6][[)(  
*T}c{/  
6)ysiAH?  
() w87$p821  
H}&JrT95  
"Q\b6 7Ch  
wmX(%5vY^  
rmC7!^/  
}4piZ ch  
  then eu]qgtg~U  
strSql = Select * from & tblname a6A~,68/V  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 3&"uf9d  
Response.Write M@G\b^"  
for i=0 to rs.Fields.count-1 7/KK}\NE  
  Response.Write & rs.fields(i).name & f`rI]v|@  
next Pd;8<UMk  
Response.Write x1Z'_Qw  
While Not Rs.Eof pI.8Ip_r  
  Response.Write u^i3@JuX  
  for i=0 to rs.fields.count -1 .qf~t/o  
        Response.Write & Rs.Fields(i).Value &   :)4c_51 `  
  next NU'2QSU8  
  Response.Write       \R-'<kN.*  
  Rs.MoveNext C]3:&dx9  
Wend \|B\7a'4  
Set Rs = Nothing U|QP]6v  
end if ~PAI0+*"q  
  % > a-nn[j  
Gf
+X<a  
9GT}_ ^fb  
!?J-Y  
5-H"{29  
转自： ASP教程采集