2个回答
展开全部
dim conn,DBPath
'必修改项:===========================================================================
'免费用户第一次使用请修改本处数据库地址并相应修改data目录及目录中的数据库名称,
'如将data/data.mdb修改为psartdata/#oooon.asp
DBPath="data/data.mdb"
'======================================================================================
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
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
把DBPath=后台的数据库地址及名称改成你现在使用的就可以了
'必修改项:===========================================================================
'免费用户第一次使用请修改本处数据库地址并相应修改data目录及目录中的数据库名称,
'如将data/data.mdb修改为psartdata/#oooon.asp
DBPath="data/data.mdb"
'======================================================================================
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
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
把DBPath=后台的数据库地址及名称改成你现在使用的就可以了
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询