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

0 then ,DZX$Ug~+E  
Response.Write 错误 ： & err.description & zrU{@z$l  
response.end Usta0Ag  
End if uZ=NSbYsA  
End Sub *tAg*$  
Sub EndDB() gc?#pP  
Set objOraDB = Nothing 3dDX8M?  
Set objOraSession = Nothing kn/Ao}J74z  
End Sub ~wVd$%7`  
Function getTableList(str) 9,^_<O@Q  
Dim strSql,strTmp Y!T %cTK)a  
Dim objRs }YHX-e<Yx]  
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 lbuAE%  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) YX_gb/A  
While Not objRs.Eof DK oN}c  
strA = objRs(uname) & . & objRs(tname) "kA*Vc#  
m-jHze`D3  
If str=strA then Tr#V*.x  
strTmp = strTmp & & strA & 5P'p2x#U  
Else c-Pw]Ju  
strTmp = strTmp & & strA & :hI@AA>g  
End if QzAK##9bfa  
objRs.MoveNext =dx1/4bZl|  
Wend ykFJ%sw3X  
Set objRs = Nothing %/rMg"f:  
getTableList = strTmp V._(q^  
End Function ZZyDG9a>
7  
% > j6g[N4xr  
A mwa)  
# (- Qx  
%~QO8q_7  
LbII?N8`N  
All Tables : Tt>8?  
$\?yAE  
Rd>B0;4  
a:_I
  
2r6'O6v  
() A'%1ZQ33O  
hbcuK&  
_fwb!T}$  
h/,${,}J  
JO@|*/mL  
G\a8B#hg  
  then @l0|*lo%  
strSql = Select * from & tblname raQ7.7  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) E{2Eoj;gq  
Response.Write +GAf O0  
for i=0 to rs.Fields.count-1 "rAY.E]  
  Response.Write & rs.fields(i).name & oY=q4D  
next s<]&*e&}?  
Response.Write /o2P+Xr8"  
While Not Rs.Eof .uEPnzi  
  Response.Write 8j4z{+'TQ  
  for i=0 to rs.fields.count -1 1c@}C+F+  
        Response.Write & Rs.Fields(i).Value &   >g;kJe  
  next Ia'ZV7'  
  Response.Write       Gxax2o  
  Rs.MoveNext sk|=% }y  
Wend |0,vQv  
Set Rs = Nothing dCFlM&(i  
end if ZY56\qcY  
  % > d;+[i  
Zx$ol;Yd  
W#Qmv^StZ  
_aPh(qprc  
]0r|_)s  
转自： ASP教程采集