gg.asp

来自「仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户」· ASP 代码 · 共 25 行

<!--#include file="../conn.asp"-->
<!--#include file="Const.asp"-->
<%
if Application(BBSname&"gg")="" then
sql="select top 20 BoardID,Subject,FileName,by2 from BT_Topic where by2='Y'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
 gg=""
rs.MoveLast
while not rs.Bof
 gg=gg+"<a href=../board/bbs"+cstr(rs("BoardID"))+"/"+rs("FileName")+">"+rs("Subject")+"</a>&nbsp;&nbsp;"
 rs.MovePrevious
wend
else
 gg="没有任何公告"
end if
 gg="<marquee scrollamount=1 scrolldelay=50 width=400>公告:&nbsp;"+gg+"</marquee>"
 gg="document.write(""" & gg & """);"
 Application(BBSname&"gg")=gg
 Response.Write gg
 else
 Response.Write Application(BBSname&"gg")
 end if
%>