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