高分请教 asp 分页代码问题 80

问题是这样的，分页能正确显示，但是只能显示第一页，后面就没有了，点下一页，或直接输入页码也没有反映<tablecellpadding='2'cellspacing='1'... 问题是这样的，分页能正确显示，但是只能显示第一页，后面就没有了，点下一页，或直接输入页码也没有反映
<table cellpadding='2' cellspacing='1' border='0' class='border' align=center><tr><td class='Navigation' colspan="7">个人呈报的呈阅件</td></tr>
<tr class='title'>
<td width="20" align="center"><img name="chk" onClick="checkall(new_form);numcheck(new_form)" src="../HXIMAGES/Select.gif" width="12" height="12" alt="全选"></td>
<td width="20" align="center"><img src="../HXIMAGES/New.gif" width="16" height="16"></td>
<td width="20" align="center"><img src="../HXIMAGES/Message/sign.gif" width="13" height="12" alt="附件标志"></td>
<td height="20">标题</td>
<td width="100" align="center">发送人</td>
<td width="130"> 发出时间</td>
<td width="60">
是否审批</td>
</tr>
<form name="new_form" method="post">
<%
if rs.recordcount<=0 then
response.Write "<tr><td colspan=11 class=titletdbg align=center>已发公文中暂时还没有公文！</td></tr>"
else
rs.PageSize =14 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
ii=0
do while not rs.EOF
%>
<tr class='titletdbg'>
<td width="20" height="23" align="center"> <input name="id" type="checkbox" id="id" onClick="numcheck(this.form)" value="<%=rs("WS_FDID")%>">
</td>
<td width="20" height="23" align="center"> <%
if rs("WS_FlowDocViews")=0 then
response.write "<img src='../HXIMAGES/new.gif' width='16' height='16' alt='未查阅'> "
else
response.write "<img src='../HXIMAGES/old.gif' width='16' height='16' alt='已查阅'> "
end if
%> </td>
<td width="20" height="23" align="center"><%if rs("WS_FlowDocAnnex")<>"" then response.write "<img src='../HXIMAGES/Message/sign.gif' width='13' height='12' alt='附件'>"%> </td>
<td height="23"> <a href='FlowDocList.asp?id=<%=rs("WS_FDID")%>' ><%=rs("WS_FlowDocSubject")%></a></td>
<td width="100" height="23" align="center"><%=WS_S.HX_OutUserName(rs("WS_FlowDocUserName"))%> </td>
<td width="130" height="23"> <%=rs("WS_FlowDocDate")%></td>
<td width="60" height="23">
<%if rs("WS_FlowDocStep")>0 then response.write "<img src='../HXIMAGES/right.gif' width='16' height='17'>" end if%>
</td>
</tr>
<%
ii=ii+1
if ii>=rs.PageSize then Exit Do
rs.movenext
loop
%>
<%call WS_S.PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>",11)
end if
WS_S.HX_RSClose rs%> </form>

<tr class='titletdbg'>
<td colspan="7">将选中的<button name="c2" onClick="formsub(2)" disabled class="button" >删除</button></td>
</tr>
</table> 展开

 我来答