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

0 then n\ Hs@.  
Response.Write 错误 ： & err.description & leCVK.  
response.end ov\HsTeZ  
End if o5n^!gi4  
End Sub v-! u\  
Sub EndDB() c c  
Set objOraDB = Nothing HQ9X7[3  
Set objOraSession = Nothing W<<9y  
End Sub ~RD+.A  
Function getTableList(str) aSP4a+\*  
Dim strSql,strTmp YK
a0H%B(  
Dim objRs kHv[H]+v  
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 <s@-:;9~  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) O,
.!2wVrN  
While Not objRs.Eof I_q~*/<h  
strA = objRs(uname) & . & objRs(tname) [>|FB'  
>\!4Mk8  
If str=strA then Bu]t*$  
strTmp = strTmp & & strA & emW:C-/h/@  
Else v~/~@jv  
strTmp = strTmp & & strA & d HJhFw  
End if =@)d5^<5F  
objRs.MoveNext wIf {6z{  
Wend ,]5Ic.};p  
Set objRs = Nothing _xLHrT!y  
getTableList = strTmp X1vNF|o~  
End Function nPUqMn'  
% > k'X;ruQ:tF  
>Ng)k]G  
5%}wV,Y  
j:bgR8%e  
 a1j.fA  
All Tables : dC<LDxlv  
dC1V-x10ju  
Xq4|uuS-O  
_3Cn{{ A0  
Y$-3v.  
() D?M!ra  
xE-7P|2  
*XWq?hi  
aTzDew  
-@&1`@):{  
6/ `.(fL1  
  then :|1.seLQ  
strSql = Select * from & tblname ai*b:Q  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) q_Lo3|t i  
Response.Write nmjm<Bu  
for i=0 to rs.Fields.count-1 8I,QD` xu  
  Response.Write & rs.fields(i).name &
(3dPLp:K  
next drq hQ  
Response.Write  d^|0R  
While Not Rs.Eof \/|)HElKR  
  Response.Write *Ul*%!?D  
  for i=0 to rs.fields.count -1 0qFH s  
        Response.Write & Rs.Fields(i).Value &   MEiRj]t  
  next |3? 8)z\n  
  Response.Write       ,DnYtIERo  
  Rs.MoveNext mceG!@t  
Wend q*)+K9LRk  
Set Rs = Nothing rbqo"g`  
end if ,LOQDIyn  
  % > xdy^^3"  
smQVWs>  
_;RVe"tR#  
kWj \x|E  
,572n[-q  
转自： ASP教程采集