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

0 then #K7i<Bf  
Response.Write 错误 ： & err.description & u[U~`*i*rA  
response.end 8w|j Z@  
End if xZ@H{):  
End Sub \n850PS  
Sub EndDB() $ 8w eh3p  
Set objOraDB = Nothing =JyYU*G4  
Set objOraSession = Nothing )2oWoZvi9  
End Sub |xH"Xvp:  
Function getTableList(str) D
R9M8E  
Dim strSql,strTmp M[_~7~4  
Dim objRs xIF z@9+k  
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 zQ {g~x  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) GI$t8{M  
While Not objRs.Eof ',0~\V  
strA = objRs(uname) & . & objRs(tname) )BTJs)E  
]}9y>+>  
If str=strA then #;H,`r  
strTmp = strTmp & & strA & `QR2!W70o3  
Else N_L&!%s  
strTmp = strTmp & & strA & Bh*~I_Ta>  
End if wC
BL1[~C  
objRs.MoveNext UTUIL D  
Wend }se)=7d8 Z  
Set objRs = Nothing #hd<5+$U}l  
getTableList = strTmp JBE'B Q@  
End Function /,5`#Gte_  
% > 2 <&-  
eEn_aX  
bm1ngI1oI  
V#!ypX]AB[  

g_] u<8&  
All Tables : )?pin|_x  
hzPx8sO  
X3]E8)645N  
|.:O$/ Tt[  
)1j~(C)E8  
() }QncTw0  
5"y p|Yl  
S#+G?I3w  
K4n1#]8i  
&tD`~  
;k7` `  
  then ]Vl5v5_  
strSql = Select * from & tblname Ats"iV  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) g$dL5N7  
Response.Write Ph]e\  
for i=0 to rs.Fields.count-1 7^KQQ([  
  Response.Write & rs.fields(i).name & $EviGZFAaR  
next -ihF)^"a  
Response.Write )dF(5,y)  
While Not Rs.Eof A>>@&c:(  
  Response.Write P>pkLP} Vo  
  for i=0 to rs.fields.count -1 R_vZh|  
        Response.Write & Rs.Fields(i).Value &   )0AE*S  
  next 'QT(TF>  
  Response.Write       7!oqn'#>A  
  Rs.MoveNext =oT@h 9VI  
Wend r'&9'rir2  
Set Rs = Nothing 9aZ3W<N`M  
end if kc8GnKM&mc  
  % > 6{azzk8  
K^{`8E&A  
Yc?taL)  
_gC<%6#V`r  
EemKYcE@Nr  
转自： ASP教程采集