Question

asp 实现 上一篇 下一篇功能

我想要整个网页的代码,只要包括 这个 上一篇 下一篇的功能的网页即可。
简单点的哈

Answer 1

简单一点可以用数据集的分页来实现
sql= "select * from nesw"
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1
rs.PageSize = 10
'rs.PageSize = 10设置分页的记录数现在是10条记录分一页，一条一页的话就把rs.PageSize设置为1就ok了，还有这是一个要接受参数的页面所以要在页面上面写上接受的参数（页数，数据库中数据记录的id）

'后面是页面传递参数的处理防止在表单中输入的参数不正确而导致页面出现异常错误
If Len(Request("page")) = 0 Then '如果为空
iPage = 1
Elseif Not IsNumeric(Request("page")) Then '如果不是数字
page=CInt(Asc(Request("page")))
If page < 1 Then
iPage=1
ElseIf page > CInt(rs.PageCount) Then
iPage=CInt(rs.PageCount)
else
ipage=page
End If
Else '如果是数字
page=Cint(Request("page"))
if page > CInt(rs.PageCount) Then
ipage=rs.pagecount
elseif page<1 then
ipage=1
else
ipage=page
end if'是不是数字
End if'有没有参数
'页面参数传递处理完毕

'中间就是你要显示的新闻的内容

'下面是出现的超链接：上一页 下一页 第一页 最后一页 ====
'页脚上的超连接的控制部分
<CENTER><FORM METHOD=get ACTION="neswshow.asp">
第<% =iPage%>页 共<%=rs.PageCount%>页,<%=rs.recordcount%>条记录。 <br>
<%If CInt(iPage) = 1 Then %>
[第一页] [上一页]
<% Else %>
<a href="neswshow.asp?page=1">[第一页]</a>
<a href="neswshow.asp?page=<% = iPage - 1 %>">[上一页]</a>
<% End If %>
<% If CInt(iPage) = CInt(rs.PageCount) Then %>
[下一页] [最后一页]
<% Else %>
<a href="neswshow.asp?page=<% = iPage + 1 %>">[下一页]</a>
<a href="neswshow.asp?page=<% = rs.PageCount %>">[最后一页]</a>
<% End If %>

请输入页码：<INPUT TYPE="text" NAME="page" size="4" maxlength="4 </FORM>
</CENTER>
代码说明：
ipage：是翻页参数就像看书一样新闻的第几页，或者说第几条新闻
rs.recordcount：是说数据库中的记录有几条
rs.PageCount:数据集分页数
neswshow.asp：是本页面的文件名
明白了吗？
至于文章标题的显示
在页面开始的时候或者说title标签使用之前，先建立数据集然后在<title><%=rs(biaoti)%></title>就OK了biaoto是数据库中用于存放新闻标题的字段这下应该彻底明白了吧？？？？！！！

Answer 2

<%
if page<>1 then
response.write"<a href=?page="&(page-1)&">上一篇</a> "
end if
if page<>rs.pagecount then
response.write"<a href=?page="&(page+1)&">下一篇</a> "
end if
%>