wordpress上一篇下一篇自定义样式_如何将html代码转成访问连接

wordpress上一篇下一篇自定义样式_如何将html代码转成访问连接’******************************************************’Depiction:ShowHead’Param:CiassID类别ID号’Article_id当前文章ID号’Returns:返回上一篇文章的链接’CreateDate:07/07/2006’*****************************…_csdn如何链接下一篇文章

wordpress上一篇下一篇自定义样式_如何将html代码转成访问连接

‘******************************************************
‘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

 

今天的文章wordpress上一篇下一篇自定义样式_如何将html代码转成访问连接分享到此就结束了,感谢您的阅读,如果确实帮到您,您可以动动手指转发给其他人。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:https://bianchenghao.cn/58063.html

(0)
编程小号编程小号

相关推荐

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注