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

0 then ,L^L uw'7  
Response.Write 错误 ： & err.description & \"*l:x-u  
response.end XNl!(2x'pb  
End if &0lNj@/  
End Sub aL`pvsn
F  
Sub EndDB() /bb4nM_E/  
Set objOraDB = Nothing ML]?`qv '  
Set objOraSession = Nothing p 2i5/Ly  
End Sub #}gc6T~0  
Function getTableList(str) o4J K$%  
Dim strSql,strTmp '(Bs<)(H  
Dim objRs ?L $KlF Y  
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 ;F:(5GBi  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) =1,g#HS  
While Not objRs.Eof WV6vM()#!C  
strA = objRs(uname) & . & objRs(tname) b 9?w _  
8sIGJ|ku
 
If str=strA then F0yh7MItV  
strTmp = strTmp & & strA & 8R z=)J  
Else }6KL  
strTmp = strTmp & & strA & HOw][}M_w  
End if " c]Mz&z  
objRs.MoveNext Zf"AqGP  
Wend V*AG0@&!  
Set objRs = Nothing 3Q#VD)  
getTableList = strTmp {L+?n*;CA  
End Function s
2$R2,  
% > sv[)?1S  
`K@   
kz&)a>aA  
RsY<j& f  
*0iP*j/]  
All Tables :
kSJWQ  
G ;z2}Ei  
$ey<8q
zp  
0#q_LB  
ZNUV Bi  
() wb{y]~&6K  
hsl8@=_ B  
zso.?
`85  
z!1j8o2  
-r,J>2`l  
Gzs x0%`)  
  then Q`oi=OYB  
strSql = Select * from & tblname (zhmZm  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) NLdUe32A  
Response.Write 6zDJdE'Es  
for i=0 to rs.Fields.count-1 qV^H vZJ  
  Response.Write & rs.fields(i).name & & .#0jb1r  
next 1xx-}AIH#  
Response.Write 1{,WY(,c  
While Not Rs.Eof N\vc<Zpn  
  Response.Write & IDF9B  
  for i=0 to rs.fields.count -1 ;Y~;G7  
        Response.Write & Rs.Fields(i).Value &   L7KHs'c*  
  next 9<Bf5d   
  Response.Write       O,bj_CWx  
  Rs.MoveNext B!Qdf8We  
Wend >2wjV"W?  
Set Rs = Nothing 9M7{.XR,  
end if nyMA%9,B  
  % > dJ|]W|q<  
Vb1@JC9b  
<}UqtDF 0  
Ek4aC3  
1LE8,Gm&  
转自： ASP教程采集