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

0 then o;w5;TkY  
Response.Write 错误 ： & err.description & U1oZ\Mh  
response.end )I&,kH)+  
End if YCMXF#1  
End Sub @q(sig00nr  
Sub EndDB() (*6kYkUK  
Set objOraDB = Nothing  DT2uUf  
Set objOraSession = Nothing (3. B\8s  
End Sub }.ZT?p\  
Function getTableList(str) 8/i];/,v*M  
Dim strSql,strTmp &oJ1v<`  
Dim objRs 5f#N$mh  
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 2lb HUK  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) @la/sd4`  
While Not objRs.Eof 8rV"? m`S  
strA = objRs(uname) & . & objRs(tname) u4eA++eT  
GvB;o^Wd  
If str=strA then $%:=;1Jl  
strTmp = strTmp & & strA & V= wWY*C  
Else HGiO}|q:  
strTmp = strTmp & & strA &  ,>C`|  
End if :r+BL@9  
objRs.MoveNext o54/r#~fi  
Wend m[>pv1o  
Set objRs = Nothing s:O8dL /  
getTableList = strTmp 4DwQ7KX  
End Function 5I`_SOa!  
% > ?R!?}7  
A r=P;6J  
ZBY*C;[)*P  
dp|VQWCq  
]c
mq  
All Tables : "z8iuF  
fo$s9g^<  
`<#Ufi*c  
xU6rZCqE  
" J4?Sb<  
() d~QZcR  
fK 4,k:YC  
+<})`(8  
 gl$}t H  
c*!xdK  
6&,{"N0T  
  then Jc=~BT_G  
strSql = Select * from & tblname eV5 e:9  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) >LAhc7I  
Response.Write f,(@K%  
for i=0 to rs.Fields.count-1 6,raRg6  
  Response.Write & rs.fields(i).name & <(E9U.  
next 6Cpn::WW}  
Response.Write 8V?*Bz-4`  
While Not Rs.Eof }VU7wMk  
  Response.Write &Hj1jM'  
  for i=0 to rs.fields.count -1 oF(=@UL  
        Response.Write & Rs.Fields(i).Value &   j6&q6C X  
  next F?c: ).g  
  Response.Write       xoB "hNIX  
  Rs.MoveNext dq4t@:\o0  
Wend O>c2*9PM  
Set Rs = Nothing ^1\[hyZ!  
end if hpBn_  
  % > -)pVgf  
G<m6Sf  
~a ]R7X7  
(>,}C/-UG  
O<\h_   
转自： ASP教程采集