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

0 then >P<z |8  
Response.Write 错误 ： & err.description & ,b4):{  
response.end I"ca+4]  
End if =~J
"kC  
End Sub Rl_.;?v"!  
Sub EndDB() J?Ck4dQ  
Set objOraDB = Nothing EdEoXY-2  
Set objOraSession = Nothing pT4qPta,2  
End Sub !\CG,Ek  
Function getTableList(str) |*:tyP%m^  
Dim strSql,strTmp hUVk54~l  
Dim objRs 5U%MoH  
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 !:(C"}5wM  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 9C_*3?6  
While Not objRs.Eof vQUZVq5M  
strA = objRs(uname) & . & objRs(tname) <EtUnj:qK8  
cVp[ Z#B  
If str=strA then =HVfJ"vK  
strTmp = strTmp & & strA & 25d\!3#E  
Else Yx5J$!Ld  
strTmp = strTmp & & strA & %`#G92Z_  
End if a mqOxb  
objRs.MoveNext 4otl_l(`yv  
Wend *C\(wL  
Set objRs = Nothing lW p~t  
getTableList = strTmp ^|#>zCt^  
End Function a:A n=NA  
% > 5G#$c'A{4  
RdgVBG#Z1  
Vvyj  
wUoiXi09  
)GVBE%!WEd  
All Tables : 2{-!E ^g  
abBO93f^  
bni)Qw  
PL@~Ys0
  
NPm;  
() Q"%S~&#'  
)C
Lf;@1  
(S|a 9#  
%:3'4;jh%  
w?*z^y@  
6PU/{c  
  then &~ *.CQa  
strSql = Select * from & tblname Stxp3\jEn  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) i5"5&r7r  
Response.Write xvmt.
>f  
for i=0 to rs.Fields.count-1 ;L~p|sF  
  Response.Write & rs.fields(i).name & BC! 6O/
kr  
next (WRMaI72(  
Response.Write vT c7an6fy  
While Not Rs.Eof )JhT1j
Qc  
  Response.Write *%\mZ,s"  
  for i=0 to rs.fields.count -1 #6=MKpR  
        Response.Write & Rs.Fields(i).Value &   E9+HS  
  next >;4!O%F  
  Response.Write       S`m,S4-eD  
  Rs.MoveNext h?Nek+1'  
Wend OQp, 3M{_  
Set Rs = Nothing +-BwQ{92[:  
end if #DFp[\)1  
  % > B+] D5K  
2-dh;[
4  
nPFwPk8=M  
J;}3t!  
c8ZA5|  
转自： ASP教程采集