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

0 then *p7_rY  
Response.Write 错误 ： & err.description & >X-*Hu'U#  
response.end x>~.cey  
End if @2)ImgK[  
End Sub $+@xwuY'+  
Sub EndDB() {]dH+J7  
Set objOraDB = Nothing ELQc: t -2  
Set objOraSession = Nothing txXt<]N  
End Sub }uk]1M2=  
Function getTableList(str) 2x dN0S  
Dim strSql,strTmp yaKw/vV  
Dim objRs Q!"W)tD  
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 7c.LyvM  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) HrS  
While Not objRs.Eof *IBCThj  
strA = objRs(uname) & . & objRs(tname) c-hhA%@Wq  
R SqO$~  
If str=strA then %t<ba[9F  
strTmp = strTmp & & strA & $yg=tWk  
Else DX%D8atrr  
strTmp = strTmp & & strA & ;m cu(J  
End if /y
S/*ET8  
objRs.MoveNext ;(,1pi7|  
Wend N
_),'2  
Set objRs = Nothing B!zqvShF  
getTableList = strTmp 6%RN-  
End Function J{bNx8.&  
% > dw]wQ\4B  
+qzCy/_gd  
y O
LqIvN  
8'6$t@oT9w  
#8[iqvE  
All Tables : @CU~3Md*  
+Jv*u8T'  
F_&bE@k  
Yab=p 9V;;  
s55t>t,g6  
() T^~9'KDd  
cXo^.
u  
'fkaeFzOl  
ZT'Sw%U:  
@*rED6zH  
^#A[cY2eM  
  then eX@7f!uz  
strSql = Select * from & tblname _cW6H B^j  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) J
$Qm:DC5  
Response.Write }lzN)e  
for i=0 to rs.Fields.count-1 Udh!%QP%[w  
  Response.Write & rs.fields(i).name & A,)G$yT\  
next 'o*:~n  
Response.Write [Ifhh2  
While Not Rs.Eof q T pvz  
  Response.Write }&mFpc  
  for i=0 to rs.fields.count -1 X&qa3C})  
        Response.Write & Rs.Fields(i).Value &   66+y@l1  
  next _,i+gI[  
  Response.Write       njy^<7;  
  Rs.MoveNext Iu -CXc  
Wend a}w%k  
Set Rs = Nothing <.h\%&'U  
end if 3koXM_4_{)  
  % > F}lgy;=h  
6^DsI  
'C9H6)Zq)  
DB>Y#2j4h  
l?/.uNw  
转自： ASP教程采集