ASP页面死活跟access连不上

unloserv 2014-07-19 08:09:17
从别人那考来的网站源码
在我的机器上就是不能连接数据库
高手来帮我看看

IIS已经配置好

Conn.asp
<!--#include file="../Include/Const.Asp" -->
<!--#include file="data_name.asp"-->
<%
Response.Buffer=True
Db = "D:\Projects\test\data\#Database.mdb"
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
SqlNowString="Now()"
SqlChar="'"
On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "网站数据库连接出错,请检查设置的数据库路径是否正确!"
Response.End
End If
On Error GoTo 0
%>
<!--#include file="sql.asp"-->
<!--#include file="spiderbot.asp"-->
<%
set rs=conn.execute("select * from setup ")
if rs("webclose")=true then
response.write "<div align='center' style='font-size:30px; color:#FF0000;'><br /><br /><br />"&rs("webclosewhy")&"</div>"
response.end
end if
rs.close
set rs=nothing
%>
<!--#include file="config.asp"-->


ConnSiteData.asp
<!--#include file="Function1.Asp" -->
<%
Dim Conn, ConnStr
Set Conn = Server.CreateObject("Adodb.Connection")
If IsDatabaseType = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & DEF_SQLusername & "; Password = " & DEF_SQLpassword & "; Initial Catalog = " & DEF_SQLdatabase & "; Data Source = " & DEF_SQLserver & ";"
Else
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(""&SysRootDir&""&SiteDataPath&"/"&SiteDataAccess&"")
End If
Conn.Open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write QianboChLanguage1
Response.End
End If
%>


data_name.asp
<%
Session.CodePage=65001'指定编码
'Server.ScriptTimeout=500'设置脚本超时时间,秒
data_name = "/data/#Database.mdb"'网站数据库路径
%>


数据库在/data/下

如果需要源码 我可以上传源码 解答
...全文
250 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
unloserv 2014-07-19
  • 打赏
  • 举报
回复
引用 1 楼 xuzuning 的回复:
连不上,总有错误信息吧?请给出! 1、这样的路径(../Include/Const.Asp)需要启用父路径,请核实 2、Db = "D:\Projects\test\data\#Database.mdb" 这个文件所在目录需要有一般用户完全访问权,请核实 3、请确认这个驱动 Microsoft.Jet.OLEDB.4.0 已安装 换个连接串试试 Connstr="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath(db)
Microsoft.Jet.OLEDB.4.0 有32位的 我用的是64位系统 在IIS里配置启用32位 Microsoft.Jet.OLEDB.4.0 就可以运行了!! 感谢
unloserv 2014-07-19
  • 打赏
  • 举报
回复
引用 1 楼 xuzuning 的回复:
连不上,总有错误信息吧?请给出! 1、这样的路径(../Include/Const.Asp)需要启用父路径,请核实 2、Db = "D:\Projects\test\data\#Database.mdb" 这个文件所在目录需要有一般用户完全访问权,请核实 3、请确认这个驱动 Microsoft.Jet.OLEDB.4.0 已安装 换个连接串试试
就是不知道哪里出错了 "网站数据库连接出错,请检查设置的数据库路径是否正确!" 浏览器里 直接输出这句话 1. 父路径已启用 没启用会报错 启用之后就不报错了 2.IIS里已经指定特定用户登录 不报没权限的错 3.咋确认?
xuzuning 2014-07-19
  • 打赏
  • 举报
回复
连不上,总有错误信息吧?请给出! 1、这样的路径(../Include/Const.Asp)需要启用父路径,请核实 2、Db = "D:\Projects\test\data\#Database.mdb" 这个文件所在目录需要有一般用户完全访问权,请核实 3、请确认这个驱动 Microsoft.Jet.OLEDB.4.0 已安装 换个连接串试试 Connstr="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath(db)
内容概要:本文围绕不确定环境下的多式联运路径优化问题展开研究,提出并实现了基于AFO算法、遗传算法(GA)和粒子群优化算法(PSO)的三种智能优化方法,并借助Matlab平台完成算法编程与仿真。研究构建了考虑时间、成本、转运风险等多重不确定因素的路径优化模型,系统比较了AFO、GA、PSO三种算法在收敛速度、全局寻优能力和稳定性方面的表现,同时引入Matlab自带的全局优化搜索器作为基准对照,深入分析各算法在复杂物流网络中的适用边界与性能差异。研究表明,AFO算法在解决此类组合优化问题时展现出更快的收敛效率和更强的局部规避能力。; 适合人群:具备一定Matlab编程基础与运筹优化知识,从事物流工程、交通运输规划、智能算法开发等相关领域的研究生、科研人员及工程技术人员。; 使用场景及目标:①应用于多式联运、综合货运网络中的路径决策支持系统构建;②为不确定性条件下复杂路径规划问题提供智能算法选型依据与技术实现方案;③支持科研人员复现主流优化算法并开展横向性能对比实验,推动算法改进与实际落地。; 阅读建议:建议读者结合提供的Matlab代码逐模块分析算法实现流程,重点理解目标函数设计、约束条件处理及参数敏感性分析部分,可通过调整问题规模与算法参数进行对比实验,进一步拓展至动态路径规划或大规模网络优化等延伸场景。

28,403

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧