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

0 then wN37zPnV~  
Response.Write 错误 ： & err.description & WKA'=,`v  
response.end D 7shiv|,  
End if J3S&3+2G  
End Sub r0m)j  
Sub EndDB() 5CJZw3q  
Set objOraDB = Nothing p@
&R0>6j  
Set objOraSession = Nothing 2>S~I"o0  
End Sub ?3sT"r_d@  
Function getTableList(str) MWuXI1  
Dim strSql,strTmp d_}a`H  
Dim objRs HW=xvA+  
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 "C%!8`K{a*  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) cTZ)"^z!  
While Not objRs.Eof b'>8ZIY  
strA = objRs(uname) & . & objRs(tname) ;i#LIHJ  
%IpSK 0<Sp  
If str=strA then <
2  
strTmp = strTmp & & strA & ?BCyJ  
Else MBk"KF  
strTmp = strTmp & & strA & ;'RFo?u K  
End if }F`beoMAkM  
objRs.MoveNext <l\N|+7R  
Wend [UPNd!sy  
Set objRs = Nothing 1TqF6`;+  
getTableList = strTmp P`s(kIe  
End Function !>;w
!^U  
% > %|3e.1oX  
}IUP5O6  
EiV=RdL  
j.-VJo)   
hQh9ok8S  
All Tables : Z$K+
7>^  
j~ym<-[{a  
1q~LA[6  
!"4w&bQ  
SqB/4P  
() m>Ux`Gp+  
#t71U a  
RJJ1  
]H2R  
=xEk7'W6k  
cV$lobqO  
  then }6~)bLzI}  
strSql = Select * from & tblname `ypL]$cW  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Md(JIlh3  
Response.Write %= u/3b:o  
for i=0 to rs.Fields.count-1 $>vy(Y  
  Response.Write & rs.fields(i).name & m^$5K's&  
next 4e%8D`/=M  
Response.Write ^E@@YV  
While Not Rs.Eof '_Wt}{h  
  Response.Write {*=E?oF@  
  for i=0 to rs.fields.count -1 , p0KLU\-  
        Response.Write & Rs.Fields(i).Value &   EnscDtf(  
  next A|vP$zy  
  Response.Write       _%IqjJO{=r  
  Rs.MoveNext rnvQ<671W  
Wend NXgRNca  
Set Rs = Nothing }z'DWp=uN  
end if BF|*"#s  
  % > 4:
 sl(r  
5gNLO\  
`
mErF%b  
IhW7^(p\  
L~MpY{!3  
转自： ASP教程采集