神马品牌网新世纪福音战士手游下载:asp如何实现文章的上下篇功能?
来源：百度文库 编辑：神马品牌网 时间：2024/04/27 01:27:46
请问是怎么实现的呢?
+i-i要是文章被删除了就断掉了...还有什么其他实现方法呢?
newrs=server.CreateObject("adodb.recordset")
newrssql="select top 1 * from wen where id>"&id&" and type1="&type1&" and type2="&type2&" order by id asc"
set newrs=conn.execute(newrssql)
if newrs.eof then
response.Write("这是本栏目第一篇文章！")
else
if len(newrs("title"))>15 then
response.Write("<a href='detail.asp?type1="&type1&"&type2="&type2&"&id="&newrs("id")&"' pop='"&newrs("title")&"'>"&left(newrs("title"),15)&"..</a>")
else
response.Write("<a href='detail.asp?type1="&type1&"&type2="&type2&"&id="&newrs("id")&"'>"&newrs("title")&"</a>")
end if
end if
newrs=server.CreateObject("adodb.recordset")
newrssql="select top 1 * from wen where id<"&id&" and type1="&type1&" and type2="&type2&" order by id desc"
set newrs=conn.execute(newrssql)
if newrs.eof then
response.Write("这是本栏目最后一篇文章！")
else
if len(newrs("title"))>15 then
response.Write("<a href='detail.asp?type1="&type1&"&type2="&type2&"&id="&newrs("id")&"' pop='"&newrs("title")&"'>"&left(newrs("title"),15)&"..</a>")
else
response.Write("<a href='detail.asp?type1="&type1&"&type2="&type2&"&id="&newrs("id")&"'>"&newrs("title")&"</a>")
end if
end if
这个是的我实现方法
文章删除后 同样的又生成上一篇下一篇 只是中间不连续
恩
这两个单独写成函数，调用就好了
好像不是id+1，应该是用select全部搜索出来的下一个id的值