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

0 then >|W\8dTQ  
Response.Write 错误 ： & err.description & 8GKqPS+  
response.end o0B3
G
  
End if [j;#w,Wb  
End Sub 7dh--.i  
Sub EndDB() hsJS(qEh.'  
Set objOraDB = Nothing ~IQ2;

A  
Set objOraSession = Nothing IEj=pI  
End Sub ,b${3*PPQ  
Function getTableList(str) 2;`F`}BA  
Dim strSql,strTmp \L]T|]}(  
Dim objRs y%Wbm&h  
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 gI5Fzk@:  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) #U?=D/  
While Not objRs.Eof nq,P.~l
 
strA = objRs(uname) & . & objRs(tname) d>bS)  
wM0P#+bA\  
If str=strA then L9bIdiB7  
strTmp = strTmp & & strA & r>kDRIHB  
Else i-W!`1LH'  
strTmp = strTmp & & strA & 6$'0^Ftm'  
End if Qh{]gw-6  
objRs.MoveNext ".|?A9m_  
Wend XKEbK\  
Set objRs = Nothing @7z_f!'u  
getTableList = strTmp W^T6^q5;H  
End Function N1l&$#Fr!s  
% > *{%d{x}l  
*
#&s+h,^  
xA#'%|"  
 gU%R9  
nep-?7x  
All Tables : R) 'AI[la  
;FH_qF`.  
i9B1/?^W&  
;sZHE&+  
mEVn
e.D  
() <uL0M`u3  
M].D27  
?]Z EK8c  
?cmv;KV   
F qH@iZ  
zrazFI0G  
  then Z:kX9vw.  
strSql = Select * from & tblname se^(1R k  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) *p>1s!i  
Response.Write vkg."G:=  
for i=0 to rs.Fields.count-1 L\/YS;Y  
  Response.Write & rs.fields(i).name & =k|hH~  
next y|O)i I/g  
Response.Write P;~P:qKd  
While Not Rs.Eof d\{a&\v  
  Response.Write o<f|jGY0  
  for i=0 to rs.fields.count -1 "~=\AB=+Z  
        Response.Write & Rs.Fields(i).Value &   DNp4U9
  
  next TkjPa};R  
  Response.Write      
|vf /M|  
  Rs.MoveNext o ImW  
Wend Q"QL#<N  
Set Rs = Nothing .
!`v2_
 
end if eF%
IX  
  % > v:w $l{7  
=^D{ZZ
w{  
oEuo@\U05v  
n?z^"vv$i  
AfOq?V  
转自： ASP教程采集