28,409
社区成员




Set Rs=Server.CreateObject("adodb.recordset")
Sql="Select news_id,news_title From [mark] Order By news_id"
'排列方式不同请修改Order By
Rs.open Sql,Conn,1,1
Rs.find "news_id="&id 'id为本文ID
Rs.MovePrevious
If Rs.Bof Then
response.write "<span id='p_l' title='none'>< Previous</span>"
Else
response.write "<span id='p_l' title="""&Rs(1)&"""><a href='?id="&Rs(0)&"'>< Previous</a></span>"
End If
Rs.Move 2
If Rs.Eof Then
response.write "<span id='p_r' title='none'>Next ></span>"
Else
response.write "<span id='p_r' title="""&Rs(1)&"""><a href='?id="&Rs(0)&"'>Next ></a></span>"
End If
Rs.Close:Set Rs=Nothing