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

0 then  0c{N)  
Response.Write 错误 ： & err.description & #/:[ho{JQ  
response.end {R#nGsrt;  
End if eQc!@*:8U  
End Sub XBc+_=)$  
Sub EndDB() Nwc(<  
Set objOraDB = Nothing D(&OyZ~Q+  
Set objOraSession = Nothing r*g _  
End Sub Ne[O9D 7  
Function getTableList(str) giTlXz3D9  
Dim strSql,strTmp %ry>p(-pC(  
Dim objRs lA1R$  
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 JDP#tA3  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) @bPJ}C  
While Not objRs.Eof Txxc-$z  
strA = objRs(uname) & . & objRs(tname) P8EGd}2{8  
N@VD-}
E  
If str=strA then jzV#%O{`  
strTmp = strTmp & & strA & 9\;EX  
Else ks{s Q@~  
strTmp = strTmp & & strA & C }[u[)  
End if :Cuae?O,  
objRs.MoveNext VjnSi  
Wend K{iY
p4pU  
Set objRs = Nothing .UDZW*  
getTableList = strTmp &#;,P:.'  
End Function vxgm0ZOMN  
% > 2H /a&uo@n  
SX4p(t  
I@\{6
hw  
3o?Lz7L  
$D89|sy  
All Tables : spI{d!c  
D3Mce|t^  
ygPZkvZ  
iaC$K@a{  
E|TzrH  
() ~% c->\Q  
w.3R1}R  
iO@wqbg$6  
=_86{wlk  
%Xi%LUk{  
8 2qe|XD4p  
  then Xu$*ZJ5w  
strSql = Select * from & tblname 3l^pY18H'  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) n5i}J/Sa2  
Response.Write HI?>]zz|  
for i=0 to rs.Fields.count-1 o]Ki+ U  
  Response.Write & rs.fields(i).name & $_VD@YlAp  
next YU`{  
Response.Write b-Hn=e_  
While Not Rs.Eof L_~G`Rb3  
  Response.Write u|ZO"t  
  for i=0 to rs.fields.count -1 B/71$i
 
        Response.Write & Rs.Fields(i).Value &   "f3>20}  
  next /[s$A?  
  Response.Write       $CmTsnR1#y  
  Rs.MoveNext wnX6XyUH  
Wend A
3n"zxU  
Set Rs = Nothing Ixw,$%-]y6  
end if _=]
FJhO  
  % > +M*a.ra0OF  
hD*?\bBs0  
|2# Ro*  
6yb<4@LOb  
[h1{{Nb#ez  
转自： ASP教程采集