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

0 then Y83GKh,*  
Response.Write 错误 ： & err.description & M+Uyb7  
response.end %1}6q`:w  
End if gv.6h{Ut  
End Sub g8pO Lr'  
Sub EndDB() ;JTt2qQKo  
Set objOraDB = Nothing M$S]}   
Set objOraSession = Nothing \3zj18(@8!  
End Sub !1Y&Y@ze  
Function getTableList(str) b"CAKl  
Dim strSql,strTmp :1aL ?  
Dim objRs bS^WhZy'(  
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 @WOM#Kc  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) vq'k|_Qi=  
While Not objRs.Eof =/9^, 6Q(  
strA = objRs(uname) & . & objRs(tname) q]c5MlJXF  
p*qPcuAA  
If str=strA then SW 8x]B  
strTmp = strTmp & & strA & \8v91g91
f  
Else h*l&RR:i  
strTmp = strTmp & & strA & w
po1  
End if ^k/i-%k0  
objRs.MoveNext Op}ZB:  
Wend ^DAu5|--R  
Set objRs = Nothing 0D~ Tga)  
getTableList = strTmp
|m*.LTO  
End Function m&Yi!7@(  
% > jai|/"HSXw  
I.jZ wW!r  
8l+H"M&|  
%s=Dj2+  
%J7UP4  
All Tables : .#w6%c@  
lK(Fg  
(Tvcq  
7+,vTsCd  
$dg9z}D  
() c:hK$C)T  
Gt-UJ-RR y  
vNDu9ovs-  
3Qn!y\#  
M {a #  
Le#spvV3J|  
  then 1|| nR4yK  
strSql = Select * from & tblname vF={9G  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) m5c&&v6%"b  
Response.Write pbBoy+.>  
for i=0 to rs.Fields.count-1 {|<"C?  
  Response.Write & rs.fields(i).name & T3,1m=S  
next K`6z&*  
Response.Write :%4imgY`  
While Not Rs.Eof :8f[|XR4\N  
  Response.Write E3l*8F%<3  
  for i=0 to rs.fields.count -1 TkRP3_b  
        Response.Write & Rs.Fields(i).Value &   Jfhk@27T  
  next v/QUjXB
r  
  Response.Write       !]koSw}  
  Rs.MoveNext W<,F28jI3v  
Wend -1%OlKC  
Set Rs = Nothing 5LW}h^N  
end if 4,P bg|  
  % > >s EjR!  
X(AN)&L[  
n=sXSxl  
ig#r4nQ=  
l* dV\ B  
转自： ASP教程采集