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

0 then j._G7z/LJ  
Response.Write 错误 ： & err.description & q#;BhPc  
response.end f.@Xjf  
End if 2bWUa~%B  
End Sub >OT\~C  
Sub EndDB() !d\t:0;  
Set objOraDB = Nothing smV!y8&  
Set objOraSession = Nothing <#>Oy&E
 
End Sub ;U |NmC+  
Function getTableList(str) [1NaH  
Dim strSql,strTmp 0[.3Es:_  
Dim objRs *]5z^> q;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  7krh4  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) !;i*\ a  
While Not objRs.Eof }xqXd
%uz  
strA = objRs(uname) & . & objRs(tname) $)Wb#B  
@\ }sb]  
If str=strA then TfL4_IAG.  
strTmp = strTmp & & strA & G=1m]>I8  
Else -)X{n?i  
strTmp = strTmp & & strA & w5,6$#  
End if RYt6=R+f  
objRs.MoveNext rw
&y,%2  
Wend }f0u5:;Zth  
Set objRs = Nothing VQ2Fnb4  
getTableList = strTmp ~]4kkm7Y  
End Function =Ci13< KQ  
% > M2dm
G<  
q?yMa9ZZky  
WJAYM2 6\  
uMHRUi  
j$+gq*I&E  
All Tables : d4
J<,  
tR<L`?4  
|-n ('gQ[  
e[}],W  
P
&mtA2  
() m*gj|1k  
pzg&/m&F`  
0vDg8i\  
$:e)$Xnn-  
?s%v 3T  
dsK/6yu  
  then +lKrj\Xj  
strSql = Select * from & tblname +5-]iKh  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) XoJgs$3B  
Response.Write 8
^y=H=
  
for i=0 to rs.Fields.count-1 vb %T7  
  Response.Write & rs.fields(i).name & Yq J]7V\  
next [.a;L">  
Response.Write Mm.Ql  
While Not Rs.Eof & N;pH  
  Response.Write V/+Jc(N  
  for i=0 to rs.fields.count -1 Evk
t_vvf  
        Response.Write & Rs.Fields(i).Value &   PRwu  
  next Q3,=~}ZNK  
  Response.Write       8[M* x3  
  Rs.MoveNext tn{8u7  
Wend }'TTtV:Q  
Set Rs = Nothing Jh?z=JY  
end if |YRY!V_w  
  % > 2A>C+Y[7\  
fe';b[q)#  
3%2jwR  
PPj[;(A  
.EG*+,  
转自： ASP教程采集