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

0 then "+V.Yue`R  
Response.Write 错误 ： & err.description & }-R|f_2Hp  
response.end Am? dHP  
End if W[Ro)  
End Sub n-n{+Dl!  
Sub EndDB() vHPp$lql  
Set objOraDB = Nothing n089tt=TE  
Set objOraSession = Nothing z@3t>k|
K  
End Sub 7Z/KXc[b  
Function getTableList(str) a:tCdnK/  
Dim strSql,strTmp 7a}vb@  
Dim objRs lclSzC9  
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 kMz^37IFMG  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) s`G3SE  
While Not objRs.Eof KfsURTZ  
strA = objRs(uname) & . & objRs(tname) ga~C?H,K  
"?GA}e"R  
If str=strA then .* xaI+:  
strTmp = strTmp & & strA & wh@;$s"B  
Else Ul@yXtj  
strTmp = strTmp & & strA & BV
X6  
End if &i,xod6$  
objRs.MoveNext ;X ]+r$_  
Wend dk9'C  
Set objRs = Nothing }Q?,O  
getTableList = strTmp @e_ bG
@  
End Function j\D_Z{m2  
% > |BGQ|7DyG  
!giL~}j(R  
y
pv~F  
Ph'P<h:V  
kw>W5tNpf:  
All Tables :
I
=)u:l c  
|T
}Q~  
Oozt&* F  
3%G>TB  
0m^(|=N-  
() ) )q4Rh  
MV<2x7S  
Gvk)H$ni  
-# [=1Y  
V(|@6ww  
^-9g_5  
  then <0r2m4z  
strSql = Select * from & tblname +wU9d8W  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) mjDaus59  
Response.Write |?=K'[5  
for i=0 to rs.Fields.count-1 0w
CJNXm  
  Response.Write & rs.fields(i).name & -rSpgk0wL  
next r(W=1e'  
Response.Write h|tdK;)  
While Not Rs.Eof F(J6 XnQ  
  Response.Write 0L_JP9e  
  for i=0 to rs.fields.count -1 O9#8%p% )  
        Response.Write & Rs.Fields(i).Value &   _H9.AI  
  next
&>zzR$#1  
  Response.Write       K]{Y >w  
  Rs.MoveNext yF-EHNNf  
Wend 2HNKq<  
Set Rs = Nothing (,wIbwa  
end if EIqe|a+  
  % > ]Z?y\L*M-  
X!,2/WT  
Nr?Z[6O|  
|N%?7PZ(  
fz[o;GTc  
转自： ASP教程采集