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

0 then `t~jHe4!Y  
Response.Write 错误 ： & err.description & { qNPhi  
response.end A9$x8x*Lt  
End if %=`JWLLG  
End Sub zfeT>S+  
Sub EndDB() ky2 bj}"p9  
Set objOraDB = Nothing HC%Hbc~S_Q  
Set objOraSession = Nothing 5X)
8Nwbc  
End Sub H@Z_P p?  
Function getTableList(str) ?h= n5}Y  
Dim strSql,strTmp C$OVN$lL`8  
Dim objRs 6>a6;[  
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 h: ' |)O  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) @rTB&>`  
While Not objRs.Eof Zse&{  
strA = objRs(uname) & . & objRs(tname) 3 jZMXEG)  
G,u=ngZ]  
If str=strA then B*(]T|ff<  
strTmp = strTmp & & strA & zB~<@  
Else 
Lhe&  
strTmp = strTmp & & strA & #kq!{5,  
End if "QiR  
objRs.MoveNext a.}#nSYP  
Wend !2l2;?jM  
Set objRs = Nothing ck5cO-1>6  
getTableList = strTmp 4gsQ:3  
End Function nReld :#T  
% > J'$NBws  
wCruj`$  
%xOxMK@  
)H{1Xjh-  
._^ne=Lx  
All Tables : tZz
%x?3G  
;p`to"6IFD  
'5De1K.\`  
HbsNF~;  
'yq?xlIj  
() %HoD)OJe  
jS##zC  
UGy3B)  
i\ X3t5  
"g&f:[a/  
WcNQF!f  
  then R^o535pozc  
strSql = Select * from & tblname $S|+U}]C  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) C|TQf8  
Response.Write 1J"I.  
for i=0 to rs.Fields.count-1 ~1wt=Ln>  
  Response.Write & rs.fields(i).name & }3X/"2SW^  
next T :d+Qz\  
Response.Write ;Jg$C~3tf  
While Not Rs.Eof ,#3Aaw   
  Response.Write <KU0K  
  for i=0 to rs.fields.count -1 v7wyQx+Q  
        Response.Write & Rs.Fields(i).Value &   [07E-TT2U  
  next [1P_^.Htr  
  Response.Write       ]$r]GVeN}H  
  Rs.MoveNext ZF[W<Q  
Wend !~~KM?g  
Set Rs = Nothing S*h^7?Bu  
end if Y$v#>w_M  
  % > ~^Cx->l  
SefhOh^,V  
h$!YKfhq}
 
mnK<5KLg1  
1Ys=KA-!_x  
转自： ASP教程采集