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

0 then 6&KvT2?tA`  
Response.Write 错误 ： & err.description & 1$1[6 \3v  
response.end d&a
pu{  
End if dub%fs  
End Sub [44C`x[8M+  
Sub EndDB()  V9cKl[  
Set objOraDB = Nothing =}^J6+TVL  
Set objOraSession = Nothing P{ HYZg  
End Sub [zMnlO  
Function getTableList(str) 1SO!a R#g  
Dim strSql,strTmp <-rw>,  
Dim objRs #yi&-9B  
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 GRq0nhJ  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) O[RivHCY  
While Not objRs.Eof yK"T5^o  
strA = objRs(uname) & . & objRs(tname) M
#a1ev  
1xsIM'&  
If str=strA then s%xhT  
strTmp = strTmp & & strA & e_Un:r@)  
Else @?E|]H!S]  
strTmp = strTmp & & strA & B?pNF+?'z  
End if T**v!Ls  
objRs.MoveNext 4Ow0g-{  
Wend IqrT@jgN-  
Set objRs = Nothing z [9f  
getTableList = strTmp '#Pg:v_  
End Function /.>
8e%)  
% > (W'.vEl  
RjW< H6a"K  
I/V lH:o  
EnD}|9  
.{ +Obi  
All Tables : #'lqE)T  
|jT^[q(z  
'7;b+Vbl#  
j,@@[{tu  
}{#ty uzAo  
() 4/:}K>S_  
vWpoaz/w  
e$=UA%  
H)VzPe#{  
NuQ l  
<)am]+Lswy  
  then W0_ pO  
strSql = Select * from & tblname Fx6]x$3  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) >xB[k-C4  
Response.Write "Di8MMGOY  
for i=0 to rs.Fields.count-1 fqp!^-!X  
  Response.Write & rs.fields(i).name & %ok??_}$}q  
next _G0_<WH6  
Response.Write !${7)=|=1  
While Not Rs.Eof !]*Cwbh. u  
  Response.Write ?=#vp /  
  for i=0 to rs.fields.count -1 o +KDK{MD  
        Response.Write & Rs.Fields(i).Value &   sfKu7puc  
  next $vjl-1x
&  
  Response.Write       MIF`|3$,  
  Rs.MoveNext vA"MTncv  
Wend bpp{Z1/4  
Set Rs = Nothing K}e:zR;;^  
end if X" m0||  
  % > *}<Uh'?  
7uq/C#N  
8urX]#  
[QZ g=."  
PqDff
Z^z  
转自： ASP教程采集