关于分页显示出现连接超时错误？
这是其中关于分页显示的代码，出现连接超时错误，但是我一时查不出错误，请asp熟手有空帮忙看一下！非常感谢！
其中conn.asp
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("guestbook.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
这是主要的asp代码：
<!--#include file = conn.asp -->
<%
dim intpageno,intpagesize,reccount,rs,totalpages,i
intpageno = request.querystring("pageno")
if intpageno = "" then
intpageno = 1
end if
intpagesize = request.querystring("pagesize")
if intpagesize = "" then
intpagesize = 6
end if
set rs = server.createobject("adodb.recordset")
sql = "select * from guestbook order by id desc"
rs.cursorlocation = aduseclient
rs.cachesize = 6
rs.open sql,connstr,adopenstatic,adlockreadonly,adcmdtext
rs.movefirst
intpagesize = rs.pagesize
totalpages = int(rs.pagecount)
intpageno = rs.absolutepage
reccount = 0
do while not rs.eof and reccount < rs.pagesize
%>
<p>日期：<%=rs("dateandtime")%></p><br>
<table width="600" border="0" align="center">
<tr>
<td>姓名：<%=rs("name")%></td>
<td>个人主页：<%=rs("home")%></td>
</tr>
<tr>
<td>E-mail：<%=rs("email")%></td>
<td>QQ号码：<%=rs("oicq")%></td>
</tr>
<tr>
<td colspan="2">留言主题：<%=rs("subject")%></td>
</tr>
<tr>
<td colspan="2">内容：<%=rs("message")%></td>
</tr>
</table>
<hr noshade>
<%
rs.movenext
reccount = reccount + 1
loop
rs.close
set rs =nothing
response.write "总共有"&totalpages&"页/目前为第"&intpageno&"页"
'建立数字的超级连接
dim strurl,intpevious,intnext
for i =1 to totalpages
strurl = "<a href='index.asp?pageno="&i&"pagesize="&intpagesize&"'>"&i&"</a>"
response.write strurl&""
if i mod 10 = 0 then
response.write "</br>"
end if
next
'上一页的超级连接
intprevious = intpageno - 1
if intprevious > 0 then
strurl = "<a href='index.asp?pageno="&intprevious&"pagesize="&intpagesize&"'>上一页</a>"
response.write strurl&""
end if
'下一页的超级连接
intnext = intpageno + 1
if intnext <= totalpages then
strurl = "<a href='index.asp?pageno="&intnext&"pagesize="&intpagesize&"'>下一页</a>"
response.write strurl&""
end if
%>
问题点数：22、回复次数：1Top
1 楼wybm（310）回复于 2001-09-17 17:51:57 得分 22
<!--#include file = conn.asp -->
<%
dim intpageno,intpagesize,reccount,rs,totalpages,i
intpageno = trim(request.querystring("intpageno"))
If Not IsNumeric(intpageno) Then
intpageno=1
Else
intpageno=Cint(Abs(intpageno))
End if
intpagesize = trim(request.querystring("pagesize"))
If Not IsNumeric(intpagesize ) Then
intpagesize = 6
else
intpagesize =Cint(Abs(intpagesize))
end if
set rs = server.createobject("adodb.recordset")
sql = "select * from guestbook order by id desc"
rs.open sql,connstr,1,1
if (rs,eof and rs.bof ) then
response.write "No Recoed"
else
Rs.pagesize = intpagesize
if intpageno< 1 then intpageno= 1
if intpageno> Rs.pagecount then intpageno= Rs.pagecount
Rs.CacheSize =intpagesize
Rs.MoveFirst
TotalPages = Rs.PageCount
Rs.AbsolutePage = intpageno
reccount = 0
do while not rs.eof and reccount < rs.pagesize
%>
<p>日期：<%=rs("dateandtime")%></p><br>
<table width="600" border="0" align="center">
<tr>
<td>姓名：<%=rs("name")%></td>
<td>个人主页：<%=rs("home")%></td>
</tr>
<tr>
<td>E-mail：<%=rs("email")%></td>
<td>QQ号码：<%=rs("oicq")%></td>
</tr>
<tr>
<td colspan="2">留言主题：<%=rs("subject")%></td>
</tr>
<tr>
<td colspan="2">内容：<%=rs("message")%></td>
</tr>
</table>
<hr noshade>
<%
rs.movenext
reccount = reccount + 1
loop
end if
rs.close
set rs =nothing
response.write "总共有"&totalpages&"页/目前为第"&intpageno&"页"
'建立数字的超级连接
if intpageno<>1 then
%>
<a href="index.asp?intpageno=1&pagesize=<%=intpagesize%>">第一页</a>
<a href="index.asp?intpageno=<%=intpageno-1%>&pagesize=<%=intpagesize%>">前一页</a>
<%
end if
if intpageno<>rs.pagecount then
%>
<a href="index.asp?intpageno=<%=intpageno+1%>&pagesize=<%=intpagesize%>">后一页</a>
<a href="index.asp?intpageno=<%=rs.pagecount%>&pagesize=<%=intpagesize%>">最后一页</a>
<%
end if
%>Top
