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

0 then 4
yJ01s  
Response.Write 错误 ： & err.description & lsTe*Od  
response.end jFI]54,  
End if \z(>h&  
End Sub ={e#lC  
Sub EndDB() $u/8Rp  
Set objOraDB = Nothing W+fkWq7`Xx  
Set objOraSession = Nothing zW|$x<M^  
End Sub LA(f]Xmc  
Function getTableList(str) XyN`BDFi  
Dim strSql,strTmp yTMGIS
X5  
Dim objRs ?)i6:76(  
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 gME:\ud$  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) s2,`eV  
While Not objRs.Eof Py(wT%w
 
strA = objRs(uname) & . & objRs(tname) sIP6GWK$  
b@UF PE5jy  
If str=strA then Iwd"f  
strTmp = strTmp & & strA & x`&P}4v0  
Else hfVzzVX:  
strTmp = strTmp & & strA & bYRQI=gW':  
End if FuRn%)
DA5  
objRs.MoveNext >rQ)|W=i  
Wend Br?++\  
Set objRs = Nothing ~cWLu5  
getTableList = strTmp F<XD^sO  
End Function 0hEF$d6U  
% > -M(58/y  
y"{UNM|R  
qCv}+d)  
qX}dbuDE"P  
2l;ge>DJ  
All Tables : L
S?` {E   
>xk:pL*o`  
oQE_?">w  
3M5=@Fwkr  
^$^Vd@t>a  
() `pn-fk  
ixUiXP  
`K ~>!d_  
mAtG&my)  
s?z=q%-p  
dRarNW  
  then -b
G#h)yj  
strSql = Select * from & tblname YjMbd?v  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) xfZ9&g  
Response.Write tF)k6*+  
for i=0 to rs.Fields.count-1 uvAy#,
  
  Response.Write & rs.fields(i).name & QyBK*uNdV  
next D(2kb  
Response.Write =h1 QN  
While Not Rs.Eof b]s%B.h  
  Response.Write e=NQY8?  
  for i=0 to rs.fields.count -1 %QlBFl0a  
        Response.Write & Rs.Fields(i).Value &   ;U5x'}%0]  
  next R _~m\P  
  Response.Write      
omDi<-  
  Rs.MoveNext LP-KD  
Wend KfN`ZZ<  
Set Rs = Nothing Yqj.z|}Nb  
end if  \1c`)
 
  % > zke~!"iq  
+P<w<GfQ  
JhhT7\h(  
)r-|T&Sn  
~`Gcq"7,!  
转自： ASP教程采集