ASP 分页最后一页出错_asp oledb 分页错误-CSDN博客

本文链接：https://blog.csdn.net/ai13927511595/article/details/26359991

程序代码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>知识文章列表</title></head>
<body>
<%
dim connstr,conn,sql,rs
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("ttw.mdb")
set conn=server.createobject("ADODB.Connection")
conn.open connstr
if err then
    response.write "数据库连接错误!"
    set conn=nothing
    response.end
end if
%>

<% 
dim zsty
zsty=request("xx")
exec="select * from zs where zstype='"&zsty&"' order by zstime desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<table width="780" border="1">
<tr class="taright1"> <td><h4>知识标题</h4></td> 
                       <td width="14%"><h4>知识类别</h4>   </td> </tr>
<%
rs.pagesize=5
curpage=Request.QueryString("curpage")
if curpage="" then curpage=1
rs.absolutepage=curpage
%>

<%
for i= 1 to rs.pagesize
if rs.eof    then
exit for
end if
%>
  <tr>    <td width="86%" height="18" class="xline"><%=left(rs("zstitle"),30)%></td>
             <td height="18" class="xline"><% =rs("zstype")%></td>   </tr>
<%
rs.movenext
next

%>    

<tr class="taright1">
<td colspan="2">
<%if curpage=1 then%>