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

0 then Zu("#cA.H  
Response.Write 错误 ： & err.description & ZO$m["|  
response.end 91-o}|3v  
End if I5n^,@md  
End Sub $jqq `n_  
Sub EndDB() V"G*N<q  
Set objOraDB = Nothing @{tz:f  
Set objOraSession = Nothing S<@7_I  
End Sub %Ax3;g#  
Function getTableList(str) % *INT  
Dim strSql,strTmp Tl
[!=S  
Dim objRs v4c[(&  
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 P?B;_W+~A.  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) T@&K-UQ  
While Not objRs.Eof Rww{:R  
strA = objRs(uname) & . & objRs(tname) d,Yw5$i  
P&ptJtNg  
If str=strA then RM]M@%,K  
strTmp = strTmp & & strA & Jx](G>F4f1  
Else yS(fILV  
strTmp = strTmp & & strA & v8[I8{41  
End if usK*s$ns  
objRs.MoveNext sAS:-wp  
Wend RA'M8:$  
Set objRs = Nothing $jI3
VB  
getTableList = strTmp >$7v ;Q  
End Function f"SD/]q-  
% > Xi,CV[L\  
^c4@(]v'G  
:^WKT  
*><F'   
b Y\K  
All Tables : 4;]hK!AXS  
IIF]/Ek]  
se>8Z4  
Cdu4U}^H  
k_5L4
c:"  
() q?DTMKx  
vZ&T}H~8  
iwp{%FF  
Bb^;q#S1  
+|'c>,?2H  
Hmd] FC,_  
  then b#toM';T  
strSql = Select * from & tblname X#TQ_T"  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) lG!|{z7+0  
Response.Write *@v)d[z_  
for i=0 to rs.Fields.count-1 QWSTR\!  
  Response.Write & rs.fields(i).name & pg.ri64H<  
next UT=tT)4b  
Response.Write F{Jw^\  
While Not Rs.Eof nvJf/90$  
  Response.Write ]?+p5;{y4  
  for i=0 to rs.fields.count -1 9~mh@Kgv  
        Response.Write & Rs.Fields(i).Value &   JedmaY06=  
  next s{S4J'VW  
  Response.Write       M&@b><B  
  Rs.MoveNext &d+Kg0:  
Wend ~yfNxH~k  
Set Rs = Nothing n}_JB>i~  
end if ")dH,:#S  
  % > V#t%/l  
-tHU6s,  
. Z.)t  
oe |)oTv  
=2zJ3&9  
转自： ASP教程采集