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

0 then `C,479~J  
Response.Write 错误 ： & err.description & KATt9ox@  
response.end $Die~rPU  
End if O.}{s;  
End Sub ;'*"(F=D6  
Sub EndDB() @Kp2l<P  
Set objOraDB = Nothing  kf';"  
Set objOraSession = Nothing oGa8}Vtc  
End Sub 8@Pv nOL  
Function getTableList(str) WJ8i,7  
Dim strSql,strTmp VGkwrS;+I  
Dim objRs t=5K#SX}  
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 7&E3d P  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) %6L{Z*(  
While Not objRs.Eof YHl6M&*@  
strA = objRs(uname) & . & objRs(tname) OQA}+XO  
awGI|d  
If str=strA then (z\@T`6`  
strTmp = strTmp & & strA & tQF,E&
Jo8  
Else }PD?x4  
strTmp = strTmp & & strA & 8ex{N3  
End if Hr:WE+'  
objRs.MoveNext LNtBYdB`pK  
Wend A?=g!(wB  
Set objRs = Nothing Ng2qu!F7  
getTableList = strTmp e+j7dmGa  
End Function .hXxh)F  
% > W-2,QVp
%  
,F]Y,"x:  
YP/BX52v  
#2s$dI  
K08xiMjl  
All Tables : 5$/ED3mcK  
ng"R[/)In  
Jc95Ki1X  
;kDz9Va  
@h$cHZ  
() %N04k8z  
-)PQ&[  
Hz `aj  
1Jjay#  
E)7vuWOO  
f%;8]a9  
  then unKi)v1  
strSql = Select * from & tblname u,I_p[`E  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 0"#'Z>"  
Response.Write 4cDjf~n  
for i=0 to rs.Fields.count-1 _SY4Qs`d  
  Response.Write & rs.fields(i).name & 1:(qoA:  
next k?ZtRhPu3X  
Response.Write @lRT
p  
While Not Rs.Eof
9ePG-=5I  
  Response.Write KEEHb2q  
  for i=0 to rs.fields.count -1 >+ulLQqe  
        Response.Write & Rs.Fields(i).Value &   f%<kcM2  
  next Cz` !j  
  Response.Write       &'Pwz  
  Rs.MoveNext 2r4owB?  
Wend h\k@7wgu  
Set Rs = Nothing BIqZg$  
end if ux:czZqy  
  % > @z[,w`  
mII7p LbQ  
..'k+0u^  
cks53/Z  
~PAF2  
转自： ASP教程采集