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

0 then IAy
yRl\  
Response.Write 错误 ： & err.description & U9"g;t+/  
response.end F
M$$0}X  
End if jN))|eD0x  
End Sub {txW>rZX  
Sub EndDB() kjAARW  
Set objOraDB = Nothing &:Q^j:  
Set objOraSession = Nothing t5O '7x  
End Sub ?APzb4f^W  
Function getTableList(str) pm
d
a9V4  
Dim strSql,strTmp DO*rVs3'p[  
Dim objRs M3q%(!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 k
U:ge  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) tofX.oi+C$  
While Not objRs.Eof 8XfhXm>~  
strA = objRs(uname) & . & objRs(tname) 3(&k4  
dfy]w4ETB  
If str=strA then 0O>T{<
 
strTmp = strTmp & & strA & Qe,jK{Y< -  
Else o3b=)E  
strTmp = strTmp & & strA & X1DE   
End if r2ZSkP.  
objRs.MoveNext YV%y KD  
Wend ~mBY_[_s=  
Set objRs = Nothing }2xgm9j<  
getTableList = strTmp e={ ?d6  
End Function BD.&K_AW  
% > i~Qnw-^B  
UHyGW$B  
qa-%j+  
&t)$5\r  
jVlXB6[-  
All Tables : &{4KymB:  
>]{{5oOQ>  
/]U),Lb
N  
8*
zORz  
3~q#P  
() B*Z}=$1j  
wjtFZGx&  
6JgbJbUi  
n4XEyCrD  
u
@]rR&h`  
#W$6[#7=I  
  then d+45Y,|  
strSql = Select * from & tblname ,#Pp_f<  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) )7c/i+FsC  
Response.Write Xsk/U++  
for i=0 to rs.Fields.count-1 `.i #3P  
  Response.Write & rs.fields(i).name & f;D(X/"f]  
next @\U;?N~k  
Response.Write a``/x_EZMn  
While Not Rs.Eof 8u%rh[g'  
  Response.Write QLxe1[qI  
  for i=0 to rs.fields.count -1 *""iX
i[  
        Response.Write & Rs.Fields(i).Value &   hKVb#|$  
  next Cl6P,C  
  Response.Write       `y
3*\l  
  Rs.MoveNext mX/'Fta  
Wend 0g8ykGyx  
Set Rs = Nothing C5,\DdCX,  
end if ,NAwSmocVP  
  % > xWK0p'E0  
KzZfpdI92  
ilRPV'S^  
x)R1aq  
DX0#q#  
转自： ASP教程采集