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

0 then hY}/Y  
Response.Write 错误 ： & err.description & `_1(Q9Q  
response.end ^
+as\  
End if D*cyFAF  
End Sub .ts0LDk0f  
Sub EndDB() (~Uel1~@  
Set objOraDB = Nothing V(2,\+t  
Set objOraSession = Nothing P-+M,>vNy[  
End Sub O<1vSav!K  
Function getTableList(str) z,bX.*.-  
Dim strSql,strTmp z
]c,}Q  
Dim objRs +`*qlP;  
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 ;T.s!B$Uu  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) fJWxJSdi  
While Not objRs.Eof }r}RRd  
strA = objRs(uname) & . & objRs(tname) *`ZB+ \*  
#*$_S@  
If str=strA then {^cF(7p  
strTmp = strTmp & & strA & vx!::V7s6  
Else WQ[}&kY~  
strTmp = strTmp & & strA & +_X,
uvR  
End if #Pu@Wx  
objRs.MoveNext AU)1vx(\w  
Wend %{7_E*I@n  
Set objRs = Nothing FgWkcV6B  
getTableList = strTmp 0+}EA[  
End Function KQ4kZN  
% > Pr5g6I'G   
*p&^!ct  
m_m8c8{
Y  

I7dm \|#  
zb;(?!Bd#  
All Tables : Q(|PZng  
o
)%-l4S  
,-(T"Ph<  
id;#{O$  
b96t0w!cs  
() 7uPZuXHxcu  
NoCDY2 $  
R9Sf!LR  
/l,+oG%\  
?P""KVpo  
XM6".eF)M  
  then <NG/i i=  
strSql = Select * from & tblname x&C%4Y_]  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) qoC]#M$oo#  
Response.Write Xhcn]  
for i=0 to rs.Fields.count-1 4$ Dt8!p0  
  Response.Write & rs.fields(i).name & R_1)mPQ^P  
next ,VNi_.W0  
Response.Write DW/1 =3  
While Not Rs.Eof J~Cc9"(  
  Response.Write R
x6l|'e  
  for i=0 to rs.fields.count -1 $#%U\mIz  
        Response.Write & Rs.Fields(i).Value &   ;,1=zhKU.  
  next lPM3}52Xu  
  Response.Write       pOC% oj  
  Rs.MoveNext f64(a\Rw!^  
Wend M1oPOC\0.  
Set Rs = Nothing $hkq>i \  
end if 5D,.^a1 A  
  % > #D+7TWDwNt  
U;xu/xDRi  
@#RuSc  
Rn`ld@=p[  
'lJEHz\  
转自： ASP教程采集