基于ASP新聞中中上一條下一條記錄實現的方法
代碼如下
xw 表字段
id 自動編號
xwbt 新聞標題
xwnr 新聞內容
xwlb_id 對應新聞類別ID
tjsj 錄入時間
代碼如下：
<%
sql1="select * from xw where xwlb_id="&xwlb_id&" order by tjsj desc" '如果有類別的話,加上where lbid="lbid",最好前面加上,如果lbid<>空,那樣是最好了
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open sql1,cn,1,3
do while not rs1.eof
if rs1("id") = rs("id") then '這里要注意一下,rs1的ID和rs的ID是同一個,但是rs的id是上面顯示新聞的ID,因為這個上一條和下一條都在新聞下面嗎,呵呵
exit do
end if
rs1.movenext
loop
%>
<%rs1.moveprevious%>
<%
if rs1.bof then
response.write ""
else
%>
<a href="?id=<%=rs1("id")%>">
<%set rsokss=server.CreateObject("adodb.recordset")
rsokss.open"select * From xw where id="&rs1("id"),cn,1,3%>
上一篇：<%=rs1("xwbt")%></a><br>
<%
end if
rs1.movenext
rs1.movenext
%>
<%
if rs1.eof then
response.write ""
else
%>
<a href="?id=<%=rs1("id")%>">
<%set rsokss=server.CreateObject("adodb.recordset")
rsokss.open"select * From xw where id="&rs1("id"),cn,1,3%>
下一篇：<%=rs1("xwbt")%>
<%end if%>
</a>
<%
rs1.close
set rs1=nothing
%>