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

0 then 3Ec5:Caz  
Response.Write 错误 ： & err.description & )MLOYX  
response.end BV$lMLD{r  
End if g/W<;o<v(I  
End Sub 9zEO$<e o  
Sub EndDB() eCMcr !.  
Set objOraDB = Nothing tS8*l2Y`   
Set objOraSession = Nothing ^Qrdh0j  
End Sub s%>>E!Qi_  
Function getTableList(str) FD*`$.e3\  
Dim strSql,strTmp b{s_cOr/  
Dim objRs S&8gZ~B  
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 97e fWYj  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) QS,IM>Nr  
While Not objRs.Eof $:s1x\ol  
strA = objRs(uname) & . & objRs(tname) bqN({p&  
2J^6(vk  
If str=strA then ej47'#EY  
strTmp = strTmp & & strA & (EIdw\  
Else 3_
B .W  
strTmp = strTmp & & strA & EQ8jxr<p  
End if l.\Fr+*ej  
objRs.MoveNext x"K<@mR5G  
Wend m'XzZmI  
Set objRs = Nothing ;#I(ucB<  
getTableList = strTmp SJ^.#^)  
End Function !`hjvJryw  
% > E:T<mI?d  

{N[IjY  
9kuL1tcY  
XL>Vwd  
r5Jy( ~  
All Tables : bv
5,Yk  
;hJTJMA6/6  
)}hp[*C  
^IOf%  
"'p:M,:  
() nV,qC.z  
=Bi>$Ly  

]8*g%  
+'2Mj|d@p  
YvHP]N{SA'  
@zB{Ig  
  then *4Y1((1k
 
strSql = Select * from & tblname R5NDT4QYU  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) ZOK2BCoW  
Response.Write f{FW7T}O2  
for i=0 to rs.Fields.count-1 y/h~oGxy  
  Response.Write & rs.fields(i).name & {*ATY+  
next wAkpk&R  
Response.Write g+t-<D"L5  
While Not Rs.Eof ]C3{ _?=  
  Response.Write /+.Bc(`  
  for i=0 to rs.fields.count -1 ]Vo;ZY_\  
        Response.Write & Rs.Fields(i).Value &   4 FW~Y  
  next %N7b XKDP  
  Response.Write       v*<hE>J0  
  Rs.MoveNext jxL}tS{j  
Wend |sMRIW,P  
Set Rs = Nothing SGre[+m~m  
end if U8-#W(tRR  
  % > /jaTH_Q),:  
)~v`dwKj;  
;"-(QE?Mv  
K>l$Y#x}k  
F?\XhoJ3G  
转自： ASP教程采集