srcname 是数据库路径和数据库名
strsql 是SQL查询语句

http://bbs.bc-cn.net/dispbbs.asp?boardid=10&replyid=275398&id=161577&page=1&skin=0&star=1#12

点击URL转到帖子，然后复制 按 不惑 的链接代码试试

不惑的链接代码


技术信息（用于支持人员）

错误类型：
Server.MapPath(), ASP 0171 (0x80004005)
必须为 MapPath 方法指定路径参数。
/blog/love/const.asp, 第 3 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; POTU(1.1))

网页：
GET /blog/index.asp

晕,你前面的东东呢?

Const AccessFile="sjzmssql.mdb" 这是我的数据库名

版主的链接代码

<%
Dim db,strConn,dbname,dbsrc,srcname
dbsrc="database\" '数据库的路径
dbname="sjzmssql.mdb" ' 数据库名
srcname=database&sjzmssql.mdb
strConn="Dbq="&Server.Mappath(srcname)&";Driver={Microsoft Access Driver (*.mdb)};"
strConn="Dbq="&Server.Mappath(srcname)&";Driver={Microsoft Access Driver (*.mdb)};" <--或是
Set db=Server.CreateObject("ADODB.Connection")
db.Open strConn
%>

<%
Dim rs,strSql
Set rs=Server.CreateObject("ADODB.Recordset")
strSql="select * from selfdata"
rs.Open strSql,db,1

%>

技术信息（用于支持人员）

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'sjzmssql'
/blog/love/const.asp, 第 6 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; POTU(1.1))

网页：
GET /blog/index.asp

你把index 和 conn 的代码贴出来
或者打包，然后上传来这里。我直接帮你改完。

sql="DBQ="+server.mappath("sjzmssql.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set rs=server.createobject("ADODB.CONNECTION")
rs.open sql

我还是包讨老婆,包生子吧.一切都包了

谢谢版主你人真好

我买了好几本书让我快变成猪.......