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

0 then &*TwEN^h  
Response.Write 错误 ： & err.description & Wc4K?3 ZM  
response.end vt`hY4  
End if x{u7#s1|/  
End Sub
g`KVF"8  
Sub EndDB() &&e{9{R  
Set objOraDB = Nothing #pJ^w>YNy  
Set objOraSession = Nothing 5m")GWQaP@  
End Sub A(y^1Nm  
Function getTableList(str) <wwcPe}  
Dim strSql,strTmp %
R~9qO  
Dim objRs ^ri?eKy.-g  
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 zR)|%[sWwQ  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) A:3bL: ;t  
While Not objRs.Eof |xaJv:96%  
strA = objRs(uname) & . & objRs(tname) >So)KB  
|Ia3bVW  
If str=strA then PezUG{q(  
strTmp = strTmp & & strA & gBRhO^Sz  
Else 4ew|5Zex.~  
strTmp = strTmp & & strA & c }>:>^  
End if M-KjRl  
objRs.MoveNext 8XwAKN:f  
Wend u
V<I!jyI  
Set objRs = Nothing 2U,O e9  
getTableList = strTmp gkS#=bv9e@  
End Function | ]`gps  
% > U6qv8*~
  
uAT01ZEm  
,)A^3Q*  
jh.W$.Oq  
[X:mmM0gd  
All Tables : 'pOtd7Vr  
R}4o{l6  
H<|I&nV
 
eW)(u$C|qL  
KU[eY}   
() 6~\z]LZ  
UM%[UyYQ  
cOra`7L`  
i> Ssp  
 G~T]
m .  
p~M1}mE  
  then ^GdU$%aa  
strSql = Select * from & tblname }NPF]P;  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) We3*WsX\  
Response.Write GqhnE>  
for i=0 to rs.Fields.count-1 Nd/iMV6V;  
  Response.Write & rs.fields(i).name & p2|c8n==  
next B?c9cS5Mj  
Response.Write ITh1|yP  
While Not Rs.Eof W5?F?Dp!v  
  Response.Write =flgKRKk.r  
  for i=0 to rs.fields.count -1 HGmgQ>q@M$  
        Response.Write & Rs.Fields(i).Value &   BM{GSX  
  next ")7,ZN;  
  Response.Write       L f[>U  
  Rs.MoveNext {e[S?1t=l  
Wend l(9$s4R  
Set Rs = Nothing cH6ie?KvAo  
end if f&t]O$  
  % > 9BB<. p  
hi,!  
<Fb3\T L  
70&v
`"  
^[XxE Lx  
转自： ASP教程采集