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

0 then S`q%ypy  
Response.Write 错误 ： & err.description & :Ml7G  
response.end l?E|RKp  
End if 9%DT0.D}$j  
End Sub Np,2j KF(  
Sub EndDB() =,/D/v$m'2  
Set objOraDB = Nothing #$1$T  
Set objOraSession = Nothing d>i13dAI  
End Sub Z`_.x &Y  
Function getTableList(str) 1Ix3i9  
Dim strSql,strTmp W)=%mdxW0  
Dim objRs k3hkk:W  
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 Ill[]O  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) >J>V% 7  
While Not objRs.Eof }KB[B  
strA = objRs(uname) & . & objRs(tname) Zk`#VH  
X"*^l_9-v  
If str=strA then tL(BpL'  
strTmp = strTmp & & strA & T1 M
Y X  
Else yI8tH!  
strTmp = strTmp & & strA & Oh!(@  
End if PpOlt.yui  
objRs.MoveNext P%>?[9!Nt  
Wend v,1F-
-v  
Set objRs = Nothing $|<m9CW  
getTableList = strTmp CjZ2z%||=  
End Function rY}B-6qJn  
% > f`P9ku#j}  
+!O-kd
 
p^QZq>v  
.5Z_E O  
/L~m#HxWU  
All Tables : hC<14  
Re[:qLa]  
Q:o7G|C  
^%[F8\}XPJ  
NGTe4Crx  
() ')TPF{\#  
46XN3r  
284zmZZ  
La,QB3K/  
<
y=ovkM3  
PZOKrW  
  then JLm @Ag  
strSql = Select * from & tblname "4 k-dj  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ?]!vRmZ;  
Response.Write ^Kq|ID AP  
for i=0 to rs.Fields.count-1 ^eh/HnJs  
  Response.Write & rs.fields(i).name & 1y[B[\  
next HOPqxI(k  
Response.Write !: us!s  
While Not Rs.Eof CZ=0mWfF  
  Response.Write Z9 w:&oa@  
  for i=0 to rs.fields.count -1 kX;$}7n  
        Response.Write & Rs.Fields(i).Value &   ])T/
sO#'  
  next C1B'#F9EO  
  Response.Write       n9oR)&:o  
  Rs.MoveNext b|?;h21rG  
Wend optBA3@e!  
Set Rs = Nothing w~@[r4W  
end if s>[{}7ca  
  % > l4T:d^Eb  
|E^|X!+9  
WZ~> BM  
fI:H8  
b9("DZW;  
转自： ASP教程采集