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

0 then E^C [G)7n  
Response.Write 错误 ： & err.description & -?L3"rxAP  
response.end CuFlI?~8 z  
End if RV>n Op}R  
End Sub 4&<zkAMR  
Sub EndDB() f3SAK!V+s  
Set objOraDB = Nothing 30{+gYA  
Set objOraSession = Nothing xzb{g,c   
End Sub Exz(t'  
Function getTableList(str) i;<K)5Z  
Dim strSql,strTmp bC,SE*F\  
Dim objRs 1[]V @P^  
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 Q94p*]W"  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ,GMuq_H  
While Not objRs.Eof H><! C  
strA = objRs(uname) & . & objRs(tname) A",Xn/d  
}w5`Oig[  
If str=strA then q9B5>Ye)  
strTmp = strTmp & & strA & 6.M!WK{+  
Else lTJM}K  
strTmp = strTmp & & strA & 6Z!OD(/e  
End if z<u@::  
objRs.MoveNext Dw&_6\F@  
Wend ]64?S0p1c!  
Set objRs = Nothing 5[A4K%EL  
getTableList = strTmp k-8$43  
End Function \SA$:^zO  
% > x<>In"QV
 
+f\r?8s  
J72YZrc  
N=;V
S-  
KTjf2/  
All Tables : !z_VwZ#,  
=Cp}iM  
}tPI#[cfK  
xmwH~UWp  
f/]g@/`  
() u =
|A  
> 72qi*0  
bS*oFm@u  
u|8yV.=R  
`YPNVm<3)  
<'<{|$Pw  
  then b;$jh  
strSql = Select * from & tblname oWdvpvO  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) v1~`76^  
Response.Write 28d=-s=[  
for i=0 to rs.Fields.count-1 J2Eb"y>/;  
  Response.Write & rs.fields(i).name & P:2 0i*QU  
next pax;#*QcQ  
Response.Write m'ykDK\B  
While Not Rs.Eof ?o.Q  
  Response.Write s(M8 Y  
  for i=0 to rs.fields.count -1 /]"2;e-s+  
        Response.Write & Rs.Fields(i).Value &   (f?&zQ!+  
  next %)G]rta#  
  Response.Write       K;#9: Z^+  
  Rs.MoveNext mdPEF)-  
Wend x@480r  
Set Rs = Nothing V-%Am  
end if i;8tA!  
  % > x1{gw 5:  
$r87]
y!  
Vpsv@\@J>  
B&RgUIrFoY  
'{xPdN  
转自： ASP教程采集