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

0 then C#RueDa.  
Response.Write 错误 ： & err.description & qJw\<7m  
response.end /mwDVP<z /  
End if u(JuU/U  
End Sub m;S%RB^~H  
Sub EndDB() MI~QXy,  
Set objOraDB = Nothing wkT4R\H>  
Set objOraSession = Nothing 5'_:>0}  
End Sub m~F ~9&  
Function getTableList(str) muO;g&  
Dim strSql,strTmp l I2UpfkBP  
Dim objRs lE3&8~2  
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 nFwdW@E9  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ^$<:~qq!  
While Not objRs.Eof l s%
'\}  
strA = objRs(uname) & . & objRs(tname) :^]FpUY  
jI$7vmO  
If str=strA then N5b&tJbM0  
strTmp = strTmp & & strA & eGo$F2C6E  
Else U[:Js@uH_  
strTmp = strTmp & & strA & ZT+{8,  
End if WrR8TYq9D]  
objRs.MoveNext >Fc=F#tA9  
Wend <lWBhrz  
Set objRs = Nothing <g, 21(bc  
getTableList = strTmp fmFs  
End Function h9rrkV9  
% > M*dou_Q  
9W j9=  
Sf t,$  
(AHTv8  
uFaT~ 4  
All Tables : q2M%AvR  
\]Rmq_O  
B*fBb.Z  
kZ!&3G9>-  
E%$[*jZ  
() <O{G&  
/1r{z1pv\  
r1sA^2g.  
&pAmFe  
7QaZ|\c  
l#]+I YD  
  then <p[RhP  
strSql = Select * from & tblname Y }8HJTMB  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) TH+TcYqO  
Response.Write 07Oagq(  
for i=0 to rs.Fields.count-1 %3q7i`AZ  
  Response.Write & rs.fields(i).name & M2nZ,I=l  
next :Y)G-:S+  
Response.Write ={~A} X01  
While Not Rs.Eof
q{7+N1 "  
  Response.Write wT:mfS09N  
  for i=0 to rs.fields.count -1 C3; d.KlV  
        Response.Write & Rs.Fields(i).Value &   1["IT.,f.  
  next 9A}n
Z1Y  
  Response.Write       5~"m$/yE  
  Rs.MoveNext dVBr-+  
Wend G)%r|meKGB  
Set Rs = Nothing $oZ
V 54  
end if i.+#a2   
  % > T7*p!0  
Ft8ii|-  
> Cx;h=  
h'A #Yp0,  
wodff_l  
转自： ASP教程采集