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

0 then w\V1pu^6@  
Response.Write 错误 ： & err.description & 3(2WO^zX {  
response.end _ MsO2A  
End if 2/WtOQIB  
End Sub PpXzWWU":  
Sub EndDB() GGM|B}U p  
Set objOraDB = Nothing [zC1LTXe  
Set objOraSession = Nothing CdEQiu  
End Sub P}`|8b1W  
Function getTableList(str) &7\=Jw7w  
Dim strSql,strTmp +N6IdDN3  
Dim objRs $ol]G`+  
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 _+sb~  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) %w
Fz4:  
While Not objRs.Eof 8ln{!,j;  
strA = objRs(uname) & . & objRs(tname) N F$k~r  
QJ i5H  
If str=strA then h 8%(,$*  
strTmp = strTmp & & strA & 7$"A2x  
Else "*U0xnI  
strTmp = strTmp & & strA & x5w5xw  
End if &nV/XLpG  
objRs.MoveNext }}
Zwdpo  
Wend |?cL>]t  
Set objRs = Nothing ~mF^t7n]  
getTableList = strTmp 3# g"Z7/  
End Function D%`O.2T Y|  
% > !1b}M/Wx  
[X9T$7q#  
DX2_}|$!  
c>|1%}"?  
cp:U@Nh(  
All Tables : 40e(p/Qka  
"|Ke/0rGB  
f};RtRo2  
o5@d1A  
Z bW!c1s{  
() bcR";cE  
]/9@^D}&  
x/pX?k  
ybC0Ee@  
Aaw]=8 OI  
~hZr1hT6L  
  then m >Rdsn~l  
strSql = Select * from & tblname A_!N,<-  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) H9\,;kM)  
Response.Write "u.
'JE;j  
for i=0 to rs.Fields.count-1 /Hs\`Kg"!  
  Response.Write & rs.fields(i).name & I[6ft_*  
next w4Uo-zr@  
Response.Write h]Y,gya[yk  
While Not Rs.Eof +C}s"qrb@  
  Response.Write 9xN`  
  for i=0 to rs.fields.count -1 HJi FlL3  
        Response.Write & Rs.Fields(i).Value &   WaPuJ5;e  
  next {X\%7Zef+  
  Response.Write       Zg*XbX  
  Rs.MoveNext
a'%eyN  
Wend 
;b5^)S  
Set Rs = Nothing .GSK!
1{@  
end if s||c#+j"8  
  % > >"q?P^f/  
c W1`[b  
j].=,M<dxE  
yMz dM&a!*  
LE|DMz|J  
转自： ASP教程采集