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

0 then .olPm3MC  
Response.Write 错误 ： & err.description & \$~oH3m&  
response.end 0imqj7L  
End if _'v }=:X  
End Sub u=v%7c2Mx}  
Sub EndDB() q
eK  
Set objOraDB = Nothing tE9_dR^K  
Set objOraSession = Nothing N`|Ab(.  
End Sub 13_+$DhU-L  
Function getTableList(str) x4HMT/@AG2  
Dim strSql,strTmp 'j,Li(@}  
Dim objRs G &
rYz  
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 4f*Ua`E_  
Set objRs = objOraDb.DbCreateDynaset(strSql,0) p$b=r+1f  
While Not objRs.Eof thm3JfQt  
strA = objRs(uname) & . & objRs(tname) 1A/c/iC  
ncw?;  
If str=strA then I$6 f.W  
strTmp = strTmp & & strA & (zTI)EV  
Else = "hY{RUa  
strTmp = strTmp & & strA & s>M~g,xTU  
End if X-ki%jp3  
objRs.MoveNext Zm8 u:  
Wend +'&_V011<  
Set objRs = Nothing O3w_vm'  
getTableList = strTmp ZTPOD.:#  
End Function M-qxD"VtV=  
% > >s 8:1l  
l]klV+9t  
Z564K7IV  
Zxxy1Fl#.[  
XdIVMXLL\  
All Tables : ^s(X VVA  
B 1ZHV^  
4M<JfD  
m|cWX"#g  
b\|p  
() "/K&qj  
w<F;&';@h  
)zLS,/pk^  
f w>Gx9  
M_.,c Vk  
}$k`[ivBx(  
  then eze(>0\f  
strSql = Select * from & tblname ,,H$>r_;  
Set Rs = objOraDb.DbCreateDynaset(strSql,0) I}W-5%  
Response.Write KutgW#+40  
for i=0 to rs.Fields.count-1 : $52Ds!i  
  Response.Write & rs.fields(i).name & I9G*iu=U   
next /&!d  
Response.Write ZEyGqCf3  
While Not Rs.Eof R#Nd|f<  
  Response.Write oQjB&0k4  
  for i=0 to rs.fields.count -1 &_^*rD~  
        Response.Write & Rs.Fields(i).Value &   @Jn:!8U0  
  next w KMk|y>  
  Response.Write       y[5P<:&s  
  Rs.MoveNext ]{6yS9_tuI  
Wend Q}f}Jf3P  
Set Rs = Nothing Lv5 ==w}  
end if 0qd;'r<  
  % > $
I6eHjYT  
io33+/  
GqD!W8+  
Lvj5<4h;  
.gkPG'm[  
转自： ASP教程采集