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

0 then UL9
]LEGG  
Response.Write 错误 ： & err.description & ?vmu,y  
response.end 4Zz%vY  
End if F52%og~N  
End Sub U0%T<6*H  
Sub EndDB() icO$9c  
Set objOraDB = Nothing vY 0EffZ  
Set objOraSession = Nothing 6Zr_W#SE  
End Sub [HRry2#s  
Function getTableList(str) 0ge"ISK  
Dim strSql,strTmp  ?cG~M|@  
Dim objRs #7 )&`  
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 l#%qF Db  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) |j 9d.M  
While Not objRs.Eof @
nC][gNv  
strA = objRs(uname) & . & objRs(tname) FEC`dSTI  
rJjNoY  
If str=strA then lN(|EI  
strTmp = strTmp & & strA & [b2KBww\  
Else EZ,Tc;f=  
strTmp = strTmp & & strA & `w&A;fR!H  
End if yH=Hrz:<eM  
objRs.MoveNext C VXz>oM  
Wend @AB}r1E2  
Set objRs = Nothing #EG W76 f  
getTableList = strTmp tPp9=e2[s  
End Function l|kGp~  
% > COc,  
8"'Z0 Ey  
WyA`V C  
u=6LPwiI  
lU\v8!Ji  
All Tables : {"dvU"y)\  
,`pUz[wl  
R|@?6<  
<r>1W~bp.q  
ym_w09   
() 5cUz^ >  
V}Ok>6(~  
nF5\iV  
gAudL)X  
3wYhDxY1  
We`6# \Z X  
  then 7DZZdH$Fm  
strSql = Select * from & tblname 5!s7`w]8*0  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ykS-5E`  
Response.Write tLE7s_^  
for i=0 to rs.Fields.count-1 JBI>D1`"  
  Response.Write & rs.fields(i).name & ip+?k<]z  
next mOJ-M@ME  
Response.Write CYdYa|  
While Not Rs.Eof s0'6r$xj  
  Response.Write v!#koqd1y.  
  for i=0 to rs.fields.count -1 2]Ei4%jo  
        Response.Write & Rs.Fields(i).Value &   nq\~`vH|Gd  
  next
8peK[sz  
  Response.Write       *JO%.QNg  
  Rs.MoveNext 5k;}I|rg%  
Wend [j?<&^SW  
Set Rs = Nothing >0cg  
end if ->W rB
O  
  % > e!w#{</8Q  
&(NW_<(  
w}U'>fj  
x5k6"S"1,  
eIbz`|%3  
转自： ASP教程采集