ASP 上一篇 下一篇 怎么实现
ASP上一篇下一篇怎么实现ASP上一篇下一篇怎么实现ASP上一篇下一篇怎么实现简单一点的代码,思路明确一点的，我很笨，复杂的看不懂，刚刚接错ASP！谢谢大家给我一个明确的...
ASP 上一篇 下一篇 怎么实现
ASP 上一篇 下一篇 怎么实现
ASP 上一篇 下一篇 怎么实现
简单一点的代码, 思路明确一点的，我很笨，复杂的看不懂，刚刚接错ASP！
谢谢大家给我一个明确的思路。
最好代码后面有注释，如果是函数，怎么调用。改怎么写？？？
谢谢大家了。 展开
ASP 上一篇 下一篇 怎么实现
ASP 上一篇 下一篇 怎么实现
简单一点的代码, 思路明确一点的，我很笨，复杂的看不懂，刚刚接错ASP！
谢谢大家给我一个明确的思路。
最好代码后面有注释，如果是函数，怎么调用。改怎么写？？？
谢谢大家了。 展开
展开全部
<!--程序开始-->
'定义一个thenext函数来找出下一篇的ID，如果当前记录已经是最后一条记录，则输出文字“没有了”
<%
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="s elect top 1 * from articles where id>"&a1&" order by id"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("没有了")
else
a2=newrs("id")
response.Write("<a href='view.asp?id="&a2&"'>下一篇</a>")
end if
end function
%>
'定义一个thehead函数来找出下一篇的ID，如果当前记录已经是最前面的一条记录，则输出文字“没有了”
<%
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="s elect top 1 * from articles where id<"&a1&" order by id desc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("没有了")
else
a0=headrs("id")
response.Write("<a href='view.asp?id="&a0&"'>上一篇</a>")
end if
end function
%>
'数据库连接文件
<!--#include file="conn.asp"-->
'取得传递过来的ID，显示文章标题作者和内容
<%
id=request("id")
sql="s elect * from articles where id="&id
set rs=conn.execute(sql)
%>
<%
boardid=rs("boardid")
%>
<title>文章系统-<% =rs("title") %></title>
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<%Do While Not rs.EOF%>
<table width="773" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="576" align="left"><table width="557" border="0" cellspacing="5" cellpadding="4" align="left"> <tr> <td colspan="2" align="center">
<span style="font-size:9pt color:#efefef"><%= rs("title") %><br> <div align="right">
<span style="font-size:9pt color:#efefef">作者：<%= rs("author") %></span></div> </span></td></tr><tr><td colspan="2" >
<span style="font-size:9pt color:#efefef">
<!--将数据库的资料取出，经过编码后输出，保持输入时的格式不变-->
<%= replace(server.HTMLEncode(rs("content")),chr(13),"<br>") %></span></td></tr><% a1=rs("id") %><tr><td width="269" align="right">
<!--调用前面定义的显示上一篇的函数-->
<% thehead %>
</td>
<td width="257" align="right">
<!--调用前面定义的显示下一篇的函数-->
<% thenext %></td></tr>
<% rs.MoveNext
Loop
%></table></td><td width="217" valign="top" align="left">相关文章：
'根据当前文章的栏目号，找出同一栏目的文章
<%sql="s elect * from articles where boardid="&boardid&""
set rs=conn.execute(sql)%>
<%Do While Not rs.EOF %>
<table width="207" border="0" cellspacing="2" cellpadding="2">
<tr>
<td height="20">
<a href="view.asp?id=<%=rs("id")%>">
<%= rs("title") %>
</a></td></tr></table>
<% rs.MoveNext%><%Loop%></td>
</tr>
</table>
<!--#include file="copyright.asp" -->
</body>
<!--程序结束-->
'定义一个thenext函数来找出下一篇的ID，如果当前记录已经是最后一条记录，则输出文字“没有了”
<%
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="s elect top 1 * from articles where id>"&a1&" order by id"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("没有了")
else
a2=newrs("id")
response.Write("<a href='view.asp?id="&a2&"'>下一篇</a>")
end if
end function
%>
'定义一个thehead函数来找出下一篇的ID，如果当前记录已经是最前面的一条记录，则输出文字“没有了”
<%
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="s elect top 1 * from articles where id<"&a1&" order by id desc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("没有了")
else
a0=headrs("id")
response.Write("<a href='view.asp?id="&a0&"'>上一篇</a>")
end if
end function
%>
'数据库连接文件
<!--#include file="conn.asp"-->
'取得传递过来的ID，显示文章标题作者和内容
<%
id=request("id")
sql="s elect * from articles where id="&id
set rs=conn.execute(sql)
%>
<%
boardid=rs("boardid")
%>
<title>文章系统-<% =rs("title") %></title>
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<%Do While Not rs.EOF%>
<table width="773" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="576" align="left"><table width="557" border="0" cellspacing="5" cellpadding="4" align="left"> <tr> <td colspan="2" align="center">
<span style="font-size:9pt color:#efefef"><%= rs("title") %><br> <div align="right">
<span style="font-size:9pt color:#efefef">作者：<%= rs("author") %></span></div> </span></td></tr><tr><td colspan="2" >
<span style="font-size:9pt color:#efefef">
<!--将数据库的资料取出，经过编码后输出，保持输入时的格式不变-->
<%= replace(server.HTMLEncode(rs("content")),chr(13),"<br>") %></span></td></tr><% a1=rs("id") %><tr><td width="269" align="right">
<!--调用前面定义的显示上一篇的函数-->
<% thehead %>
</td>
<td width="257" align="right">
<!--调用前面定义的显示下一篇的函数-->
<% thenext %></td></tr>
<% rs.MoveNext
Loop
%></table></td><td width="217" valign="top" align="left">相关文章：
'根据当前文章的栏目号，找出同一栏目的文章
<%sql="s elect * from articles where boardid="&boardid&""
set rs=conn.execute(sql)%>
<%Do While Not rs.EOF %>
<table width="207" border="0" cellspacing="2" cellpadding="2">
<tr>
<td height="20">
<a href="view.asp?id=<%=rs("id")%>">
<%= rs("title") %>
</a></td></tr></table>
<% rs.MoveNext%><%Loop%></td>
</tr>
</table>
<!--#include file="copyright.asp" -->
</body>
<!--程序结束-->
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
楼上的太复杂，看不懂。
== Code ==
取得记录总数 Counts
取得单页显示数 Pagesize
计算出总页数 PageCounts
当前页数变量值 PageThis
假定数据显示第一页，那显示的记录为
从 (PageThis-1)*Pagesize 到 PageThis*Pagesize
=> 当前页为 1 则，记录条数从 上一页的记录条数开始 到这一页的记录条数。
=> 假设当前要显示的为 第 9 页,那么记录条数就是从 8*Pagesize 到 9*Pagesize
=> 当有 下一页 或者 上一页 的时候。
=> ASP 获取 比如 index.asp?page=3
=> 下一页就是 index.asp?page=4
前面有说到的3个变量都是有用的。
说的不很清楚，有不懂的加我Q
== Code ==
取得记录总数 Counts
取得单页显示数 Pagesize
计算出总页数 PageCounts
当前页数变量值 PageThis
假定数据显示第一页，那显示的记录为
从 (PageThis-1)*Pagesize 到 PageThis*Pagesize
=> 当前页为 1 则，记录条数从 上一页的记录条数开始 到这一页的记录条数。
=> 假设当前要显示的为 第 9 页,那么记录条数就是从 8*Pagesize 到 9*Pagesize
=> 当有 下一页 或者 上一页 的时候。
=> ASP 获取 比如 index.asp?page=3
=> 下一页就是 index.asp?page=4
前面有说到的3个变量都是有用的。
说的不很清楚，有不懂的加我Q
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
sql="select top 1 标题,id from 文章 where id<"&本文章ID&" order by id desc"
set rs=conn.execute(sql)
if rs.eof then
response.write "上一篇文章:没有了"
else
response.write "上一篇文章: <a href=显示页.asp?id="&rs("id")">"&rs("标题")&"</a>"
end if
sql="select top 1 标题,id from 文章 where id>"&本文章ID&" order by id"
set rs=conn.execute(sql)
if rs.eof then
response.write "下一篇文章:没有了"
else
response.write "下一篇文章:<a href=显示页.asp?id="&rs("id")">"&rs("标题")&"</a>"
end if
set rs=conn.execute(sql)
if rs.eof then
response.write "上一篇文章:没有了"
else
response.write "上一篇文章: <a href=显示页.asp?id="&rs("id")">"&rs("标题")&"</a>"
end if
sql="select top 1 标题,id from 文章 where id>"&本文章ID&" order by id"
set rs=conn.execute(sql)
if rs.eof then
response.write "下一篇文章:没有了"
else
response.write "下一篇文章:<a href=显示页.asp?id="&rs("id")">"&rs("标题")&"</a>"
end if
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
假设当前文章ID赋值给了id这个变量，那么
"select top 1 * from tables where id>" & id & " order by id asc"比当前ID大按升序排既上一条
"select top 1 * from tables where id<" & id & " order by id desc"比当前ID小按降序排既下一条
你可以加一些判断，其实和楼上的一样，希望你能看明白
"select top 1 * from tables where id>" & id & " order by id asc"比当前ID大按升序排既上一条
"select top 1 * from tables where id<" & id & " order by id desc"比当前ID小按降序排既下一条
你可以加一些判断，其实和楼上的一样，希望你能看明白
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
