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

0 then 6p X[m{  
Response.Write 错误 ： & err.description & 8
]N  
response.end uj_ OWre  
End if DA_[pR  
End Sub  Sxrbhnx  
Sub EndDB() 4,!S?:7  
Set objOraDB = Nothing G H
N  
Set objOraSession = Nothing meHAa`  
End Sub ]
E1aIt  
Function getTableList(str) Qo!/]\  
Dim strSql,strTmp ckXJ9>  
Dim objRs ik@g;>pQD  
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 MVW2%6  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 7T]}<aK<c[  
While Not objRs.Eof dsKEWZ =  
strA = objRs(uname) & . & objRs(tname) 3McBTa!  
\>8"r,hG|  
If str=strA then +1Ha,Ok  
strTmp = strTmp & & strA & li4rK<O  
Else Ng?n}$g*  
strTmp = strTmp & & strA & EROf%oaz=  
End if T [ `t?,  
objRs.MoveNext Q7X6OFl?  
Wend &wbe^Wp  
Set objRs = Nothing 7-"ml\z  
getTableList = strTmp \$o!M1j  
End Function uFM]4v3  
% > uUUj?%  
T-)Ur/qp  
@;iW)a_M  
6% @@~"  
}+KSZ,  
All Tables : N@$g"w  
 o*2TH2  
sjpcz4|K  
(Yz EsY  
`p@YV(  
() ~yH<,e  
*~F\k):>  
tN&x6O+@  
3%?01$k  
%(GWR@mfC  
?\dY!  
  then ?lJm}0>  
strSql = Select * from & tblname KLW#+vZ  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) seh1(q?Va4  
Response.Write pei-R  
for i=0 to rs.Fields.count-1 }(h_ztw  
  Response.Write & rs.fields(i).name & >t|u 8/P  
next =.9L/74@  
Response.Write Xqt3p6  
While Not Rs.Eof uXiAN#1  
  Response.Write <StyO[  
  for i=0 to rs.fields.count -1 G992{B  
        Response.Write & Rs.Fields(i).Value &   !/W[6'M#p  
  next *ip2|2G$  
  Response.Write       @EZ@X/8{&  
  Rs.MoveNext &n>\ +Q   
Wend _T6l*D  
Set Rs = Nothing YGP.LR7  
end if TAbd[:2{F  
  % > CeD O:J=,  
c:0nOP  
tG(#&54  
byl#8=
?  
29DYL  
转自： ASP教程采集