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

0 then m{
$+  
Response.Write 错误 ： & err.description & nGX3_-U4  
response.end Ij
OBY  
End if  &I-T  
End Sub kE6/
d,
 
Sub EndDB() RU#}!Kq  
Set objOraDB = Nothing &b>&XMIK  
Set objOraSession = Nothing iN[6}V6Sm  
End Sub K:9AP{+  
Function getTableList(str)
ObZhQ.&  
Dim strSql,strTmp RFsUb:%V7-  
Dim objRs x?A<X2  
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 *Dq ++  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) |) cJ  
While Not objRs.Eof 7L:Eg  
strA = objRs(uname) & . & objRs(tname) ,_$J-F
?  
]}Ys4(}  
If str=strA then 7V@r^/`8N  
strTmp = strTmp & & strA & &tbAXU5$  
Else 6n]jx:CZ,  
strTmp = strTmp & & strA & 3O4,LXdA  
End if 3S#p4{3  
objRs.MoveNext izcjI.3e,  
Wend GwXhn2  
Set objRs = Nothing "]2^O  
getTableList = strTmp JXRU9`3)A  
End Function Y6Y"fb%K  
% > [So1`IA6  
n>,GmCo  
zC:Pg4=w]  
=mX26l`B  
o=!_.lDF:  
All Tables : %R?WkG  
;:oXe*d  
&'zc2  
t%e<]2-8  
]iW:YNvXA  
() QoUdTIIL  
^B%ki  
'y>Y*/  
y:Gn58\o  
?Hdu=+ZV  
) x+edYw  
  then n(V{ [  
strSql = Select * from & tblname [;yH.wn#5  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) V=fh;p  
Response.Write AB3OG*C9  
for i=0 to rs.Fields.count-1 8kcMgCO  
  Response.Write & rs.fields(i).name & x'?p?u~[  
next SAitufS  
Response.Write 7l/ZRz}1  
While Not Rs.Eof yK&  
  Response.Write Ad,n+%"e  
  for i=0 to rs.fields.count -1 H)S!%(x4  
        Response.Write & Rs.Fields(i).Value &   B#IUSHC  
  next &RbPN^  
  Response.Write       yFeFI@Hp 3  
  Rs.MoveNext {7DXSe4  
Wend a-S tOO5s  
Set Rs = Nothing IIT[^_g  
end if 6`6 / 2C$%  
  % > NNr6~m)3v  
\}4*}Lr  
\`z%5/@f;  
9MO=f^f-  
)\D{5j  
转自： ASP教程采集