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

0 then ^{Fo,7  
Response.Write 错误 ： & err.description & q.kDx_  
response.end f=A`{8^  
End if  r m  
End Sub 0uu)0:  
Sub EndDB() 5)C`W]JE  
Set objOraDB = Nothing TSTkMlCG  
Set objOraSession = Nothing (L*<CV  
End Sub j6WDh}#  
Function getTableList(str) m.68ctaa  
Dim strSql,strTmp 8ly6CP+^B  
Dim objRs @|:yK|6O  
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 muMd
9\p  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) oU|_(p"e|  
While Not objRs.Eof c'DNO~H  
strA = objRs(uname) & . & objRs(tname) HX{K5+  
N u3B02D*  
If str=strA then l5nm.i<M  
strTmp = strTmp & & strA & vA2>&YDFX  
Else q 7-ZPX  
strTmp = strTmp & & strA & WK5B8u*<  
End if lhX4MB"  
objRs.MoveNext >dJ[1s]  
Wend 4_
-L1WH  
Set objRs = Nothing /?NfU.+K  
getTableList = strTmp RiZ)#0  
End Function 22/"
0=2g  
% > ~t1?oJ  
DQ@M?~1hp  
2f6BZ8H+Z  
BvS
!P8  
qr(t_qR&  
All Tables : yqC158 P  
AC*SmQ\>!  
PqMu2 e  
R|92T*h  

;`h$xB(  
() lNz1|nS(Kd  
Y;"jsK{$  
y&V%xE/  
+4+czfz  
^CK D[s  
hU3sEOm>  
  then :F_>`{  
strSql = Select * from & tblname '~VF
*i^4  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) rZ&li/Z
 
Response.Write fohZ&f|>  
for i=0 to rs.Fields.count-1 nlZJ
}xZ  
  Response.Write & rs.fields(i).name & P%;lHC #i  
next RivhEc1h%  
Response.Write p=V1M-  
While Not Rs.Eof m@']%X*(,  
  Response.Write N cp   
  for i=0 to rs.fields.count -1 Yx&d\/9  
        Response.Write & Rs.Fields(i).Value &   a ?\:,5=  
  next b7y#uL1AE  
  Response.Write       W$<Y**y9m  
  Rs.MoveNext hW9U%-D  
Wend 22*~CIh~x  
Set Rs = Nothing xiV!\Z}  
end if T 0qM"  
  % > caxOxRo\  
$pIo`F _W  
 A"1%E.1  
}~p%e2<  
_gEojuaN  
转自： ASP教程采集