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

0 then p4VSma_(  
Response.Write 错误 ： & err.description & #pdUJ2)yM  
response.end W4YE~  
End if GD-&_6a  
End Sub /NF#+bx  
Sub EndDB() P%X-@0)  
Set objOraDB = Nothing r+<{S\ Q  
Set objOraSession = Nothing si(;y](  
End Sub uHNpfKnZ  
Function getTableList(str) A\te*G0:S  
Dim strSql,strTmp dPjhq(8 zU  
Dim objRs Kud'pZ{P  
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 ZkB3[$4C=5  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) VF0dE  
While Not objRs.Eof 6gOe!mm  
strA = objRs(uname) & . & objRs(tname) 59Sw+iZj  
NHX>2-b  
If str=strA then \Btk;ivg  
strTmp = strTmp & & strA & u~Tg&0V30  
Else 9h
(IUD{8  
strTmp = strTmp & & strA & `Iy4=nVb  
End if p SN~DvR  
objRs.MoveNext b~7drf
  
Wend :46h+?   
Set objRs = Nothing 0_eQlatb  
getTableList = strTmp !F!3Q4  
End Function -T/W:-M(  
% > AH{^spD{7,  
f3WSa&e
F  
Ua*&_~7kJ  
!D.0 (J  
6xgv:,  
All Tables : BQ05`nkF  
rVAL|0;3  
nv5u%B^  
r{+aeLu  
)WR_ ug  
() %Ny) ?B  
FuP/tTMU1a  
#I`ms$j%  
'b:Ne,<  
ecH/Wz1  
kRIB<@{  
  then F@YV]u>N  
strSql = Select * from & tblname |;;!8VO3J  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) f1+qXMs  
Response.Write z
REJ#r  
for i=0 to rs.Fields.count-1 Y9}8M27vQG  
  Response.Write & rs.fields(i).name &  YRB%:D@u  
next Fm j=  
Response.Write g{pQ4jKF  
While Not Rs.Eof |Svk^mq  
  Response.Write #A <1aQ  
  for i=0 to rs.fields.count -1 6 o[/F3`  
        Response.Write & Rs.Fields(i).Value &   ,&a`d}g&G  
  next "2HY5AE  
  Response.Write       nbvkP  
  Rs.MoveNext V"d=.Hb>  
Wend Pl~P-n  
Set Rs = Nothing &+nRIv S_`  
end if J l7z|QS
 
  % > M/jb}*xDR  
=L0fZf  
ehO:')XF  
zsTbdF  
VfSGCe  
转自： ASP教程采集