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

0 then D8Mq '$-  
Response.Write 错误 ： & err.description & @k'V`ZQF  
response.end TVSCjI  
End if a+~b3  
End Sub w2('75$J  
Sub EndDB() O?A%  
Set objOraDB = Nothing yxf#@Je"  
Set objOraSession = Nothing utC^wA5U~  
End Sub l2dj GZk  
Function getTableList(str) R1%J6wZq  
Dim strSql,strTmp !su773vo  
Dim objRs El :%\hGy  
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 Hfo<EB2Y9N  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) mD
D96y  
While Not objRs.Eof ORWi+H|  
strA = objRs(uname) & . & objRs(tname) |68/FJZ,5  
+bJ~S:[  
If str=strA then &2q<#b  
strTmp = strTmp & & strA & v
?Cakwu  
Else 8?: 2<  
strTmp = strTmp & & strA & '}bmDb*  
End if bs16G3-p  
objRs.MoveNext h9iQn<lp4.  
Wend |Sua4~yL(  
Set objRs = Nothing W@'*G*f  
getTableList = strTmp NZ6:ZzM  
End Function {{gt>"
D,  
% > `P*BW,P'T  
2Yd@V}  
"*W# z  
K~S*<
?  
H~>8q~o]  
All Tables : :$PrlE  
:2C <;o  
.c__T{<)[  
EIyFGCw|U  
X')l04P@%  
() Hr!$mf)h  
^=1u2YdVw  
DBLM0*B  
8pftc)k  
cx&\oP  
&?Q^i">cZ  
  then g#7Q-n3^  
strSql = Select * from & tblname oayu*a.  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) -p>1:M <  
Response.Write eO*s,*  
for i=0 to rs.Fields.count-1 |_-w{2K  
  Response.Write & rs.fields(i).name & `NEi/jB  
next V|}9bNF  
Response.Write 9&`";
dg  
While Not Rs.Eof nKnrh]hX  
  Response.Write s8P3H|0.-  
  for i=0 to rs.fields.count -1
<mVFC  
        Response.Write & Rs.Fields(i).Value &   1sonDBd0@;  
  next ~w|h;*Bj  
  Response.Write       Wi>m}^}9  
  Rs.MoveNext !cM<&3/  
Wend Y Q.Xl_  
Set Rs = Nothing q5'G]j{,Z  
end if 2/uZ2
N|S  
  % > v>Kh5H5e~  
o^*:  
H)"]I3  
vTK8t:JQ~  
Hs:zfvD  
转自： ASP教程采集