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

0 then ^<CVQ8R7  
Response.Write 错误 ： & err.description & A`Z/B[)  
response.end B}iEhWO6  
End if 3PNdc}h&#  
End Sub ODxZO3  
Sub EndDB() al9wNtMT  
Set objOraDB = Nothing |3'  
Set objOraSession = Nothing nqyD>>  
End Sub G\@pg;0|y  
Function getTableList(str) j]BRfA  
Dim strSql,strTmp MUrPr  
Dim objRs =fcg4h5(  
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 :>1nkm&Eg  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) j7~FR{:j  
While Not objRs.Eof &jP1Q3  
strA = objRs(uname) & . & objRs(tname) 4@PA+(kvS  
1F@j?)(  
If str=strA then R/+$ :  
strTmp = strTmp & & strA & >pv.,cj  
Else .{V"Gn9!  
strTmp = strTmp & & strA & XnyN*}8  
End if G4)~p!TSQ  
objRs.MoveNext \vA*dQ-  
Wend &W2*'$j"_  
Set objRs = Nothing ;]dD\4_hK  
getTableList = strTmp Qm%PpQ^Lz3  
End Function !zA@{gvEc  
% > Hb)FeGsd).  
Y sM*d  
<`}P
 
Og\k5.! ,  
^D+J k8  
All Tables : 6_j |@  
>P/36'  

~aob@(  
[l23b{  
n:5M E*  
() EW `hL~{  
-o ).<&#  
ZVjB$-do  
u^Q`xd1  
MEDh  
%* "+kwZ  
  then I|@+O#  
strSql = Select * from & tblname -#v~;Ci  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 6nx\|F  
Response.Write ]fyfL|(;  
for i=0 to rs.Fields.count-1 aO'#!k*R  
  Response.Write & rs.fields(i).name & y* +y&  
next `w@:h4f  
Response.Write 9K+>;`  
While Not Rs.Eof \@<7Vo,  
  Response.Write jI-a+LnEm  
  for i=0 to rs.fields.count -1 GY~$<^AK  
        Response.Write & Rs.Fields(i).Value &   wI%M3XaBws  
  next S=UuEmU5N  
  Response.Write       fUT[tkb/!  
  Rs.MoveNext tB_le>rhl  
Wend  384n1?  
Set Rs = Nothing QYH-"-)  
end if <kn2
 
  % > qE
)FQeN  
<L
}@p8Lq  
=?i?-6M  
? x)^f+:9|  
gQnr.  
转自： ASP教程采集