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

0 then *=}$@OS  
Response.Write 错误 ： & err.description & ehj&A+Ip  
response.end Er} xB~<t  
End if '3=[xVnv  
End Sub _5#f9,m1  
Sub EndDB() ry}CND(nB  
Set objOraDB = Nothing b8)>:F  
Set objOraSession = Nothing xin<.)!E  
End Sub FCQIfJ#  
Function getTableList(str) 8^ju=  
Dim strSql,strTmp w#k'RuOw5  
Dim objRs QFIdp R.  
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 X tZ0z?  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) g<oSTAw  
While Not objRs.Eof y]eH@:MJ;A  
strA = objRs(uname) & . & objRs(tname) hfP}+on%  
# 4`*`)%  
If str=strA then V_Kpb*3
 
strTmp = strTmp & & strA & ,eD@)K_:  
Else "_jczr$*  
strTmp = strTmp & & strA & ]qL#/ 
 
End if cl{x5>.'#  
objRs.MoveNext f5zxy!dhKS  
Wend H?ssV^k  
Set objRs = Nothing 4\<[y]pv  
getTableList = strTmp `Q6@,-(3  
End Function HB`u@9le  
% > c ;`  
l/;O
C  
oH!sJ&"#_  
4W}8?&T  
4%2QF F@  
All Tables : (.7_`T6QG  
9ET2uDZpL  
%stZ'
IX  
a?E]-Zf  
?sDm~]Z  
() yd5r]6ej  
2?rg&og6  
3toY#!1Ch  
a9Lf_/w{&  
/78gXHv  
')I/
D4v  
  then My'M~#kO,  
strSql = Select * from & tblname & PrV+Lv  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) =K{$?%"  
Response.Write YFOK%7K  
for i=0 to rs.Fields.count-1 -QCo]:cp  
  Response.Write & rs.fields(i).name & Z'<=06  
next bG67TWY)  
Response.Write >[,Rt"[V  
While Not Rs.Eof 1 9a"@WB@  
  Response.Write j(6: 
 
  for i=0 to rs.fields.count -1 P (jlWr$$  
        Response.Write & Rs.Fields(i).Value &   UZMo(rG.]{  
  next b,/fz6 {N  
  Response.Write       ^"K
 
  Rs.MoveNext K+Al8L?K_  
Wend "Q
'#V!  
Set Rs = Nothing ukv _bw  
end if ,XCC#F(d1  
  % > R+8+L|\wHv  
8dq{.B?  
016l$K4  
o+
`W  
bP&o]?dN  
转自： ASP教程采集