<% 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 "" next end if