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

0 then Oe_*(q&  
Response.Write 错误 ： & err.description & \-Ipa59U  
response.end ;X}!;S%K  
End if y7@q]~%  
End Sub z:JQ3D7/we  
Sub EndDB() Kd|@  
Set objOraDB = Nothing RK\$>KFE  
Set objOraSession = Nothing c>)_I  
End Sub [:"7B&&A  
Function getTableList(str) k%TjRf{p  
Dim strSql,strTmp x:0nK,  
Dim objRs 8;q2W F{AX  
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 Ra-%,cS  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) ZGgM-O1  
While Not objRs.Eof 7dq*e4z)  
strA = objRs(uname) & . & objRs(tname) nm{J  
Jr.4Y>;}e3  
If str=strA then gBPYGci2F  
strTmp = strTmp & & strA &
0~GtK8^B  
Else Z%9_vpWc  
strTmp = strTmp & & strA & 1 [D,Mu%E  
End if svj0;x5  
objRs.MoveNext /^9KZj  
Wend G\ m`{jv  
Set objRs = Nothing 7>$&CWI  
getTableList = strTmp 1J?x2

 
End Function n~C!PXE  
% > b.lK0 Xo  
Y-y<gW  
'\4 
@  
72akOx   
W"&Y7("y  
All Tables : RA^-Pa.O  
M.h8Kr!.  
)|Xi:Zd5>  
4O1[D?)`x  
"&{sE RYY  
() uYy&<_r  
vC|V8ea  
M~"93Q`f^  
{6Qd,CX
 
x2@W,?oPm  
0k):OVfm=  
  then rFl6xM;F  
strSql = Select * from & tblname R0DWjN$j  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) *wNO3tP't  
Response.Write V0/O T~gS8  
for i=0 to rs.Fields.count-1 Kjfpq!NYE  
  Response.Write & rs.fields(i).name & >xK!J?!K  
next o@j)clf  
Response.Write $#LR4 [Fq  
While Not Rs.Eof \
95O  
  Response.Write 2GW.'\D  
  for i=0 to rs.fields.count -1 /M@6r<2`i  
        Response.Write & Rs.Fields(i).Value &   } Rs@  
  next Y>i5ubR~  
  Response.Write       \ N;%
 
  Rs.MoveNext z(JDLd  
Wend HI%#S&d  
Set Rs = Nothing tShyG!b  
end if Qk h}=3u  
  % > X$(Dem  
f zsD  
c D0-g=&   
F* h\#?  
A[6D40o  
转自： ASP教程采集