UC知道求救！！asp高手进！！
来源：百度知道 编辑：UC知道 时间：2024/07/02 02:05:42
conn.asp的文件代码如下：
<%
'on error resume next
dim conn
cs="Provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("DatabaseUrl")
Set conn=Server.CreateObject ("ADODB.Connection")
conn. ConnectionString=cs
conn.open
if Err.Number <> 0 then
Response.Write("<script>alert('[系统错误]\n\n数据库连接错误！请检查系统参数设置>>站点常量设置,或者/inc/config.asp文件!');</script>")
Response.End
end if
sub connclose
conn.close
set conn=nothing
end sub
%>
config.asp配置文件代码如下：
<%
'===================系统配置参数开始=================================
Const SiteName="恭恭敬敬" '网站名称
Const SiteTitle="恭恭敬敬" '网站标题
Const SiteUrl="http://localhost" '网站地址--后面不要加"/"
<%
'on error resume next
dim conn
cs="Provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("DatabaseUrl")
Set conn=Server.CreateObject ("ADODB.Connection")
conn. ConnectionString=cs
conn.open
if Err.Number <> 0 then
Response.Write("<script>alert('[系统错误]\n\n数据库连接错误！请检查系统参数设置>>站点常量设置,或者/inc/config.asp文件!');</script>")
Response.End
end if
sub connclose
conn.close
set conn=nothing
end sub
%>
config.asp配置文件代码如下：
<%
'===================系统配置参数开始=================================
Const SiteName="恭恭敬敬" '网站名称
Const SiteTitle="恭恭敬敬" '网站标题
Const SiteUrl="http://localhost" '网站地址--后面不要加"/"
cs="Provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("DatabaseUrl") 这句话中DatabaseUrl外面不要加引号：
cs="Provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(DatabaseUrl)
这样就可以了。
数据库的扩展名实可以改的阿
MDB 文件可以改成asp,asa之类的类型,同样操作,而且安全些(不容易被下载).
而且mappath确实没有指定路径.
Const DatabaseUrl="/tot_dabase/#tot_news.asp" 'access数据库地址：虚拟目录+路径名称
改为:
Const DatabaseUrl="#tot_news.asp文件所在的路径,不能是虚拟目录" 'access数据库地址：虚拟目录+路径名称
如果必须使用虚拟目录,请更改Conn.asp
把:
cs="Provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("DatabaseUrl")
改为:
cs="Provider=microsoft.jet.oledb.4.0;data source=" & DatabaseUrl
把
Const DatabaseUrl="/tot_dabase/#tot_news.asp"
改为:
Const DatabaseUrl="D:\……\t_dabase\#tot_news.asp"