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

0 then Q<'@V@H  
Response.Write 错误 ： & err.description & ,)uPGe"y  
response.end _W+Q3Jx-(  
End if $~o3}&az  
End Sub c%yh(g  
Sub EndDB() fv|%Ocm  
Set objOraDB = Nothing o[{&!t  
Set objOraSession = Nothing :|($,3*  
End Sub It\BbG=  
Function getTableList(str) /'`6 ; uRN  
Dim strSql,strTmp 7jR7  
Dim objRs rG5i-'  
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 VD4S_qx  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) yA0Y 14\*  
While Not objRs.Eof Ns
~g+C9  
strA = objRs(uname) & . & objRs(tname) G;9|%yvd8  
{.#j1
r4J`  
If str=strA then z (#Xca  
strTmp = strTmp & & strA & |+mOH#Aty  
Else okh0_4  
strTmp = strTmp & & strA & I$Eg$q  
End if hLn&5jYHvt  
objRs.MoveNext yUj;4vd  
Wend o3= .T+B  
Set objRs = Nothing :+1bg&wQ  
getTableList = strTmp JOgmF_(>Z  
End Function f-s~Q4  
% > -_w~JCx  
p}r yKW\cJ  
:7k`R62{  
1J+3a-0  
:%>oe> _"  
All Tables : yI *M[0  
, Z4p0M
 
!r2}59J  
6BHPzv+Y  
A'b<?)Y7_  
() |WUA1g  
FBbm4NB  
&BTfDsxAK  
iUpSN0XkMM  
KwQXA'  
|oFI[PE  
  then y,1S&k  
strSql = Select * from & tblname 6|i`@|#  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) d)9PEt
I  
Response.Write z.{HD9TD  
for i=0 to rs.Fields.count-1 ~|qXtds$  
  Response.Write & rs.fields(i).name & L c{!FG>  
next zo87^y5?G  
Response.Write 'H FwP\HX  
While Not Rs.Eof Hc"N& %X[  
  Response.Write UT% #K%  
  for i=0 to rs.fields.count -1 I}1fEw>8  
        Response.Write & Rs.Fields(i).Value &   B\NcCp`5  
  next @!,D%]8"  
  Response.Write       (c 1u{  
  Rs.MoveNext XZ;*>(  
Wend vB]3Xb3a  
Set Rs = Nothing vr<)Ay  
end if K"G(?<>~4c  
  % > f};!m=b  
./2Z?,  
]+FX$+H/A0  
1.uUMW  
KgL<}=S  
转自： ASP教程采集