这是一篇有关新闻文章中下一篇上一篇的代码,想修改为按时间排序怎么做(只在修改SQL排序是不行的,排出的顺序不对)
这是一篇有关新闻文章中上一篇下一篇的代码,想修改为按时间排序如何做(只在修改SQL排序是不行的,排出的顺序不对)?
<%
dim pid1,pid2,pid3
classid = rs3("Smallclassid")
pid1=rs3("newsid")
function Getpre
sql="select top 1 * from news where newsid >"&pid1&" and SmallClassID="&classid&" order by newsid asc"
set rs3=conn.execute(sql)
if rs3.eof or rs3.bof then
response.Write("没有新闻了")
else
pid2=rs3("newsid")
response.Write("<a href='default.asp?newsid="&pid2&"'>"&rs3("title")&"</a>")
end if
end function
function Getnext
sql="select top 1 * from news where newsid <"&pid1&" and SmallClassID="&classid&" order by newsid desc"
set rs3=conn.execute(sql)
if rs3.eof then
response.Write("没有新闻了")
else
pid3=rs3("newsid")
response.Write("<a href='default.asp?newsid="&pid3&"'>"&rs3("title")&"</a>")
end if
end function
%>
<table width="438" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="399"><span class="shang">上一篇:
<% getpre %>
</span></td>
</tr>
<tr>
<td><span class="shang">下一篇:
<% getnext %>
</span></td>
</tr>
</table>
------解决方案--------------------
<%
dim pid1,pid2,pid3
classid = rs3("Smallclassid")
pid1=rs3("newsid")
function Getpre
sql="select top 1 * from news where newsid >"&pid1&" and SmallClassID="&classid&" order by newsid asc"
set rs3=conn.execute(sql)
if rs3.eof or rs3.bof then
response.Write("没有新闻了")
else
pid2=rs3("newsid")
response.Write("<a href='default.asp?newsid="&pid2&"'>"&rs3("title")&"</a>")
end if
end function
function Getnext
sql="select top 1 * from news where newsid <"&pid1&" and SmallClassID="&classid&" order by newsid desc"
set rs3=conn.execute(sql)
if rs3.eof then
response.Write("没有新闻了")
else
pid3=rs3("newsid")
response.Write("<a href='default.asp?newsid="&pid3&"'>"&rs3("title")&"</a>")
end if
end function
%>
<table width="438" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="399"><span class="shang">上一篇:
<% getpre %>
</span></td>
</tr>
<tr>
<td><span class="shang">下一篇:
<% getnext %>
</span></td>
</tr>
</table>
------解决方案--------------------
- VBScript code
dim pid1,pid2,pid3 classid = rs3("Smallclassid") pid1=rs3("newsid") shijian=rs3("时间字段")'============ function Getpre sql="select top 1 * from news where 时间字段 >'"&shijian&"' and SmallClassID="&classid&" order by newsid asc"'============ set rs3=conn.execute(sql) if rs3.eof or rs3.bof then response.Write("没有新闻了") else pid2=rs3("newsid") response.Write("<a href='default.asp?newsid="&pid2&"'>"&rs3("title")&"</a>") end if end function function Getnext sql="select top 1 * from news where 时间字段 <'"&shijian&"' and SmallClassID="&classid&" order by newsid desc"'============ set rs3=conn.execute(sql) if rs3.eof then response.Write("没有新闻了") else pid3=rs3("newsid") response.Write("<a href='default.asp?newsid="&pid3&"'>"&rs3("title")&"</a>") end if end function