gg.asp

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

<!--#include file="../conn.asp"-->
<!--#include file="../Board/Const.asp"-->
<!--#include file="BtBBS_Fun.asp"-->
<%
if Application(BBSname&"gg_BT")="" 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="⊿Τヴ