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

0 then ` ES-LLhVf  
Response.Write 错误 ： & err.description & kZ5;Fe\*  
response.end BLaF++Fop  
End if 8=TM _
 
End Sub W2>VgMR [  
Sub EndDB() ZQ1,6<^9i[  
Set objOraDB = Nothing b,h@.s  
Set objOraSession = Nothing  T&'p5h=l  
End Sub FT8<a }o  
Function getTableList(str) OKi}aQ2R*  
Dim strSql,strTmp y$$|_ l@  
Dim objRs S(2_s,J^  
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 G'#Uzwo  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) 7!sR%h5p  
While Not objRs.Eof xB:]{9r  
strA = objRs(uname) & . & objRs(tname) pf% yEz  
^ruz-N^Y!  
If str=strA then 2y`X)  
strTmp = strTmp & & strA & KwAc Ga}J  
Else pG&#xRk  
strTmp = strTmp & & strA & K&4FFZ  
End if Wr+/9  
objRs.MoveNext V |cPAT%  
Wend :;Xh`br  
Set objRs = Nothing \JLea$TM:  
getTableList = strTmp
)gVz?-u+D  
End Function GAP,$xAaW  
% > mE"(d*fe'  
:@@aIFRv  
]621Z1  
4$oDq  
TTagZ
I$  
All Tables : P(xgIMc H  
Se}&2 R  
nPW=m`jG
 
zFi)R }Ot  
W\EvMV"  
() 4|/}~9/  
8hV>Q  
xp*Wf#BF  
A1Es>NK[qW  
XOL_vS24  
Suo%uD  
  then PiIP%$72O  
strSql = Select * from & tblname ##6u  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) Ak kth*p  
Response.Write tP1znJh>y  
for i=0 to rs.Fields.count-1 }IRD!  
  Response.Write & rs.fields(i).name & .QW@rV:T  
next 7}L.(Jp9  
Response.Write lJ Jn@A  
While Not Rs.Eof @6kkt~>:  
  Response.Write a9_KoOa.H  
  for i=0 to rs.fields.count -1 1lYQR`Uh  
        Response.Write & Rs.Fields(i).Value &   L[voouaqm  
  next \MDhm,H<  
  Response.Write       K%.t%)A_3  
  Rs.MoveNext MK.TBv  
Wend FtW=Cc`hC_  
Set Rs = Nothing ;$vVYC  
end if S&F[\4w5]  
  % > Df@b;-E  
 G){A&F  
OUhlQq\  
tISb
' ^T  
Nd He::  
转自： ASP教程采集