Question

asp如何实现文章的上下篇功能?

<!--#include file="conn.asp"-->
<%id=request("id")%>
<%
Set Prs=server.CreateObject("adodb.recordset")
PSql="select top 1 * from wen where id<"&id&" order by id desc"
Prs.open PSql,conn,1,3
NSql="select top 1 * from wen where id>"&id&" order by id asc"
Set Nrs=server.CreateObject("adodb.recordset")
Nrs.open NSql,conn,1,3
%>
<div class="news_updown"><span title="下一篇"><strong>下一篇：<font title="下一篇"> <%if not Nrs.eof then%><a title="<%=Nrs("title")%>" href='Content.asp?/<%=ClassId%>-<%=Nrs("Id")%>.<%=HtmlStrName%>'><%=Left(Nrs("Title"),16)%></a><%end if %></font></strong></span>

<strong><font title="上一篇">上一篇：</font><%if not Prs.eof then%><a href='Content.asp?/<%=ClassId%>-<%=Prs("Id")%>.<%=HtmlStrName%>' title="<%=Prs("title")%>"><%=Left(Prs("Title"),16)%></a><%end if %></strong></div>
在本页如何取id，response输出NSql="select top 1 * from wen where id>"&id&" order by id asc"id为空

Answer 1

<table><tr><td align="left"><%=thehead%></td><td align="right"><%=thenext%></td></tr></table>

<%

function thehead
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 ID,Title from Yao_Article where id<"&id&" and ClassID="&rs("ClassID")&" order by id desc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("上一篇：没有了")
else
a0=headrs("id")
a1=headrs("Title")
If html=1 then
response.Write("上一篇：<a href='../List.asp?ID="&a0&"'>"&a1&"</a>")
Else
response.Write("上一篇：<a href='?"&a0&".html'>"&a1&"</a>")
End if
end if
end function

function thenext
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 ID,Title from Yao_Article where id>"&id&" and ClassID="&rs("ClassID")&" order by id asc"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("下一篇：没有了")
else
a0=newrs("id")
a1=newrs("Title")
If html=1 then
response.Write("下一篇：<a href='../List.asp?ID="&a0&"'>"&a1&"</a>")
Else
response.Write("下一篇：<a href='?"&a0&".html'>"&a1&"</a>")
End if
end if
end function
%>
<"&id&" 他是当前文章的id

你试试看看可以吗

Answer 2

<%
dim page,pagecount,thispage,linenum,allline
const pageline=25 //每页显示行数
linenum=split(rqtContent,"<br>") //本例为计算字符串<br>标记的个数
allline=ubound(linenum) //全文<br>(换行标记)总数
pagecount=int(allline/pageline)+1 //计算总页数
page=request("page")
if isempty(page) then
thispage=1
else
thispage=cint(page)
end if
response.write "<title>"&title&"</title><b>"&title&"</b>"
for i=0 to allline
if i>thispage*pageline-pageline and i<thispage*pageline then
response.write linenum(i) &"<br>" //输出分页后的内容
end if
next
response.write "</br>"&"<center>"
for i=1 to pagecount
if thispage=i then
response.write " "&"<a href='?page="&i&"&id="&id&"' alt='当前页'>第"&i&"页</a>" & " "
else
response.write " "&"<a href='?page="&i&"&id="&id&"' >第"&i&"页</a>" & " " //输出所有分页链接
end if
next
response.write "<center>"
%>

--------------------------------------------------------------------------------

<%
For i = 0 To 99
rqtContent = rqtContent & i & "<br>"
Next
dim page,pagecount,thispage,linenum,allline
const pageline=25 '每页显示行数
linenum=split(rqtContent,"<br>") '本例为计算字符串<br>标记的个数
allline=ubound(linenum) '全文<br>(换行标记)总数
If allline/pageline <> Int(allline/pageline) Then
pagecount=int(allline/pageline)+1 '计算总页数
Else
pagecount=int(allline/pageline) '计算总页数
End If

page=request("page")
if isempty(page) then
thispage=1
else
thispage=cint(page)
end if
response.write "<title>"&title&"</title><b>"&title&"</b>"
for i=0 to allline
if i>=thispage*pageline-pageline and i<thispage*pageline then
response.write linenum(i) &"<br>" '输出分页后的内容
end if
next
response.write "</br>"&"<center>"
for i=1 to pagecount
if thispage=i then
response.write " "&"<a href='?page="&i&"&id="&id&"' alt='当前页'>第"&i&"页</a>" & " "
else
response.write " "&"<a href='?page="&i&"&id="&id&"' >第"&i&"页</a>" & " " '输出所有分页链接
end if
next
response.write "<center>"
%>

Answer 3

<table><tr><td
align="left"><%=thehead%></td><td
align="right"><%=thenext%></td></tr></table>
<%
function
thehead
headrs=server.CreateObject("adodb.recordset")
sql="select
top
1
ID,Title
from
Yao_Article
where
id<"&id&"
and
ClassID="&rs("ClassID")&"
order
by
id
desc"
set
headrs=conn.execute(sql)
if
headrs.eof
then
response.Write("上一篇：没有了")
else
a0=headrs("id")
a1=headrs("Title")
If
html=1
then
response.Write("上一篇：<a
href='../List.asp?ID="&a0&"'>"&a1&"</a>")
Else
response.Write("上一篇：<a
href='?"&a0&".html'>"&a1&"</a>")
End
if
end
if
end
function
function
thenext
newrs=server.CreateObject("adodb.recordset")
sql="select
top
1
ID,Title
from
Yao_Article
where
id>"&id&"
and
ClassID="&rs("ClassID")&"
order
by
id
asc"
set
newrs=conn.execute(sql)
if
newrs.eof
then
response.Write("下一篇：没有了")
else
a0=newrs("id")
a1=newrs("Title")
If
html=1
then
response.Write("下一篇：<a
href='../List.asp?ID="&a0&"'>"&a1&"</a>")
Else
response.Write("下一篇：<a
href='?"&a0&".html'>"&a1&"</a>")
End
if
end
if
end
function
%>
<"&id&"
他是当前文章的id
你试试看看可以吗

Answer 4

你查询就可以了
按照当前id
按照小于就是上一行 倒序排列
大于就是下一行 升序排列

Answer 5

跟分页是一个原理，你把页数改成一就行了