滚动公告

（1）定义：
在index2.asp 文件的最后一个 end sub 后插入下面的代码：

sub main_left_update()
  dim tmp1,topic,word
tmp1="<font class=gray>暂时没有网站公告！</font>"
sql="select top 1 * from bbs_cast where sort='news' order by id desc"
set rs=joekoe_cms.exec(sql,1)
if not rs.eof then
  topic=rs("topic")
  word=rs("word")
  tmp1="<table cellspacing=1 cellpadding=4 class=table align=center><tr><td class=td0 align=center>网站公告</td></tr><tr class=bg_td><td><a href='update.asp?action=news#"&rs("id")&"'><center><b>"&joekoe_cms.code_html(topic,1,0)&"</b></center></a></td></tr><tr class=bg_td><td class=bw><marquee scrollamount=2 direction=up width='100%' height='120' onMouseOver=this.stop() onMouseOut=this.start()>"&code_jk(word) &"<BR><BR><font class=gray> 发布人："&rs("username")&"  <BR>发布时间："&rs("tim")&"</font></marquee></td></tr><tr class=bg_td><td class=gray><CENTER>"&rs("tim")&"</CENTER><CENTER>[ <a href='update.asp?action=news'>网站更新</a> ]    [ <a href='update.asp?action=forum'>论坛公告</a> ]</CENTER></td></tr></table>"
end if
rs.close
response.write tmp1
tmp1=""
end sub

（2）调用
在你需要调用滚动公告的地方，插入下面的代码：

call main_left_update()

然后，由于公告中需要支持ubb代码，所以，在 index2.asp 文件的第二行插入下面的代码：

<!-- #include file="include/jk_ubb.asp" -->

首页调用 滚动公告 功能就完成了。

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: