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

0 then }1+%_|Y-E  
Response.Write 错误 ： & err.description & @kD8^,(oH  
response.end 'PdmI<eXQ  
End if &d`^E6#  
End Sub j nwQV  
Sub EndDB() >Cd9fJ&0gP  
Set objOraDB = Nothing FquFRx  
Set objOraSession = Nothing kReG:  
End Sub EY>8O+  
Function getTableList(str) #I`ms$j%  
Dim strSql,strTmp ,=[*Lo>O  
Dim objRs kRIB<@{  
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 L*]E`Xxd9  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) :,*eX' fH  
While Not objRs.Eof m$y]Lf  
strA = objRs(uname) & . & objRs(tname) &:?e&  
#w3ru6*W  
If str=strA then r>qA $zD^  
strTmp = strTmp & & strA & Na!za'qk[o  
Else [^PCm Z6n  
strTmp = strTmp & & strA & nbvkP  
End if r!/0 j)  
objRs.MoveNext Gm=>!.p  
Wend -4L!k'uR  
Set objRs = Nothing , &' Y  
getTableList = strTmp Ex($  
End Function q/6UK =  
% > <lFY7'aY  
6`puTL?  
|ViU4&d*  
u2qV6/  
C*wdtEGq  
All Tables : j|'R$|  
a[O6YgO  
-0~IY  
kP,7Li\  
0
U&dq#  
() dm^H5D/A  
*PB/iVH%6  
Hql
5oA  
\C\gn]Z  
-Z?Ck!00  
6/y*2z;  
  then R#6H'TVE  
strSql = Select * from & tblname  ~u/@rqF  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) G\/IM  
Response.Write k46gY7y,9  
for i=0 to rs.Fields.count-1 b:B[3|  
  Response.Write & rs.fields(i).name & A +!sD5d  
next k&DGJ5m$.  
Response.Write FX 1C e  
While Not Rs.Eof iB{xvyR  
  Response.Write y\_wWE  
  for i=0 to rs.fields.count -1 )q(:eoLDm  
        Response.Write & Rs.Fields(i).Value &   LkaG[^tfN  
  next U(3(ZqP  
  Response.Write       /oDpgOn  
  Rs.MoveNext IgA.%}II}  
Wend J8h7e}n?  
Set Rs = Nothing s-5wbi.C  
end if 9UmBm#"  
  % > z_)`g`($  
"w^Nu6  
pDhY%w#  
4Bo<44-,  
$F1_^A[  
转自： ASP教程采集