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

0 then  #^#HuDH  
Response.Write 错误 ： & err.description & wzCUZ1N9q  
response.end fbvbz3N
 
End if O) atNE  
End Sub Gi2$B76<  
Sub EndDB() q'Wr[A40j  
Set objOraDB = Nothing >rsqH+oL  
Set objOraSession = Nothing &>g'$a<[  
End Sub Cq)IayD@  
Function getTableList(str) Ro(Zmk\t  
Dim strSql,strTmp (la[KqqCO  
Dim objRs U_GgCI)  
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 rQ
`i8GF  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) IiBD?}  
While Not objRs.Eof LwcIGhy  
strA = objRs(uname) & . & objRs(tname) {'En\e  
Q
]/Uq~m C  
If str=strA then cD|Htt"  
strTmp = strTmp & & strA & 3r+.N  
Else X0(tboj#  
strTmp = strTmp & & strA & =ONHKF[UJ  
End if /4\wn?f  
objRs.MoveNext 7R4z}2F2  
Wend \daZk/@  
Set objRs = Nothing Kf tgOG f  
getTableList = strTmp ao_4mSB  
End Function uw(NG.4  
% > WI> P-D  
7CXW#H  
C'yppl%  
}Ew hj>w  
|*/[`|*G  
All Tables : 3DgsI7-F  
sZ,Y60s8a  
Isy'{-H  
7{@l%jx][  
XW{>-PBg:  
() L|-98]8>  

Q6gt+FKU9  
s~I6SA&i  
bHLT}x/Gw  
zaTb~#c_  
@yd4$Mv8%  
  then 7/7Z`  
strSql = Select * from & tblname sg
'pO*_&  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) eW5SFY.  
Response.Write pG1WXbqW  
for i=0 to rs.Fields.count-1 Twn4
lG4~  
  Response.Write & rs.fields(i).name & pTIf@n6I  
next .bBdQpF-  
Response.Write 7{&|;U  
While Not Rs.Eof &0f5:M{P  
  Response.Write y;/VB,4V  
  for i=0 to rs.fields.count -1  H"A7Zo  
        Response.Write & Rs.Fields(i).Value &   %|s+jeUDn|  
  next (vT+IZEI  
  Response.Write       %iV^S!e  
  Rs.MoveNext
boDt`2=  
Wend fb^fVSh>  
Set Rs = Nothing ]_N|L|]M  
end if 95el'K[R  
  % > )"Ztlhs`#  
d!eYqM7-G  
x.S3Zi}=  
M4as  

;!(<s,c#:  
转自： ASP教程采集