本论坛中的上一篇和下一篇的连接是怎么做的啊
就是滚动记录

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

通过类别和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&"'"

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

通过类别和ID进行定位

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

<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><span class=standard_font>上一条："&rs("m_title")&"</span></a>")
    else
        response.Write("<span class=standard_font>上一条：没有了</span>")
    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><span class=standard_font>下一条："&rs("m_title")&"</span></a>")
    else
        response.Write("<span class=standard_font>下一条：没有了</span>")
    end if%>
    </td>
</tr>

这里是一个根据发布时间调用的一个函数：
参数说明：
    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 = "<font color='#999999'>已经是最后一篇了</font>"
    Else
         cnStr = " PublitTime>'"& cTime &"' Order By PublishTime Asc"
         returnStr = "<font color='#999999'>已经是第一篇了</font>"
    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")%>