<%
id=cint(Request("id"))
if id<>empty then Response.Cookies("ForumID")=id
if ""&SiteSettings("AdminPassword")&""=empty then response.redirect "Install.asp"
top
Set Statistics=Conn.Execute("[BBSXP_Statistics_Site]")
%>
按照有关部门政策，在奥运期间，中华木结构网站暂时停止访问。待奥运过后重新开放。
在此过程中给各位朋友带来不便，中华木结构深表歉意。
在今后的日子里，中华木结构会更加努力做好，不辜负各位朋友的关心和厚爱。
---------中华木结构论坛站务小组 2008.07.17 敬上
<%
if Request.Cookies("forumid")<>empty then
sql="select * from [BBSXP_Forums] where id="&int(Request.Cookies("forumid"))&""
Set Rs1=Conn.Execute(sql)
if Rs1.eof then Response.Cookies("forumid")=""
ShowForum()
Set Rs1 = Nothing
else
sql="Select * From [BBSXP_Forums] where followid=0 and ForumHide=0 order by SortNum"
Set Rs=Conn.Execute(sql)
do while not Rs.eof
ForumIntro=replace(Rs("ForumIntro")," ",CHR(10))
%>
<%
i=0
sql="Select * From [BBSXP_Forums] where followid="&Rs("id")&" and ForumHide=0 order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not Rs1.eof
if SiteSettings("DisplayForumFloor")=1 then
ShowForumFloor
else
ShowForum
end if
Rs1.Movenext
loop
Set Rs1 = Nothing
if SiteSettings("DisplayForumFloor")=1 and i>0 then
for i = i to 2
response.write "