上一篇,下一篇链接代码

'******************************************************
'Depiction：ShowHead
'Param：CiassID 类别ID号
'        Article_id  当前文章ID号
'Returns：返回上一篇文章的链接
'Create Date：07/07/2006
'******************************************************
Sub ShowHead(ClassID,Article_id)
    Sql = "Select top 1 * from Fzarticle Where Article_id > "& Article_ID &" And ClassID = "& ClassID &" order by Article_ID desc"
    Set HRs = Conn.Execute(Sql)
    If Not HRs.Eof Then
        Response.Write "<a href=ArticleShow.Asp?ClassID="&HRs("ClassID")&"&Article_id="&HRs("Article_id")&">"&HRs("title")&"</a>"
    Else
        Response.Write "已经是最前一篇了"
    End If
    HRs.Close
    Set HRs = Nothing
End Sub

'******************************************************
'Depiction：ShowNext
'Param：CiassID 类别ID号
'        Article_id  当前文章ID号
'Returns：返回下一篇文章的链接
'Create Date：07/07/2006
'******************************************************
Sub ShowNext(ClassID,Article_id)
    Sql = "Select top 1 * from Fzarticle Where Article_id < "& Article_ID &" And ClassID = "& ClassID &" order by Article_ID desc"
    Set HRs = Conn.Execute(Sql)
    If Not HRs.Eof Then
        Response.Write "<a href=ArticleShow.Asp?ClassID="&HRs("ClassID")&"&Article_id="&HRs("Article_id")&">"&HRs("title")&"</a>"
    Else
        Response.Write "已经是最后一篇了"
    End If
    HRs.Close
    Set HRs = Nothing
End Sub