我做的分页程序中的“第一页”“上一页”等这些东东怎么显示不出来?
ztgw 2004-03-04 02:24:35 我做的分页程序中的“第一页”“上一页”“下一页”“最后一页”等这些东东怎么显示不出来?请看看我的程序:
<% set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("..\..\database\comax.mdb")
sql="select * from client where salemans='卢勇' order by adddate desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=10
if request("page").count>0 then
ipage=parseint(request("page"))
if ipage<1 then ipage=1
if ipage>rs.pagecount then ipage=rs.pagecount
else
ipage=1
end if
%>
<TABLE cellSpacing=0 cellPadding=0 width="509" border=0>
<TBODY>
<TR>
<TD align=middle width="359" height="18" colspan="2">
<p align="left">XX客户记录
<% response.write("当前第" & ipage & "页,共" & rs.pagecount & "页")
rs.absolutepage=ipage %> </TD>
<TD align=middle width="148" height="18">
<p align="left"></TD>
</TR>
<TR>
<TD bgColor=#fbfbfb width="45"> </TD>
<TD bgColor=#fbfbfb width="308">
<p align="center"><b><font color="#FF0000">客户名称</font></b></TD> <TD bgColor=#fbfbfb width="154">
<p align="center"><b><font color="#FF0000">添加时间</font></b></TD></TR>
<TR>
<TD align=right bgColor=#fbfbfb width="0"></TD>
<TD align=left bgColor=#fbfbfb width="308">
<TD align=left bgColor=#fbfbfb width="147"></TD>
</TR>
<% for i=0 to rs.pagesize
if not rs.eof then %>
<TR>
<TD align=right bgcolor=#fbfbfb width="0"></TD>
<TD align=left bgColor=#fbfbfb width="332">
<a href="http://www.comax.com/comaxasp/readclientrecord.asp?id=<%=rs("clientid") %>"><%=rs.fields("clientname")%></a>
</TD>
<TD align=left bgColor=#fbfbfb width="147"><%=rs("adddate")%></TD>
</TR>
<% rs.movenext%>
<TR>
<TD align=right bgcolor=#fbfbfb width="0"></TD>
<TD align=left bgColor=#fbfbfb width="332">
<% if ipage <>1 then %>
</TD>
<TD align=left bgColor=#fbfbfb width="147"> </TD>
</TR>
<TR>
<TD align=right bgcolor=#fbfbfb width="0"> </TD>
<TD align=left bgColor=#fbfbfb width="332">
<a href="luyong.asp?page=1">第一页</a>
<a href ="luyong.asp?page=<%=ipage-1%>">上一页</a>
<%
if ipage <>rs.pagecount then
%>
<a href ="luyong.asp?page=<%=ipage+1%>">下一页</a>
<a href ="luyong.asp?page=<%=rs.pagecount%>">最后一页</a>
<% end if
end if
end if
next %> </TD>
<TD align=left bgColor=#fbfbfb width="147"> </TD>
</TR>
</TBODY></TABLE>