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

0 then 2v0lWO~c7z  
Response.Write 错误 ： & err.description & hug8Hhf_&  
response.end (@vu/yN  
End if n"Ot'1yr  
End Sub rg]eSP3W  
Sub EndDB() T+8F'9i`  
Set objOraDB = Nothing ?dVF@  
Set objOraSession = Nothing T
_lexX[\  
End Sub ' ^^]Or  
Function getTableList(str) O~.A}  
Dim strSql,strTmp Q|rrbxb  
Dim objRs ^sY ]N7
7  
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 NmthvKhH  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) NJ9H=  
While Not objRs.Eof a*0gd-e0@  
strA = objRs(uname) & . & objRs(tname) Mf^ ;('~  
wLAGe'GX  
If str=strA then /0>Cy\eN0  
strTmp = strTmp & & strA & MoIVval/  
Else RAxAy{  
strTmp = strTmp & & strA & oC#@9>+@+"  
End if 9s5gi+l_O  
objRs.MoveNext m2AA:u_*j  
Wend 8p }E  
Set objRs = Nothing i:0~%X  
getTableList = strTmp B9`nV.a  
End Function sa36=:5x-  
% > mWZoo/xtT  
#(FG
+Bk  
+e. bO5Y  
pP;GDW4  
D:sQHJ.y  
All Tables : &]iX>m.  
 S=!3t`  
{<5rbsqk  
\/I@&$"F  
/Li?;H  
() m*tmmP4R  
/v7U~i5  
qd6XKl\5  
'9>z4G*Td  
P^#<h"Ht  
a$.(Zl  
  then f'Dl*d  
strSql = Select * from & tblname v?F~fRH  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 6H\3  
Response.Write id8a#&t]  
for i=0 to rs.Fields.count-1 nyD(G=Q5  
  Response.Write & rs.fields(i).name & BY.'0,H=k  
next #lRkp.e  
Response.Write )=V0  
While Not Rs.Eof $rD&rsx6  
  Response.Write 7 [N1Vr(1  
  for i=0 to rs.fields.count -1 s"#>Xc  
        Response.Write & Rs.Fields(i).Value &   /\"=egB9  
  next nKC$ KC  
  Response.Write       ,.6Hh'^65^  
  Rs.MoveNext UaA6  
Wend .e%PK  
Set Rs = Nothing *[t@j*al  
end if Q9=X|  
  % > 'kPc`)\  
{]]qd!,  
\^orl9  
DfgqB3U[  
^5x\cR  
转自： ASP教程采集