conn.inc文件：
<%

connstr="DBQ="+server.mappath("zyjlb.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>

1.asp程序：
<!--#include file="kjssdjt/conn.inc"-->
<%

sql="select * from sj "
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1

do while not rs.eof
%><%response.Write rs("id")&rs("yue")&rs("ri")&rs("sq")&<br>%> <%rs.movenext
loop
rs.close%>
运行1.asp文件却提示：

	无法显示网页
您要访问的网页有问题，无法显示。
请尝试以下操作: 打开 <SCRIPT> Homepage(); </script> www.zznet.com.cn 主页，然后查找指向您感兴趣信息的链接。 单击刷新按钮，或以后再试。 单击搜索，寻找 Internet 上的信息。 也可查看相关站点列表。 HTTP 500 - 内部服务器错误 Internet Explorer