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

0 then -%$ dFq  
Response.Write 错误 ： & err.description & 1caod0gor  
response.end `;GGuJb \  
End if ,QAp5I%3=  
End Sub .Sw'Bo!Ee  
Sub EndDB() CUcjJ|M
Z  
Set objOraDB = Nothing Qj[O$L0 $  
Set objOraSession = Nothing [)c|o
h%  
End Sub xM,(|p(  
Function getTableList(str) XmR5dLc8  
Dim strSql,strTmp ?saVk7Z[|5  
Dim objRs > PA,72e   
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 ?LM'5  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) /a)=B)NH  
While Not objRs.Eof 8nR,GW\  
strA = objRs(uname) & . & objRs(tname) Lw
k-  
1"PE@!
]  
If str=strA then Q(7l<z  
strTmp = strTmp & & strA & 3o^M%  
Else !qv;F?2 <g  
strTmp = strTmp & & strA & nmrk-#._@9  
End if j)*nE./3  
objRs.MoveNext ,Yz+?SmSZ&  
Wend l))IO`s=_  
Set objRs = Nothing !7?wd^C'f  
getTableList = strTmp @U5>w\  
End Function 4tWI)}+ak  
% > Fowh3go  
4N: ;Mo&B  
(DAJ(r~  
!~v>&bCG>9  
Bk<P~-I  
All Tables : WQ`T'k#ESW  
t,nB`g?  
UlytxWkUX  
H:6$)#  
uD3_'a  
() JnJz{(c  
?>&Zm$5V  
DcHMiiVM  

l0)uu4|  
HskN(Ho  
p
60D{UzU  
  then K4~Ox  
strSql = Select * from & tblname Fwqf4&/  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) iSHl_/I<  
Response.Write @Iu-F4YT  
for i=0 to rs.Fields.count-1 _TF>c:m3  
  Response.Write & rs.fields(i).name & |e>-v  
next C"<@EMU9  
Response.Write -^DB?j+  
While Not Rs.Eof oJ:J'$W(  
  Response.Write c2/HY8ttRD  
  for i=0 to rs.fields.count -1 /G;yxdb  
        Response.Write & Rs.Fields(i).Value &   cK&oC$[r-  
  next OFv} jT  
  Response.Write       `m^OnH  
  Rs.MoveNext qzz'v  
Wend vKf=t&gqr  
Set Rs = Nothing =d}3>YHS  
end if TZg7BLfy  
  % > KG$2u:n  
3I+pe;  
%3j5Q   
A$cbH.  
KJ_R@,v\  
转自： ASP教程采集