asp怎样实现分页

来源:百度知道 编辑:UC知道 时间:2024/05/21 12:03:49
'分页信息
Response.Write "<tr><td colspan=2 align=right bgcolor=#FFFFFF class=fonten_12px>"
Response.Write "<font color=#666666>共" & intRecordCount &"条 显示" & (Page-1)*PageSize+1 & "到"
response.write (Page-1)*Pagesize+i -1& "</font>"
Response.Write "</td></tr>"
Response.Write "<tr><td colspan=2 align=right bgcolor=#FFFFFF class=fonten_12px>"
Response.Write "<FONT COLOR=darkgray>上一页</FONT> "
for i=1 to intpagecount
if i=page then
Response.Write "<FONT COLOR=darkgray>" & i & "</FONT> "
else
Response.Write "<a href=index.asp?page=" & i & ">" & i & "</a> "
end if
next
if page=intpagecount then
Response.Write " <FONT COLOR=darkgray>下一页</FONT><

你没有给添加链接行为啊。
做一个判断,如果当前页大于1,则前一页可用,否则成无链接状态:
<%

……
if Cint(Request("page"))>1 then
Response.Write "<FONT COLOR=darkgray><a href='index.asp?page=" & page-1 & "'>上一页</a></FONT> "
else
Response.Write "<FONT COLOR=darkgray>上一页</FONT> "
end if

%>