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

0 then o"\{OX  
Response.Write 错误 ： & err.description & L:i+}F;M)s  
response.end fzyzuS$  
End if 9 R  
End Sub %}ixgs7*c0  
Sub EndDB() c(CJ{>F%  
Set objOraDB = Nothing !%V*UR9  
Set objOraSession = Nothing ]Ly8s#<g]N  
End Sub D$mf5G &  
Function getTableList(str) q^%5HeV 2  
Dim strSql,strTmp 4a?r` '  
Dim objRs ivD^HhG  
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 RJL
Fj  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) CZ2iJy  
While Not objRs.Eof pW7kj&a_.  
strA = objRs(uname) & . & objRs(tname) ~Zu}M>-^c,  
YLigP"*~^  
If str=strA then Qj:{p5H'  
strTmp = strTmp & & strA & rXuAixu!t  
Else u X>PefR  
strTmp = strTmp & & strA & -?Ejbko  
End if Stt* 1gT  
objRs.MoveNext g/!Otgfu  
Wend n{3|E3  
Set objRs = Nothing {RH*8?7  
getTableList = strTmp =<T
O"  
End Function u,\xok"  
% > @T_O6TcY  
pb6 Q?QG,  
p#z;cjfSt  
7Y)s#FJ  
)#Y|ngZ_>  
All Tables : Ae.]F)w_\  
jXtLo,km  
y6bjJ}  
GgT=t)}wu  
BJ"Ay@D*  
() |fx#KNPf]  
a~6ztEhGm  
FR
c |D  
u^!&{q  
aam1tm#Q  
#.~.UHt  
  then vrQFx~ZztH  
strSql = Select * from & tblname UQSX<6"  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ]S*E  
Response.Write p FXd4*  
for i=0 to rs.Fields.count-1 C CLfvex  
  Response.Write & rs.fields(i).name & 2YaTT& J  
next gW/QFZjY  
Response.Write Y7*'QKz2  
While Not Rs.Eof xcsFODx~  
  Response.Write Vvxa.B  
  for i=0 to rs.fields.count -1 8xc8L1;  
        Response.Write & Rs.Fields(i).Value &   DS.39NY  
  next )H.ubM1  
  Response.Write       vI4%d,  
  Rs.MoveNext 3
KDu!w@  
Wend 4
S^  
Set Rs = Nothing u!m,ilAnd  
end if =%:JjgKc*t  
  % > 0c%@e2(N  
8+=p8e~An  
Mr#oT?  
;b{pzIe=F  
,<`|-oa  
转自： ASP教程采集