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

0 then i2)$%M&  
Response.Write 错误 ： & err.description & ;IT'6m`@W  
response.end [1e/@eC5  
End if 5hDm[*
83  
End Sub bW
GMgC  
Sub EndDB() Rf!$n7& \  
Set objOraDB = Nothing  ,}^FV~  
Set objOraSession = Nothing Rz<'&Z>;  
End Sub "!#KQ''R  
Function getTableList(str) H96|{q=  
Dim strSql,strTmp Jb|dpu/e  
Dim objRs k7nke^,|  
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 ?{1& J9H  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) $L72%T  
While Not objRs.Eof F>k/;@d  
strA = objRs(uname) & . & objRs(tname) LP>GM=S#"  
4@jX{{^6%  
If str=strA then Upc_"mkI.  
strTmp = strTmp & & strA & &8JK^zQq  
Else k P=~L=cK  
strTmp = strTmp & & strA & `cFNO:  
End if DLoH.Fd  
objRs.MoveNext FY,)iZ}Pq  
Wend 6^,
;^  
Set objRs = Nothing MwD8a<2Dg  
getTableList = strTmp LKM;T-  
End Function K*tomy  
% > xE6hE'rh.O  
*3(mNpi{_  
T?*f}J  
5~RR _G  
M ~6$kT  
All Tables : lG`%4}1  
3oPyh $*  
`dgZ`#  
fjqd16{Q  
O]?PC^GGY  
() N LSJ D  
kq>I?wg  
L1MG("R  
=<r1sqf  
XJA];9^  
Z1U@xQj  
  then r
otu#?B  
strSql = Select * from & tblname CE|rn8M
B  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Lr*\LP6jx3  
Response.Write YN7JJJ/~T  
for i=0 to rs.Fields.count-1 }k@SmO8  
  Response.Write & rs.fields(i).name & 8M7Bw[Q1  
next
$AdBX}{  
Response.Write =A_fL{ SM  
While Not Rs.Eof +EH"A  
  Response.Write [`!%u3  
  for i=0 to rs.fields.count -1 n"Wlfd0  
        Response.Write & Rs.Fields(i).Value &   a-NicjV#  
  next V=H:`n3k  
  Response.Write       Bm+Ca:p%  
  Rs.MoveNext +?6@%mW'  
Wend Bk/&H-NI  
Set Rs = Nothing && b;Wr  
end if :c9 H2  
  % > 2k^'}7G%  
|Zdl[|kX  
[G"Va_A8  
5Rae?*XH  
kTm}VTr 1  
转自： ASP教程采集