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

0 then FbxrBM  
Response.Write 错误 ： & err.description & 0 t.'?=  
response.end w9QY2v,U  
End if nW1Obu8x|  
End Sub rkw^RW^  
Sub EndDB() ILsw'  
Set objOraDB = Nothing tYE\tbCO'  
Set objOraSession = Nothing !/pE6)a  
End Sub t?& a?6:J  
Function getTableList(str) 1=fP68n  
Dim strSql,strTmp W( O)J$j  
Dim objRs M<'AM4  
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 yb)!jLnH  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) tqdw y.  
While Not objRs.Eof ]w2nVC3  
strA = objRs(uname) & . & objRs(tname) 4`(b(DL]  
fQZ,kl  
If str=strA then yk1.fxik'  
strTmp = strTmp & & strA & AcF6p)@_  
Else P+tnXT>nE  
strTmp = strTmp & & strA & l/|bU9o /u  
End if t[L0kF9en  
objRs.MoveNext Yvky=RM  
Wend :Iy4B+  
Set objRs = Nothing eC+S'Jgf  
getTableList = strTmp 2"Oj* ;  
End Function r*e<`Is  
% > NkWU5E!  
XE/K|o^Hp  
?!PpooYK  
zT;F4_p3G-  
+k@$C,A  
All Tables : :aYbP,mE  
1: cD\  
Ns^[Hb[b'  
& ,KxE(C  
njO5 YYOu  
() TF_~)f(`  
~0S_S+e  
sj@B0R=Qo  
^zdZ"\x  
Z_Tu* F  
gQXB=ywF  
  then #=>t6B4af  
strSql = Select * from & tblname 0taopDi;d  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) aTJs.y-I~  
Response.Write ?V3kIb  
for i=0 to rs.Fields.count-1 } v#Tm  
  Response.Write & rs.fields(i).name & La$*)qD,
  
next :C%cnU;N  
Response.Write 8KQD w:  
While Not Rs.Eof $@H]0<3,  
  Response.Write MoIq)5/  
  for i=0 to rs.fields.count -1 7 (}gs?&w  
        Response.Write & Rs.Fields(i).Value &   T@V<J'  
  next "RZVv~BD  
  Response.Write       >5,nB<  
  Rs.MoveNext F(?A7  
Wend d(LX;sq?  
Set Rs = Nothing vjfV??XSU  
end if FH"u9ygF  
  % > &y164xn'h  
s\7]"3:wD  
UOi[#L@N  
y81B3`@  
kZ8+ev=  
转自： ASP教程采集