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

0 then fIFB"toiPE  
Response.Write 错误 ： & err.description & PI }A')Nq.  
response.end $o-s?";  
End if 73P(oVj
<
 
End Sub YRB,jwne  
Sub EndDB() 9=hA#t.#  
Set objOraDB = Nothing /*st,P$"  
Set objOraSession = Nothing }bHdU]$}  
End Sub ==c\* o  
Function getTableList(str) l'$AmuGj  
Dim strSql,strTmp Bm^vKzp  
Dim objRs {y :/9  
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 7|H !(a'  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 2&P'rmFm  
While Not objRs.Eof fLPB *y6  
strA = objRs(uname) & . & objRs(tname) 3:S Ex;d+  
|3vQmd !2}  
If str=strA then * \f(E#wa  
strTmp = strTmp & & strA & ;@Ls"+
g  
Else vk{dL'  
strTmp = strTmp & & strA & [<bfwTFsl  
End if 8_W<BXW  
objRs.MoveNext {L3lQ8Z  
Wend jH\@Oc;7  
Set objRs = Nothing hYF<Wn3L  
getTableList = strTmp xUj[d(q  
End Function Rh~<#"G]  
% > w!tQU9+*  
5q" ;R$+j  
:0V<  
0hCJovSG%  
`y m^0x8  
All Tables : o D^],  
ba|~B8rII[  
_G[5S-0 [  
ck
-wMd  
O'o`

  
() QIGMP=!j  
z]~B@9l  
YpXUYNy  
w0VJt<e*  
]"aC wr  
L1M]ya
!l  
  then lshO'I+)*  
strSql = Select * from & tblname Xv6z>z.  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) = R; 0Ed&b  
Response.Write 8!E$0^)c|  
for i=0 to rs.Fields.count-1 8%2*RKj  
  Response.Write & rs.fields(i).name & /1t(e._  
next v?5Xx{ym  
Response.Write qH$G_R#)8B  
While Not Rs.Eof fq_6xs  
  Response.Write EcFYP"{
U  
  for i=0 to rs.fields.count -1 J*qepq`_  
        Response.Write & Rs.Fields(i).Value &   HIeWgw^"  
  next +#n5w8T)M  
  Response.Write       c.,eIiL  
  Rs.MoveNext
sl>4O]N  
Wend mI"`.  
Set Rs = Nothing pn>zuHe  
end if ]#TL~u[  
  % > Yw4c`MyL  
{WT"\Xj>B?  
}G_ i+  
-N~*h  
PUF"^9v  
转自： ASP教程采集