www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > forums.asp

    <%
if IsNull(bbsadmin) or bbsadmin="" then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"" colspan=""3"">　<img border=""0"" src="""& theme &"08.gif"" align=""absbottom""> <a href=""forum.asp?types=1"" target=""_self"">歪歪杂烩</a></td></tr>"
rs.Open "Select count(posttime) From topic Where posttime>#"& Date() &"# and forumid=1 and deler is Null",conn,1,1
ttopic=rs(0)
rs.Close
rs.Open "Select count(posttime) From topic Where forumid=1 and deler is Null",conn,1,1
atopic=rs(0)
rs.Close
contents=contents &"<tr><td width=""7%"" class=""tdc"" align=""center""><img border=""0"" src="""& theme &"09.gif""></td><td class=""ftd"">&nbsp;┇ <a href=""forum.asp?forum=1"" target=""_self"">大杂烩</a> ┇<br>&nbsp;<font class=""del"">视频,电影,电视剧，MP3，文章</font></td><td width=""105"" class=""tdc"">&nbsp;<font class=""del"">今日帖子：</font>"& ttopic &"<br>&nbsp;<font class=""del"">所有帖子：</font>"& atopic &"</td></tr>"
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"" colspan=""3"">　<img border=""0"" src="""& theme &"08.gif"" align=""absbottom""> <a href=""forum.asp?types=1"" target=""_self"">歪歪杂烩</a></td></tr>"
rs.Open "Select count(posttime) From topic Where posttime>#"& Date() &"# and forumid=1 and deler is Null",conn,1,1
ttopic=rs(0)
rs.Close
rs.Open "Select count(posttime) From topic Where forumid=1 and deler is Null",conn,1,1
atopic=rs(0)
rs.Close
contents=contents &"<tr><td width=""7%"" class=""tdc"" align=""center""><img border=""0"" src="""& theme &"09.gif""></td><td class=""ftd"">&nbsp;┇ <a href=""forum.asp?forum=1"" target=""_self"">大杂烩</a> ┇<br>&nbsp;<font class=""del"">视频,电影,电视剧，MP3，文章</font></td><td width=""105"" class=""tdc"">&nbsp;<font class=""del"">今日帖子：</font>"& ttopic &"<br>&nbsp;<font class=""del"">所有帖子：</font>"& atopic &"</td></tr>"
end if
%>