ASP 连接 系统数据源 问题
sdoom 2009-08-29 12:00:34 环境 win2003 SERVER 现在有一个数据库 一套程序和 一个网站共用
设置了 系统数据源 数据源名称: OK9987 无用户名 无密码
数据库所在位置: d:\data\oki.mdb
现在程序这里访问数据库无问题 可以直接写进去
但是网站这里就有问题~!
代码如下:
<%PATH=Request.ServerVariables("PATH_INFO")
PATH=Mid(PATH,1,Len(PATH)-Len("SYSset.asp"))
application("euqq_path")=PATH
application("euqq_head")=" <link rel='stylesheet' type='text/css' href='"&PATH&"img/css'>"
application("euqq_conn")="DBQ="+server.mappath(PATH&"/data/oki.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
'application("euqq_conn")="Data Source=oki9987;User ID=;Password=;driver=Microsoft Access Driver (*.mdb)"
set conn=server.createobject("ADODB.CONNECTION")
conn.open application("euqq_conn")
euqq=Empty
Dim euqq(30)
sql="select * from SYSset where id=2"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
for i=0 to rs("0")
euqq(i)=eval("rs("""&i&""")")
next
application("euqq")=euqq
rs.close
set rs=nothing
conn.close
set conn=nothing
u=Request.ServerVariables("HTTP_REFERER")
if u="" then u=session("page")
if u="" then u="/index.asp"
session("page")="OK"
response.redirect u%>
现在无法打开网站
显示信息如下:
无法显示网页
您要访问的网页有问题,无法显示。