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

0 then Evd|_W-  
Response.Write 错误 ： & err.description & bf|ePGW?  
response.end W.NZ%~|+e/  
End if f,4erTBH  
End Sub . P+Qu   
Sub EndDB() MqJ5|C.q  
Set objOraDB = Nothing t1]/Bw`j/  
Set objOraSession = Nothing Vd(n2JMtG  
End Sub #*:^\z_Jd  
Function getTableList(str) ES?*w@x  
Dim strSql,strTmp ?w+ V:
D  
Dim objRs _OC@J*4.  
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 BlQX$s]  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ^Kg n:l  
While Not objRs.Eof fjOq@thD  
strA = objRs(uname) & . & objRs(tname) T;?k]4.X  
xJ2I@*DN  
If str=strA then a|"Uw `pX+  
strTmp = strTmp & & strA & g/
fpXO\  
Else k%FA:ms|k  
strTmp = strTmp & & strA & GX0zir
z  
End if n}j6gN!O  
objRs.MoveNext 9! /kyyU  
Wend a{
.q/Tbt  
Set objRs = Nothing px"H
 
getTableList = strTmp X\/M(byn  
End Function #-@uLc  
% > .p,VZ9  
6y~F'/ww  
Rq%Kw> {&  
!nCq8~#  
N-]/MB8  
All Tables : W"^=RY  
5|nc^ 12  
<l$ d>,  
X.#)CB0c1Q  
U2A 82;Z  
() # )y/aA  
8lL
|j  
tKeTHj;jO  
q;")  
uINdeq7|F  
0'fswa)  
  then XS">`9o!  
strSql = Select * from & tblname [d8Q AO1;)  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) RGE(#   
Response.Write {X&lgj  
for i=0 to rs.Fields.count-1 80wzn,o S  
  Response.Write & rs.fields(i).name & &8z<~q  
next d.^g#&h
 
Response.Write (XQuRL<X  
While Not Rs.Eof 6:O<k2=2  
  Response.Write }}{n|l+R5  
  for i=0 to rs.fields.count -1 8v4 o+wP  
        Response.Write & Rs.Fields(i).Value &   #5Z`Q^  
  next X 3$ W60Q  
  Response.Write        7P7OTN  
  Rs.MoveNext hU8Y&R)=9  
Wend `X}:(O^GO  
Set Rs = Nothing {PcJuRTHB  
end if U~N7\Pa4  
  % > ^taN?5  
FM >ae-L-  
[d6!  
b}3"v(  
e "A"  
转自： ASP教程采集