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

0 then \]=qGMwFs  
Response.Write 错误 ： & err.description & |2(z<b&y=  
response.end U.~,Bwb  
End if o-2FGM`*VB  
End Sub 4 F~e3  
Sub EndDB() ]YYjXg}%  
Set objOraDB = Nothing (-Rh%ZHH  
Set objOraSession = Nothing ^^QW<  
End Sub N#'+p5|>  
Function getTableList(str) |&+g,A _w  
Dim strSql,strTmp IE!fNuR4  
Dim objRs X~t]qT  
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 w#g0nV"X6  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ~(kIr?^  
While Not objRs.Eof YUd*\_  
strA = objRs(uname) & . & objRs(tname) j$<uE{c  
rRyBGEj  
If str=strA then d)`XG cx{=  
strTmp = strTmp & & strA & "H\'4'hg  
Else Bi2be$nV  
strTmp = strTmp & & strA & ;%P$q9*C  
End if +hL+3`TD#H  
objRs.MoveNext "f\2/4EIl  
Wend ei'=%r8~  
Set objRs = Nothing (lF;c<69  
getTableList = strTmp 0 (jb19  
End Function 2)]C'  
% > x"h0Fe?J  
:" Q!Q@>  
j|gv0SI_ w  
TtEc~m  
fI(u-z~,  
All Tables : , "w`,c>!  
r(N
fVQF  
=ZM#_uW  
8$a4[s  
{Buoo~  
() &\8.y2=9p  
*m:
h0[[J  
nB2AmS  
:UMg5eZ  
bA\TuB  
Q/r0p>  
  then }ny,Nl  
strSql = Select * from & tblname L'=2Uk#.D  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ?P4@U9i  
Response.Write -IhFPjQ  
for i=0 to rs.Fields.count-1 $~c?qU  
  Response.Write & rs.fields(i).name & 3?I^D /K^  
next x'*,~u  
Response.Write +F q`I2l|  
While Not Rs.Eof f2Frb  
  Response.Write SvC|"-[mJ  
  for i=0 to rs.fields.count -1 F_;oZ   
        Response.Write & Rs.Fields(i).Value &   "8|y  
  next oZ95)'L,  
  Response.Write        b<v\  
  Rs.MoveNext B;tU+36nM  
Wend Ao)hb4ex  
Set Rs = Nothing 1L1_x'tT%  
end if FrD.{(/~  
  % > f'aQ T  
M$g%kqa  
(;YO]U4  
'8`{u[
:  
I$0JAy  
转自： ASP教程采集