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

0 then SWw!s&lP&  
Response.Write 错误 ： & err.description & =-Hhm($n  
response.end iT&4;W=72~  
End if ((`\i=-o5  
End Sub >bWpj8Kv  
Sub EndDB() ?jz\[0)s  
Set objOraDB = Nothing Q>4NUq  
Set objOraSession = Nothing wL~AL  
End Sub =iB[sLEJ  
Function getTableList(str) 3!F^vZ.  
Dim strSql,strTmp U+'zz#0qN  
Dim objRs .+S%hT,v6i  
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 j~Pwt9G  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 2'=)ese  
While Not objRs.Eof Ra53M!>]  
strA = objRs(uname) & . & objRs(tname) H_@6!R2  
Ba
?1q%eG  
If str=strA then b;D  
strTmp = strTmp & & strA & #C }+  
Else JYj*.Q0  
strTmp = strTmp & & strA & mC@v,"  
End if hpXW tQ  
objRs.MoveNext MJX4;nbl  
Wend %Qz<Lk">.  
Set objRs = Nothing 5ph CEKt;  
getTableList = strTmp @8{8|P  
End Function g%=K rO  
% > P !f{U;B  
+x

{o
 
w_>\Yd[  
BegO\0%+  
-zYa@PW  
All Tables : e46`"}r  
9Vq  
ma-GvWD2  
p4IyKry,  
?J
+jv  
() Z[VrRT,\c  
5cf?u3r!qJ  
0`.&U^dG  
s%y<FXUj  
&8f/6dq
 
xU%]G.k  
  then VF11eZ"  
strSql = Select * from & tblname Tv'1IE  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) } *)l  
Response.Write pjS##pgVq  
for i=0 to rs.Fields.count-1 DM v;\E~D  
  Response.Write & rs.fields(i).name & !BW!!/U  
next ):4)8@]5M  
Response.Write g&$5!ifgi  
While Not Rs.Eof k(tB+k!vH\  
  Response.Write %pWJ2J@  
  for i=0 to rs.fields.count -1 6d8)]  
        Response.Write & Rs.Fields(i).Value &   bxPa|s?  
  next N:Q.6_%^  
  Response.Write       |1 qrU(  
  Rs.MoveNext TDfloDxA  
Wend "LDNkw'  
Set Rs = Nothing #t1? *4.p  
end if SJ22
 
  % > @I
1*b>X~<  
X&aQR[X  
Ff0V6j)ji  
L-U4 8 i  
n%\\1  
转自： ASP教程采集