ASP 数字分页问题？？
<body>
<table width="300" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="74" height="22" bgcolor="#0000FF"><span class="STYLE1">ID</span></td>
<td width="226" bgcolor="#0000FF"><span class="STYLE1">标题</span></td>
</tr>
<%
sql="select id,title from news order by id desc"
rs.open sql,conn,1,1
If rs.eof Then
Else
rs.pagesize=3
page=request("page")
If Not Isnumeric(page) or page="" Then
page=1
else
page=cint(page)
End if
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.AbsolutePage = page
for i=1 to rs.pagesize
id = rs("id")
title = rs("title")
'******************下面是你要显示的******************'
%>
<tr>
<td height="22"><%=id%></td>
<td><a href="news.asp?id=<%=id%>" target="_blank"><%=title%></a></td>
</tr>
<%
'******************上面是你要显示的******************'
rs.movenext
if rs.eof then
Exit For
End if
next
end if
%>
<tr>
<td height="22" colspan="2"><%
if page>2 then s1=page-2 else s1=1
if page<rs.pagecount-2 then s2=page+2 else s2=rs.pagecount
if s1>=2 then response.write "上一主题"
for j=s1 to s2
if j=page then
response.write "<a href=""?page="&j&"""><font color=#ff0000>"&j&"</font></a> "
else
response.write "<a href=""?page="&j&""">"&j&"</a> "
end if
next
if s2<rs.pagecount then response.write "下一主题"
rs.close
%></td>
</tr>
</table>
</body>
</html>
祥细解释一下 下面这代码：
不理解这种分页
<%
set rs=nothing%>
if page>2 then s1=page-2 else s1=1
if page<rs.pagecount-2 then s2=page+2 else s2=rs.pagecount
if s1>=2 then response.write "上一主题"
for j=s1 to s2
if j=page then
response.write "<a href=""?page="&j&"""><font color=#ff0000>"&j&"</font></a> "
else
response.write "<a href=""?page="&j&""">"&j&"</a> "
end if
next
if s2<rs.pagecount then response.write "下一主题"
rs.close
大概功能就是，用数字显示当前页之前2个和当前页之后两个及当前页，共五个数字（代表“页”），如果前面数字（从1开始算）不够或等于2个，那么不显示“上一主题”，如果后面数字不够2个（从总页数开始减着算），那么不显示“下一主题”，当前页为红色字体显示。
功能大概就是
1、当前页如果大于2，那么显示“上一主题”
2、当前页小于最大页数减去2，显示“下一主题”
3、中间显示数字的情况需要举例说明
如共3页 当前页无关 显示为 1，2，3
如共5页 当前页第1页 显示为 1，2，3 下一主题
如共5页 当前页第2页 显示为 1，2，3，4 下一主题
如共5页 当前页第3页 显示为 1，2，3，4，5
如共5页 当前页第4页 显示为 上一主题 2，3，4，5
如共5页 当前页第5页 显示为 上一主题 3，4，5
如共7页 当前页为4页 显示为 上一主题 2，3，4，5，6 下一主题
ASP 数字分页问题??
大概看了一下你的代码，这是一个简单的，而且不完整的分页 大概功能就是，用数字显示当前页之前2个和当前页之后两个及当前页，共五个数字（代表“页”），如果前面数字（从1开始算）不够或等于2个，那么不显示“上一主题”，如果后面数字不够2个（从总页数开始减着算），那么不显示“下一主题”...
asp 数字分页问题
pageno=?startn=pageno-4 lastn=pageno+4 if startn<=0 then startn=1 ' (保证分页时，第一页正常范围)if lastn>=pageno then lastn=pageno ' (保证分页时，最后一页正常范围)'以下直接输出 for i=startn to lastn \/\/输出 next 用这样试试 ...
菜鸟求asp数字分页问题
if firstpage>1 then '是否显示第一页，如果当前数字导航中不出现1的情况 response.write vbcrlf+ "第一页 "end if if page>1 then '如果当前页不是第一页则输出上一页的链接cstr返回数字字符串 response.write vbcrlf+ "上一页 "end if for x=firstpage to lastpage '循环输出...
这asp分页该怎么增加[1] [2] [3] [4]等等。
page为当前页数，比较这个数字 if page-3>1 then min=page-3 else min=1 if page<rs.PageCount-3 then max=page+3 else max=rs.PageCount 有了这个最小值min和最大值，使用一个for语句输出就行了。
asp添加数字分页问题
Page=<%=(Page+1)%>&pages=<%=pages%>"> 下一页 <a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&pages=<%=pages%>"> 最后一页 <% End If %> 输入页次: 页:
asp中分页代码问题?
if isnumeric(request("pageNo"))=false then '输入的不是数字的时候 response.write("alert('错误的页码参数！');location.href='javascript:history.back()';")response.end()else pageNo=int(request("pageNo"))if pageNo<1 then pageNo=1 if pageNo> TotalPage then pageNo= TotalPage ...
asp.net 分页问题topage到底是什么啊?别的页面没有这个?
从这段代码来看，ToPage是一个用来表示当前要显示的页数的字符串变量。逻辑如下：第一个If如果没有向该页面传递参数ToPage，就显示第一页的数据。第二个If如果传递过来的ToPage参数不是数字类型（其实相当于一个异常处理，即：如果参数类型错误，就给参数值默认为1），就显示第一页的数据。this.Bind_...
asp分页的问题,懂VB的进啊.
for i=1 to len(request("page"))checkpage=instr(1,text,mid(request("page"),i,1))next \/\/依次取page里的一个数位值（比如，30中取3后再取0），然后确定在text中的位置并返回值给checkpage。（如果page为3，则返回4，如果page为30则返回41）if checkpage=0 then exit for end if \/\/...
asp数字分页 控制页数的问题
write k Else response.write"["&k&"]"End If Next else For k=1 To rs.PageCount if k=nowpage Then response.write k Else response.write"["&k&"]"End If Next end if%>
高分求教:ASP分页问题,上一页、下一页不能用,急急急
'分页 if pagecount>1 then dim myurl,pageposition myurl=Request.ServerVariables("QUERY_STRING")if myurl<>"" then pageposition=instr(myurl,"page")if pageposition>0 then myurl=left(myurl,pageposition-1)else myurl=myurl+"&"end if end if response.write ""response.writ...
