asp调用oracle为什么在本机可以试用,但在别人机器上却不行
ruixp 2002-11-27 04:10:52 <HTML>
<tile>
<BODY>
查询程序
<%on error resume next
'连接数据库
set orasession=createobject("OracleInprocServer.XOraSession")
set oradatabase=orasession.dbopendatabase("oracledb","system/manager",0)
'出错处理
if err.number>0 then
response.write"<h4>asp 错误控制 </h4>"
response.write"asp 错误来源:"&err.source &"<br>"
response.write"asp 错误代码:"&err.number&"<br>"
response.write"asp 错误说明:"&err.description&"<br>"
err.clear
response.write"<h4>ORACLE OLE 错误控制</h4>"
response.write"ORACL错误代码:" & OraSession.LastServerErr&"<br>"
response.write"ORACLE 错误说明:"&OraSession.LastServerErrText&"<br>"
else
'查询
sql="select * from beijingpicture"
set oradynaset=oradatabase.dbcreatedynaset(sql,0)
response.write"<h3>result</h3>"
response.write"<table border=5><tr>"
for i=0 to oradynaset.fields.count-1
response.write"<td>"
response.write oradynaset.fields(i).name & " "
response.write"</td>"
next
response.write"</tr>"
do until oradynaset.eof
response.write"<tr>"
for i=0 to oradynaset.fields.count-1
response.write"<td>"
response.write oradynaset.fields(i).value
response.write"</td>"
next
response.write"</tr>"
oradynaset.dbmovenext
loop
response.write"</table>"
'关闭数据库
oradatabase.close
set orasession=nothing
end if
%>
</body>
</html>
在使用本机上可以
如http://ruixp/pic/test.asp
但再别人机器上却不能访问
不知道为什么,老说不能创建对象OracleInprocServer.XOraSession