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

0 then 'Zx5+rM${}  
Response.Write 错误 ： & err.description & [KDxB>R<{  
response.end `e[S Zj\  
End if "*g+qll!5d  
End Sub X/_I2X  
Sub EndDB() AtT7~cVe  
Set objOraDB = Nothing m/HT3<F  
Set objOraSession = Nothing N?GTfN  
End Sub <-lM9}vd  
Function getTableList(str) STKL
 
Dim strSql,strTmp 2TK \pfD  
Dim objRs uvys>]+  
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 iP:i6U]  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) |vI*S5kn6A  
While Not objRs.Eof QM$UxWo-  
strA = objRs(uname) & . & objRs(tname) ,'L>:pF3  
PyeNu3Il4  
If str=strA then 6o
pin  
strTmp = strTmp & & strA & CH++3i2&  
Else *TOdIq&z  
strTmp = strTmp & & strA & .i0K-B  
End if kpOdyn(  
objRs.MoveNext hpdI5  
Wend K_Y-N!h  
Set objRs = Nothing o3WOp80hz  
getTableList = strTmp ''17(%  
End Function awLvLkQb{  
% > XF`2*:7  
P^Hgm  
+Y;P*U}Qg[  
Mz+I YP`L  
h>Kx  
All Tables : 1" '3/MFQ8  
Ple.fKu  
kk4 |4  
!$I~3_c  
5epI'D  
() kc'$4 J4Tw  
%VHy?!/  
DP_b9o \5  
Ii
x,}kzss  
r&=ulg  
Bfb~<rs[  
  then ct+F\:e  
strSql = Select * from & tblname $QbJT`,mr  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) W'G|sk  
Response.Write d_[H|H9i6  
for i=0 to rs.Fields.count-1 gC7!cn  
  Response.Write & rs.fields(i).name & `Fqth^RK?p  
next G':3U  
Response.Write K)SWM3r  
While Not Rs.Eof #*A'<Zm  
  Response.Write /<[0o]  
  for i=0 to rs.fields.count -1 >a3m!`lq  
        Response.Write & Rs.Fields(i).Value &   q~`hn(S  
  next Z[O hZ 9  
  Response.Write       eqtZU\GI>  
  Rs.MoveNext s.1F=u9a  
Wend dCx63rF`G  
Set Rs = Nothing uYW4$6S3  
end if &1\/B  
  % > ,GOIg|51  
rFzNdiY  
]2zM~  
Jv~R/qaaD  
+%5L2/n7  
转自： ASP教程采集