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

0 then <vd}oiB
@  
Response.Write 错误 ： & err.description & DaqlL  
response.end &'u%|A@  
End if |y&vMx~t  
End Sub 0Ok[`r`  
Sub EndDB() uTvf[%EHW  
Set objOraDB = Nothing
L
s'8  
Set objOraSession = Nothing (5kL6d2  
End Sub qRXHaQi@9  
Function getTableList(str) nPhREn!  
Dim strSql,strTmp BC R]K  
Dim objRs vdd>\r)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 1rV9dM#F  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) Iv/h1j> H  
While Not objRs.Eof 1;HL=F
  
strA = objRs(uname) & . & objRs(tname) |nY+Nen7  
7-mo\jw<  
If str=strA then GQ}R
xu]  
strTmp = strTmp & & strA & !,{-q)'D  
Else l"%WXi"X  
strTmp = strTmp & & strA & YGhHIziI  
End if Mo\nY5  
objRs.MoveNext 64D4*GQ  
Wend S*%:ID|/C2  
Set objRs = Nothing 6>b'g ~I  
getTableList = strTmp $'KhA6u  
End Function tD])&0"(  
% > Ryn@">sVI  
v1$}JX  
d.k'\1o  
Tj=@5lj0  
=cxG4R1x  
All Tables : iOiXo6YE  
c+jnQM'  
|UN#utw{^Y  
4|NcWpaV7  
'Me(qpsq  
() i|fkwV,5  
]#dZLm_  
^?T,>ZI  

EHm:&w  
PRK*7-(
 
\{1Vjo  
  then m^4Ojik  
strSql = Select * from & tblname ]CgZt'h{  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) vr$z6m ^  
Response.Write SpZmwa #\  
for i=0 to rs.Fields.count-1 uU1q?|4  
  Response.Write & rs.fields(i).name & i>;6Z s>S  
next @@|H8mP}H  
Response.Write P> ~Lx  
While Not Rs.Eof uQkQ#'e|  
  Response.Write r`C t/]c  
  for i=0 to rs.fields.count -1 #}xPOz7:  
        Response.Write & Rs.Fields(i).Value &   }:+P{  
  next j{P3o<l&`  
  Response.Write       g'V,K\TG  
  Rs.MoveNext ~q{QquYV  
Wend 2^&5D,}
0  
Set Rs = Nothing OoR0>!x Z  
end if kYkck]|  
  % > UFUm-~x`  
iD2>-yf  
.T}S[`Yx5  
 U66oe3W  
*1_A$14l  
转自： ASP教程采集