asp问题 高手进

xh_conn.asp页面

<%
on error resume next
set db=server.creatobject("adodb.connection")
db.open "dbq="& server.mappath("date/xhnew.mdb")&"; driver={microsoft access driver (*.mdb)}"
set rs=server.createobject("adodb.recordset")
%>
后台页面

<!-- #include file="xh_conn.asp" -->
<%
dim xianhe
xianhe=session("xianhe")
if xianhe=""then
response.redirect "xh_login.asp"
end if

%>
<%

dim sql,rs
Sql="Select * From erennew Order By id Desc"
Set rs=db.Execute(Sql)
%>
<center>
<table border="1" width="80%" >
<tr>
<td colspan="5"><div align="center"><a href="xh_write.asp">添加新闻</a> <a href="xh_loginout.asp">退出管理</a></div></td>
</tr>
<tr>
<td colspan="5" bgcolor="#6666CC"><div align="center">
<p>新闻管理页面</p>
<p>&nbsp;</p>
</div></td>
</tr>
<tr bgcolor="#E0E0E0">
<td width="16%"><div align="center">新闻Id</div></td>
<td width="13%"><div align="center">新闻标题</div></td>
<td width="14%"><div align="center">录入时间</div></td>
<td width="14%"><div align="center">编辑</div></td>
<td width="14%"><div align="center">删除</div></td>
</tr>
<%do while not rs.eof%>
<tr>
<td align="center"><%=rs("id")%></td>
<td><a href=../xh_look.asp?id=<%=rs("id")%> target="_blank"><%=rs("title")%></a></td>
<td><%=rs("xhtime")%></td>
<td align="center"><a href="xh_edit.asp?id=<%=rs("id")%>">编辑</a></td>
<td align="center"><a href="xh_del.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</center>
谁帮我看看 是什么问题 老是不能连接

改成这样<%

dim sql,rs
Sql="Select * From erennew Order By id Desc"
Server.CreateObject("Adodb.RecordSet")

rs.Open sql,conn,1,1
%>

db = "../data/"&dbName '数据库名 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn

看是什么问题,只从代码是谁也看不出来的

你应该把你的浏览器的显示友好错误信息关掉,然后对照着错误提示找出错误,因为经常都不是代码错误,而是设计错误

错误提示信息都是很清楚的,会告诉你是什么出错,在哪个文件的第几行第几个字