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

0 then jr3FDd]  
Response.Write 错误 ： & err.description & 0UN65JBuD  
response.end )ad
6>Y  
End if T(q/$p&q  
End Sub f~
Ve7   
Sub EndDB() ?3;0 SAh  
Set objOraDB = Nothing x~n]r[!L  
Set objOraSession = Nothing 3x3 =ke!  
End Sub 5hg ^K^ZZ  
Function getTableList(str) ,cwjieM  
Dim strSql,strTmp +WfO2V.
 
Dim objRs <-s5 ;xwtS  
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 Y8@TY?  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) gK",D^6T*Y  
While Not objRs.Eof f@aFs]xV  
strA = objRs(uname) & . & objRs(tname) h$_
5)d~  
6$x9@x8  
If str=strA then 5$<Ozkj(  
strTmp = strTmp & & strA & g?>V4WF  
Else  Jknit  
strTmp = strTmp & & strA & Y:KIaYkk  
End if $Y=xu2u)  
objRs.MoveNext .NRSBk  
Wend [`_-;/Gx2  
Set objRs = Nothing rpMjDjW  
getTableList = strTmp dW} m44X  
End Function rw%1>]os  
% > w)Wg 8  
V4tObZP3Ff  
h$2lO^  
nf)y_5y  
Rpou.RrXR7  
All Tables : p{W'[A{J .  
#:M <<gk  
Rw]lW;EN<  
1qN+AT  
m={TBV,L  
() &+Yoob]P  
65>}Q.p  
XTS%:S  
M)Z3q  
#@8JYzMq%  
q-R'5p\C?|  
  then (^9dp[2  
strSql = Select * from & tblname 2x<4&^  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 0o_wy1O1,  
Response.Write -_+,HyJP  
for i=0 to rs.Fields.count-1 4>}qdR1L4  
  Response.Write & rs.fields(i).name & q&d5V~q  
next R~!md  
Response.Write -YJ4-]Z  
While Not Rs.Eof b1Fd]4H3P  
  Response.Write MGfIA
?u  
  for i=0 to rs.fields.count -1 _h0hl]rf  
        Response.Write & Rs.Fields(i).Value &   5rUDRFO6  
  next F,/yK-9  
  Response.Write       #-9@*FFL,  
  Rs.MoveNext T
[+~-D @  
Wend ["ML&2|o  
Set Rs = Nothing TM<;Nj[*n  
end if .V.ga2+  
  % > E)]RQ~jY?  
M$MFUGS'  

&hSF  
FC }r~syqA  
RC+`sZE9  
转自： ASP教程采集