• 风格:
网站首页
新闻资讯
文章中心
影视录音
歌曲音乐
精美图片
资源下载
在线商城
网页特效
用户信息
综合导航
  • 临沂广播网
  • 临沂广播网
  • 站内新闻
  • 临沂新闻
  • 新浪新闻
  • 站内风彩
  • 美女帅哥
  • 桌面图片
  • 节目录音
  • 影片采集
  • 精彩推荐
  • 国语歌曲
  • 网络歌曲
  • 情感故事
  • 忘忧秀豆
  • 娱乐幽默
  • 技术文章
  • 临沂广播网
  • 临沂广播网
  • 留言本站
  • 会员娱乐
  • 动漫频道
  • 酷站推荐
  • 友情连接
  • 程序讨论
您的位置:首页 >> 文章频道 >> HxCmsV8.0本站首页留言调控方法
文章阅读

HxCmsV8.0本站首页留言调控方法

作者:网络 | 来源:网络转摘 | 时间:2008-01-22 | 阅读权限:游客身份 | 会员币:0

'=================================================
'过程名:index_book2
'作  用:首页留言调用
'参  数:num-------------调用条数
'        fontnum---------标题长度
'Web:    http://www.Hxcms.net
'=================================================
sub index_book2(num,fontnum)
sql="select top "&num&" id,zt,name,words,date,reply from words order by date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<ul  class=""list"">"
if rs.eof and rs.bof then
Response.Write "<li>暂时没有留言</li>"
else
do while not rs.eof
Response.Write "<li><span>"
If rs("reply")<>"" Then
Response.Write "[已回复]"
else
Response.Write "<FONT color=red>[未回复]</FONT>"
end if
Response.Write "</span>"

Response.Write "<a href=""GuestBook/Index.asp"" title=""留言姓名:"&rs("name")&"&#13&#10留言时间:"&rs("date")&""">"&gotTopic(rs("zt"),fontnum)&"</a>" & vbCrLf
Response.Write "</li>" & vbCrLf
rs.movenext
loop
end if
rs.close
set rs=nothing
Response.Write "</ul>"
end sub

第二步:在你首页需要调用的地方,特效//用<%call index_book2(10,26)%> 标签调用,即可.

提交会员:admin | 浏览次数:
【 复制 】 【 打印 】

>>相关资讯:

上篇文章:推荐文章首页调用   下篇文章:加上SWF格式影视代码搞定56|优酷|土豆影视
查看网友评论 网友评论
以下网友评论只代表其个人观点,不代表临沂广播网的观点或立场
用户登陆

加载中……
相关文章
  • HxCmsV8.0本站首页{图片文字}分类调用
关于我们 | 广告合作 | 免责申明 | 程序帮助 | 网站地图 | 留言本站 | 友情连接 | 后台管理
Copyright © 2008 - 2009 HxCms.Net www.am873.com Inc. All Rights Reserved.
HxCms Ver8.0  鲁ICP备07004488号