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

0 then 2bWUa~%B  
Response.Write 错误 ： & err.description & SV&kWbS  
response.end v#zPH5xo  
End if O'fk&&l  
End Sub |-|jf  
Sub EndDB() /E)9v$!  
Set objOraDB = Nothing iDZrK%fl  
Set objOraSession = Nothing M /"gf;)q>  
End Sub W3^.5I  
Function getTableList(str) |,3l`o
k  
Dim strSql,strTmp  7krh4  
Dim objRs EY]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 :JR<SFjm  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) for{  
While Not objRs.Eof sN-oEqS  
strA = objRs(uname) & . & objRs(tname) ]5N zK=2{  
Z #EvRC  
If str=strA then 9x(}F<L  
strTmp = strTmp & & strA & [ dGO,ndE  
Else "r@G@pe  
strTmp = strTmp & & strA & U M@naU  
End if K${}r0   
objRs.MoveNext 9X3yp:>V  
Wend T:U4:"  
Set objRs = Nothing G[#.mD{k  
getTableList = strTmp Khj=llo,  
End Function sv' Gt1&"Z  
% > i!L;? `F{  
uMHRUi  
j$+gq*I&E  
ovz#  
+I&J7ICV0  
All Tables : r]0(qg  
e[}],W  
t~ -J %$  
y5_XHi@u~o  
bjlkX[{}I  
() or7pJy%4"  
va^0JfQ  
A';n6ne%i  
' X}7]y  
@LcT-3u  
qp\BV#E  
  then [yC"el6PM  
strSql = Select * from & tblname u%xDsTDP  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) U%q:^S%#eG  
Response.Write WV2~(/hX&  
for i=0 to rs.Fields.count-1 v{.\iIg N  
  Response.Write & rs.fields(i).name &
66 N)  
next b~j~  
Response.Write 847 R   
While Not Rs.Eof %[XY67A3I  
  Response.Write ?I\v0H*  
  for i=0 to rs.fields.count -1 t=i/xG:5  
        Response.Write & Rs.Fields(i).Value &   qC..\{z  
  next V}SyD(8~  
  Response.Write       =5Wp
&SM6  
  Rs.MoveNext |YRY!V_w  
Wend 2A>C+Y[7\  
Set Rs = Nothing y^G>{?Tha  
end if o!utZmk$  
  % > 6|^0_6_  
%9X{{_  
s@s/'^`  
HUkerV  
-E]Sk&4Gj  
转自： ASP教程采集