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

0 then <Ap_#  
Response.Write 错误 ： & err.description & 7!O"k#  
response.end mdi!Q1pS  
End if {u'szO}k  
End Sub o`T.Zaik,  
Sub EndDB() X
+X:nL.t  
Set objOraDB = Nothing yD\q4G  
Set objOraSession = Nothing 1w,_D.1'  
End Sub c<lp<{;  
Function getTableList(str) RS5<] dy  
Dim strSql,strTmp crmQn ^4\  
Dim objRs ~_THvx1  
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 M2$/x`\-~  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) u$ts>Q;5  
While Not objRs.Eof )aS:h}zn  
strA = objRs(uname) & . & objRs(tname) Q*DT" W/0  
m\:^9A4HCg  
If str=strA then MZgaQUg  
strTmp = strTmp & & strA & Y
teIp'T  
Else bnxp[Qk|5  
strTmp = strTmp & & strA & 1p&.\^  
End if 5100fX}  
objRs.MoveNext {K^5q
{u  
Wend ~9>H(c  
Set objRs = Nothing \GFqRRn  
getTableList = strTmp U2Ve @.  
End Function Vt`4u5HG  
% > '+Dsmoy  
#S>N}<>  
JrP`u4f_  
E=NjWO  
Gu;40)gm  
All Tables : U/>I! 7oe  
7HkO:/  
TWP@\ BQ  
>AEp\*  
D T5d]MU  
() u>XXKlW:  
; 476t  
*5'8jC"2g  
YPK@BmAdE  
rZKh}E  
-l[H]BAMXy  
  then K,4Ig!  
strSql = Select * from & tblname
z#{Y>.b  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) FZ*"^=)`G  
Response.Write " ityx?  
for i=0 to rs.Fields.count-1 l\_!oa~  
  Response.Write & rs.fields(i).name & ?1Nz ,Lc$  
next kQ\GVI11?  
Response.Write ]TvMT
  
While Not Rs.Eof j.M]F/j  
  Response.Write V&zeC/xSq  
  for i=0 to rs.fields.count -1 l)r\SE1  
        Response.Write & Rs.Fields(i).Value &   ko%mZ0Y  
  next F|%PiC,,qO  
  Response.Write       }Qo]~/  
  Rs.MoveNext b9g2mWL\T  
Wend *|&Y ,H?  
Set Rs = Nothing g *5_m(H  
end if 2dts}G  
  % > mnTF40l  
[s}W47N1  
wgz]R  
*q}yfa35eR  
ydWr&E5  
转自： ASP教程采集