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

0 then ;H'gT+t<c  
Response.Write 错误 ： & err.description & 2`?!+")  
response.end W*N$'%  
End if g}x(hF  
End Sub zMi; A6  
Sub EndDB() o!c] (  
Set objOraDB = Nothing ABh&X+YD  
Set objOraSession = Nothing X4|4QgY  
End Sub 
_; Y`  
Function getTableList(str) Oy57$  
Dim strSql,strTmp W-efv
 
Dim objRs lIRlMLuG  
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 QDx$==Fo  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) XH}'w9VynR  
While Not objRs.Eof k8AW6oO/i  
strA = objRs(uname) & . & objRs(tname) he(A3{'  
a^U~0i@[S  
If str=strA then 9$qm
>,o  
strTmp = strTmp & & strA & *Hz^K0:8(  
Else E>|: D
 
strTmp = strTmp & & strA & iBTYY{-wF  
End if #_93f |  
objRs.MoveNext 7!WA)@6  
Wend vw,rF`LjZ  
Set objRs = Nothing Jg}K.1Hs  
getTableList = strTmp W2FD+ wt  
End Function \%]I{  
% > $5
D,sEC@  
!K f#@0E..  
anMF-x4/*q  
G 0%6ch^%  
UcOk3{(z$q  
All Tables : #|&Sc_#4)  
eq(am%3~  
*t[. =_v  
'(bgs  
/DQaGq/Ld  
() 2EZb )&Q  
hd),&qoW?  
WmY``  
l&iq5}[n&  
7(5xL T$  
"#[!/\=?:  
  then .ZvM^GJb  
strSql = Select * from & tblname =6"2
UC&  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) 'Vyt4^$%  
Response.Write 1N7Kv4,  
for i=0 to rs.Fields.count-1 91=OF*w  
  Response.Write & rs.fields(i).name & \b%kf99  
next na9sm  
Response.Write KMI_zhyB  
While Not Rs.Eof kY*rb_2j  
  Response.Write &boOtl^  
  for i=0 to rs.fields.count -1 GrUCZ<S  
        Response.Write & Rs.Fields(i).Value &   1pArZzm>  
  next u%w`:v7Yo(  
  Response.Write       {}3${  
  Rs.MoveNext 'nXl>  
Wend yzqVz_Fi*W  
Set Rs = Nothing ]IoUwgpI)  
end if cWoPB _  
  % > `s\?w5[  
N5a*7EJv+  
N[s}qmPha  
9FB19  
{q"OM*L(  
转自： ASP教程采集