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

0 then n a2"Sy=Yi  
Response.Write 错误 ： & err.description & %MP s}B  
response.end c)SSi@< cv  
End if :*&wnQMKR  
End Sub im+2)9f  
Sub EndDB() J6[x(T  
Set objOraDB = Nothing u?g!E."v  
Set objOraSession = Nothing H8K<.RY  
End Sub @\!wW-:A  
Function getTableList(str) ".xai.trr  
Dim strSql,strTmp :Rt5=0x   
Dim objRs Ai->,<Ig]  
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 uU.9*B=H9  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) B;;D(NH  
While Not objRs.Eof |-_5ouN.  
strA = objRs(uname) & . & objRs(tname) *!9/`zW  
:/vB,JC  
If str=strA then U&3*c+B4  
strTmp = strTmp & & strA & hDlk! #*  
Else RC (v#G  
strTmp = strTmp & & strA & Ti3BlWQH  
End if q 8=u.T  
objRs.MoveNext bOck^1Hky  
Wend kM3BP& 3m1  
Set objRs = Nothing p!aeL}g`  
getTableList = strTmp g-p OO/|  
End Function f/;\/Q[Z7  
% > 45MK|4\Y_  
t48(GKF  
+H&_Z38n  
iW"L!t#\|  
rpEFyHorJ  
All Tables : +zs6$OI]V  
FYcMvY  
ZVp\5V*  
7Xad2wXn  
@su{Uno8/  
() qfSo
F|  
{sm={q  
dBlOU.B  
U*&ZQw  
b=|&0B$E  
|}M']Vz  
  then M?cKt
.t  
strSql = Select * from & tblname o@>c[knJ  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) }=;>T)QmMO  
Response.Write R\.huOJh  
for i=0 to rs.Fields.count-1 }uHc7gTBF7  
  Response.Write & rs.fields(i).name & )E7A,ZW,  
next =(n'#mV  
Response.Write ImV54
h'  
While Not Rs.Eof mzT} C&hfP  
  Response.Write )b%c]!  
  for i=0 to rs.fields.count -1 "{x~j\<  
        Response.Write & Rs.Fields(i).Value &  
7 $9fGo  
  next "}OFwes
  
  Response.Write       q5vs;,_ |  
  Rs.MoveNext /2@%:b)  
Wend >|Jw,,uf  
Set Rs = Nothing 4|$D.`Wu  
end if D} .t  
  % > 3-mw-;.  
+1)C&:  
`C*!de]Y%  
f<w*l<@  
VNYLps@4H  
转自： ASP教程采集