本论坛中的上一篇和下一篇的连接是怎么做的啊 - 编程论坛

#2

guang23564472007-12-07 13:16

本论坛中的上一主题和下一主题的连接是怎么做的啊

#3

craft001wen2007-12-07 16:53

通过类别和ID进行定位
如判断　上一条：
sql="select top 1 * from title where id >"&Order_id& " and title_type='"&typeid&"'"
反之下一条：
sql="select top 1 * from title where id<"&Order_id& " and title_type='"&typeid&"'"

至于什么时候到最后一条，你自己想一下就明白了

#4

guang23564472007-12-08 08:32

通过类别和ID进行定位

通过类别和ID进行定位

怎么连接到上一主题上啊
帮帮忙

#5

海仅拥虾2007-12-08 09:27

实现网站底部上一条下一条代码

<tr>
 <td height="10" align="left" class="c">
 <%set rs=server.CreateObject("Adodb.recordset")
 rs.open "select top 1 * from zs_news where m_classid="&classid&" and m_id<"&newsid&" order by m_id desc",conn,1,1
 if not rs.eof then
 response.Write("<a href=show-news.asp?news_id="&rs("m_id")&"&classid="&rs("m_classid")&" class=b>上一条："&rs("m_title")&"</a>")
 else
 response.Write("上一条：没有了")
 end if%>
 </td>
</tr>
<tr>
 <td height="10" align="left" class="c"><%set rs=server.CreateObject("Adodb.recordset")
 rs.open "select top 1 * from zs_news where m_classid="&classid&" and m_id>"&newsid&" order by m_id asc",conn,1,1
 if not rs.eof then
 response.Write("<a href=show-news.asp?news_id="&rs("m_id")&"&classid="&rs("m_classid")&" class=b>下一条："&rs("m_title")&"</a>")
 else
 response.Write("下一条：没有了")
 end if%>
 </td>
</tr>

#6

阳光白雪2007-12-08 10:35

这里是一个根据发布时间调用的一个函数：
参数说明：
 cTime=当前帖子的发布时间
 gType=显示上一篇还是下一篇，为next表示显示下一篇的连接，否则显示上一篇的连接
<%
Function getToLink(cTime,gType)
 If cTime = "" Or Not IsDate(cTime) Then
 Exit Function
 End If
 Dim cnStr,returnStr,getSql,getRs
 If gType = "next" Then
 cnStr = " PublitTime<'"& cTime &"' Order By PublishTime Desc"
 returnStr = "已经是最后一篇了"
 Else
 cnStr = " PublitTime>'"& cTime &"' Order By PublishTime Asc"
 returnStr = "已经是第一篇了"
 End If
 getSql = "Select top 1 Id,Title From Web_Article Where "& cnStr
 Set getRs = Conn.Execute(getSql)
 If Not getRs.Eof Then
 returnStr = "<a href=""NewsShow.Asp?newsid="& getRs("Id") &""">"& getRs("Title") &"</a>"
 End If
 getRs.Close()
 Set getRs = Nothing
 getToLink = returnStr
End Function
%>

条用方法：
上一篇：<%=getToLink(pubtime,"back")%>
下一篇：<%=getToLink(pubtime,"next")%>