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

0 then M`MxdwR  
Response.Write 错误 ： & err.description & TpjiKM  
response.end >{#JIG.  
End if %#6@PQ[R.  
End Sub f?3-C8hU  
Sub EndDB() NOb`)qb  
Set objOraDB = Nothing "oP^2|${  
Set objOraSession = Nothing z;OYPGvkw  
End Sub Rr) 5[  
Function getTableList(str) B2`S0 H  
Dim strSql,strTmp #Z&/w.D2  
Dim objRs Fs+tcr/\[  
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 blO4)7m  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 2q f|+[X  
While Not objRs.Eof 2YD\KXDo  
strA = objRs(uname) & . & objRs(tname) {U4!sJSl1  
[KDxB>R<{  
If str=strA then &kb`)F3nU  
strTmp = strTmp & & strA & FD=% 4#|  
Else X/_I2X  
strTmp = strTmp & & strA & AtT7~cVe  
End if JsEJ6!1  
objRs.MoveNext Qg>NJ\*Q  
Wend rd <m:r  
Set objRs = Nothing spK8^sh  
getTableList = strTmp bcIae0LZ  
End Function iL/
c^(
1  
% > hlVye&;b8  
st'T._  
U(&c@u%  
%nA})nA7=  
q0sf\|'<}  
All Tables : dFg>uo  
 tV}!_  
h~dQ5%  
)p&g!qA  
^FCXcn9  
() :X2_#qW#C  
}{0}$#zu  
F72#vS j  
d^=BXCoC  
fN vQ.;  
RTtKf i}  
  then C{)1#<`  
strSql = Select * from & tblname oO}g~<fYG  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) [4KQcmJc#  
Response.Write u@a){A(P  
for i=0 to rs.Fields.count-1 y\Wn:RR1[  
  Response.Write & rs.fields(i).name & 2+]5}'M  
next ,EqQU|  
Response.Write *v<f#hB"  
While Not Rs.Eof kk4 |4  
  Response.Write !$I~3_c  
  for i=0 to rs.fields.count -1 5epI'D  
        Response.Write & Rs.Fields(i).Value &   a@}.96lStD  
  next iTxWXij  
  Response.Write       _"DC)  
  Rs.MoveNext IsXNAYj  
Wend MT6p@b5  
Set Rs = Nothing \PX4>/d@y  
end if  }D1x%L  
  % > G?Et$r7:R  
`kKssU<  
8}%F`=Y0  
=vThtl/azD  
c[@_t.%)  
转自： ASP教程采集