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

0 then i&&qbZt  
Response.Write 错误 ： & err.description & _wh
F^g8  
response.end |<(t}}X  
End if XLb0 9;  
End Sub tjxvN 4l  
Sub EndDB() tU:FX[&?R  
Set objOraDB = Nothing Qq3fZ=  
Set objOraSession = Nothing `6F+Rrn  
End Sub G{o+R]Us  
Function getTableList(str) z+/LS5$  
Dim strSql,strTmp UX_I6_&  
Dim objRs O]qPmEj  
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 /9_#U#vhY  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) `?uPn~,e8  
While Not objRs.Eof +< KNY  
strA = objRs(uname) & . & objRs(tname) "}zda*z8  
VAKy^nR5j  
If str=strA then xl2g0?  
strTmp = strTmp & & strA & LgHJo-+>  
Else m r4b  
strTmp = strTmp & & strA & "'A"U  
End if |scUo~  
objRs.MoveNext ({M?
Q>s  
Wend % {Q-8w!  
Set objRs = Nothing RrWNJ&o  
getTableList = strTmp GuO`jz F  
End Function yd>}wHt  
% > ><Uk*mwL  
T"!EK&  
l!I
Gc:  
``9 GY  

O&'/J8  
All Tables : Q4wc-s4RN  
KzVTkDn,  
/6U 4S>'(  
bx>i6 R2  
HmV />9  
() @!\K>G >9[  
-0 0}if7  
GZ8:e3ri  
I7m
G/  
<zfKC  
gj+3y9  
  then L'9N9CR{i  
strSql = Select * from & tblname *IZf^-=Q  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) AuCWQ~  
Response.Write sKfXg`0  
for i=0 to rs.Fields.count-1 wFL3
&*  
  Response.Write & rs.fields(i).name & zj%cQkZ  
next 1S%}xsR0  
Response.Write "s]y!BLk  
While Not Rs.Eof >&Fa(o;*  
  Response.Write NHiq^ojk  
  for i=0 to rs.fields.count -1 m mw-a0  
        Response.Write & Rs.Fields(i).Value &   .wc = ]  
  next 6fwY$K\X  
  Response.Write       Nl*i5 io  
  Rs.MoveNext r(`nt-o@  
Wend 7&6Y  
Set Rs = Nothing _/ Os^>R  
end if >.LKct*5K  
  % > l`gTU?<xd  
]}LGbv"`A  
xj
q0D[  
VzwPBQ -  
_e'Y3:  
转自： ASP教程采集