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

0 then Ulf'gD4e  
Response.Write 错误 ： & err.description & S/itK3  
response.end - w{`/  
End if y*G3dWb  
End Sub = 9Ow!(!@  
Sub EndDB() x|b52<dLL&  
Set objOraDB = Nothing V< Ib#rd'  
Set objOraSession = Nothing *:5S*E&}V  
End Sub K2XRKoG  
Function getTableList(str) :17Pc\:DS  
Dim strSql,strTmp L@5j? N?F  
Dim objRs _VUG!?_D$5  
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 |p .o^  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ^xyU*A}D  
While Not objRs.Eof afw`Heaa2(  
strA = objRs(uname) & . & objRs(tname) fT2F$U  
\,AE5hnO  
If str=strA then 3 T1,:r  
strTmp = strTmp & & strA & r|_@S[hZg  
Else AMw#_8Y  
strTmp = strTmp & & strA & (#c|San  
End if &G|^{!p/G  
objRs.MoveNext .E:3I!dH7  
Wend gW5yLb_Vz$  
Set objRs = Nothing RoFOjCc>D.  
getTableList = strTmp tEN8S]X  
End Function 0!
Vza?9  
% > `<Q[$z  
kl~)<,/@  
:`>$B?x+  
k-Z:z?M  
:MP*Xy\7&J  
All Tables : w+wg)$i  
b9xvLR8  
l(y,lK=YP1  
1KUM!DUD  
\ xJ_)r  
() j* ZU}Ss  
;*G';VuT  
;/h&40&  
2dyS_2u  
mDXG~*1  
-U{CWn3G  
  then = yFOH~_  
strSql = Select * from & tblname |iA8aHFU  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) _f1;Hho
a  
Response.Write '5m4kDs  
for i=0 to rs.Fields.count-1 FNw0x6,~R  
  Response.Write & rs.fields(i).name & dC<2%y  
next #z1/VZ  
Response.Write 5SMV3~*P  
While Not Rs.Eof k\TP3*fD  
  Response.Write yW)r`xpY  
  for i=0 to rs.fields.count -1 h"y~!NWn  
        Response.Write & Rs.Fields(i).Value &   bzXeG;c<7  
  next (!PsK:wc  
  Response.Write       O I0N(V  
  Rs.MoveNext R/xT.EQ(N  
Wend js9^~:Tw  
Set Rs = Nothing tVe=c  
end if I.'/!11>  
  % > D<`M<:nq  
m1e Sn |)7  
g%V#Z`*|  

0R,.  
["#H/L]3  
转自： ASP教程采集