多条滚动公告

sub main_broad()
dim tmp1,topic
tmp1="<font class=gray>暂时没有网站公告！</font>"
sql="select top 4 id,topic,tim from bbs_cast where sort='news' order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
if not rs.eof then
topic=rs("topic")
tmp1="<a href='update.asp?action=news#"&rs("id")&"' alt='公告标题："&joekoe_cms.code_html(topic,1,0)&"<br>公告时间："&rs("tim")&"<br><font class=gray>点击浏览详细……</font>' target=_blank>"&joekoe_cms.code_html(topic,1,18)&"</a>"
end if

tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>  <img src='skin/skin_1/small/h_news1.gif'>  "&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<tr><td align=center style='border-bottom:1px dotted #e0e0e0'>"&tmp1&"</td></tr>" & _
rs.movenext
loop
rs.close
end sub

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