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

0 then Z0H_l/g  
Response.Write 错误 ： & err.description & A?04,l]y  
response.end - s'W^(  
End if pvl];w  
End Sub OU` !c[O  
Sub EndDB() E8PwA.  
Set objOraDB = Nothing #*9 |\  
Set objOraSession = Nothing fk15O_#3  
End Sub P%&|?e~D^  
Function getTableList(str) `0%;Gz%}  
Dim strSql,strTmp 7./WS
,49  
Dim objRs XBX`L"0  
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 ?99r>01>  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) Ie!">8."  
While Not objRs.Eof 4E=QO!pVv  
strA = objRs(uname) & . & objRs(tname) v B~VJKD  
!oi {8X@  
If str=strA then @Oz3A<M  
strTmp = strTmp & & strA & P=}dR&gk'  
Else ;=@O.iF;H  
strTmp = strTmp & & strA & Jm)7!W%3  
End if z7BFkZ6+  
objRs.MoveNext SN")u  
Wend }9U_4k  
Set objRs = Nothing \c{sG\ >  
getTableList = strTmp ?#<'w(^%#  
End Function \H>Psv{  
% > ~Fo2MwE2~  
id+EBVHAd  
fup?Mg-  
Pbbi*&i  
}LS.bQKqi,  
All Tables : +68age;dM  
6qmV/DL  
nF]E":  
e/x 9@1s#  
Tt{X(I} J  
() '`gnJX JO  
6yUThv.G#  
%j@/Tx/  
*qL'WrB1  
cGo_qR/B(>  
0FL'8!e<  
  then _d7;Z%  
strSql = Select * from & tblname v1+.-hO  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) h8M_Uk  
Response.Write wPYeKOh'  
for i=0 to rs.Fields.count-1 "fv+}'  
  Response.Write & rs.fields(i).name & HLthVc w  
next =d@)*W 6  
Response.Write v; ewMiK@E  
While Not Rs.Eof E}%Pwr  
  Response.Write 5cM%PYU4:v  
  for i=0 to rs.fields.count -1 R)N^j'R~=  
        Response.Write & Rs.Fields(i).Value &   +-TEB  
  next G3!O@j!7w$  
  Response.Write       K5bR7f:  
  Rs.MoveNext ;H8`^;  
Wend DfGq m-c  
Set Rs = Nothing oP
BKPGD  
end if !]7b31$M_  
  % > jp}.W  
ldU ><xc2  
ZvXw#0)v  
(7,Q4T  
c3rj :QK6I  
转自： ASP教程采集