<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!--#include file="inc/char.asp"-->
<!--#include file="inc/ad_fixup.asp"-->
<!--#include file="inc/ad_move.asp"-->
<!--#include file=inc/themeindex.asp -->
<!-- #include file="mingxing/mx.asp" -->
<script language="JavaScript">
<!--
function FP_preloadImgs() {//v1.0
 var d=document,a=arguments; if(!d.FP_imgs) d.FP_imgs=new Array();
 for(var i=0; i<a.length; i++) { d.FP_imgs[i]=new Image; d.FP_imgs[i].src=a[i]; }
}
// -->
</script>
<script language="JavaScript">
<!--
function FP_preloadImgs() {//v1.0
 var d=document,a=arguments; if(!d.FP_imgs) d.FP_imgs=new Array();
 for(var i=0; i<a.length; i++) { d.FP_imgs[i]=new Image; d.FP_imgs[i].src=a[i]; }
}
// -->
</script>
<%call nav()%>
<body style="text-align: center" onload="FP_preloadImgs(/*url*/'../picture/button3d.jpg')">

<%call index_head()%><table cellpadding="0" cellspacing="0" width="99%">
	<!-- MSTableType="nolayout" -->
	<tr>
		<td height="29">
		<p align="left">
		<img border="0" src="pic/backpicture.jpg" width="100%" height="100" align="left"></td>
	</tr>
</table>

<table cellpadding="0" cellspacing="0" width="98%">
	<!-- MSTableType="nolayout" -->
	<tr>
		<td height="0"><%
Dim LastLogin,birthnum
	dim Guests
 

Rem 首页顶部信息
sub index_head()
	Stats="论坛首页"
	sql="select top 1 TopicNum,BbsNum,TodayNum,UserNum,lastUser from config where active=1"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,0,1
	if isnull(index_ad_t) or index_ad_t="" then
	response.write "<TABLE border=0 width="&TableWidth&" align=center><TBODY>"&_
				"<TR><TD align=left><a href='"& HostURL &"'><img border=0 src='"& Forumlogo &"'></a></TD>"&_
				"<TD Align=right><font color="&BodyFontColor&" style=""line-height: 15pt"">欢迎新会员 <a href=dispuser.asp?name="& htmlencode(rs(4)) &" target=_blank>"&_
				"<font color="& AlertFontColor &">"& htmlencode(rs(4)) &"</font></a> 加入 [<a href=toplist.asp?orders=2>新进来宾</a>]<BR><font color="&AlertFontColor&"><b><script src=count/mystat.asp></script></b></font>&nbsp;今日贴数：<font color="&AlertFontColor&"><b>"& rs(2) &"</b></font>"&_
				" | 主题总数：<b>"& rs(0) &"</b> | 帖子总数：<b>"& rs(1) &"</b> | "&_
				"注册会员<B>"& rs(3) &"</B>"&_
				"<p><img src="&picurl&P_nowTime&">  <a href=team.asp>管理团队</a><img src="&picurl&P_newTopic&"> <a href=remen.asp>论坛热贴</a><img src="&picurl&P_userlist&"> <a href=toplist.asp?orders=7>注册会员</a><img src="&picurl&P_Top20&"> <a href=toplist.asp?orders=1>发贴排行</a></font>"&_
				"</TD></TR></TBODY></TABLE>"
	else
	response.write "<TABLE border=0 width="&TableWidth&" align=center><TBODY>"&_
				"<TR><TD align=left><a href='"& HostURL &"'><img border=0 src='"& Forumlogo &"'></a></TD>"&_
				"<TD Align=center width=350>"&index_ad_t&"</td><td   style=""line-height: 15pt"">"&_
				"<img src="&picurl&P_nowTime&">  <a href=team.asp>管理团队</a><BR><img src="&picurl&P_newTopic&"> <a href=remen.asp>论坛热贴</a><BR><img src="&picurl&P_userlist&"> <a href=toplist.asp?orders=7>注册会员</a><BR><img src="&picurl&P_Top20&"> <a href=toplist.asp?orders=1>发贴排行</a></font>"&_
				"</TD></TR><tr><td colspan=3 align=right><font color="&BodyFontColor&"><font color="&AlertFontColor&"><b><script src=count/mystat.asp></script></b></font>&nbsp;今日贴数：<font color="&AlertFontColor&"><b>"& rs(2) &"</b></font>"&_
				" | 主题总数：<b>"& rs(0) &"</b> | 帖子总数：<b>"& rs(1) &"</b> | "&_
				"注册会员<B>"& rs(3) &"</B> | 欢迎新会员 <a href=dispuser.asp?name="& htmlencode(rs(4)) &" target=_blank>"&_
				"<font color="& AlertFontColor &">"& htmlencode(rs(4)) &"</font></a> 加入 </td></tr></TBODY></TABLE>"
	end if
	response.write "<style>"&_
				"TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }"&_
				"TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px;  }"&_
				"</style>"&_
				"<table cellpadding=6 cellspacing=1 width="&TableWidth&" align=center  bordercolor="&Tablebackcolor&"  border=0>"&_
				"<TR ><TD align=left height=18 colSpan=8 id='elFader' style='position:relative; left: 20px;visibility:hidden; height:16'>&nbsp;"

	rs.close
	if FoundUser then
	sql="select lastlogin from [user] where username='"&membername&"'"
	set rs=conn.execute(sql)
	lastlogin=rs(0)
	rs.close
	set rs=nothing
	end if
	if isnull(lastlogin) or lastlogin="" then lastlogin=now()	

	sql="select top 3 boardid,title,addtime from bbsnews where boardid=0 order by addtime desc"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,0,1
	if rs.bof and rs.eof then
	titlelist="""<IMG align=absMiddle src="&Picurl&P_call&">没有公告"","""""
	else
	do while not rs.eof
	dim titlelist
	titlelist=titlelist&"""<a href=announcements.asp?boardid="&boardid&" target=_blank><IMG align=absMiddle border=0 src="&Picurl&P_call&">"&rs(1)&"</a>  ("&rs(2)&")"","""","
	
	rs.movenext
		loop
		titlelist=titlelist&"""<IMG align=absMiddle src="&Picurl&P_call&">欢迎访问"&forumname&"  ("&now()&")"","""""
		end if
	rs.close
	set rs=nothing

	 %>	 <SCRIPT LANGUAGE='JavaScript' SRC='inc/fader.js' TYPE='text/javascript'></script>
		 <SCRIPT LANGUAGE='JavaScript' TYPE='text/jscript'>
prefix="";
arNews = [<%=titlelist%>]
</SCRIPT>
	  <%response.write "</font></TD></TR></table>"
	%></td>
	</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width=101% height="877" id="table10">
	<!-- MSTableType="nolayout" -->
	<tr>
		<td valign="top" height="874" width="77%">
		<!-- MSCellType="ContentHead" -->

<%	do while not rs.eof
response.write "<table cellpadding=0 cellspacing=0 width="&TableWidth&" height=30 id=table1><tr><td height=30 width=249 background="&picurl&P_gohome&"><b> &nbsp;&nbsp;≡ "&rs(1)&" ≡</b></td><td height=30 width=736></td></tr></table>"

	rs.movenext
	loop
	rs.close%>　		 <% response.write "</font></TD></TR></table>"
	
end sub%><%
Rem 首页主体内容
sub index_body()
	if master then
	response.write "<table cellspacing=0 border=1 width="&TableWidth&" bgcolor="""&Tablebackcolor&""" align=center><tr><td height=1></td></tr></table><table cellpadding=6 cellspacing=0 width="&TableWidth&" align=center  bordercolor="""&Tablebackcolor&""" border=1>"&_
        "<TR class=coolbg><TD bgColor="""&Tablebodycolor&""" background="&picurl&P_reflash&" colSpan=7><B>论坛回收站</B></TD></TR>"

response.write "<TR><TD vAlign=top align=middle width=26 bgColor="""&aTablebodycolor&""">"
response.write "<img src=pic/ifolder.gif width=18 height=18 alt=论坛回收站>"

response.write "</TD><TD vAlign=top width=* bgColor="""&Tablebodycolor&""" colspan=6> <a href=""recycle.asp""><font color="&BoardLinkColor&">论坛所有版面版主删除的帖子。</font></a>"
response.write "</TD></TR>"

	response.write "</table><br>"
	
	end if
   if membername="" or membername="客人" then
	if cint(fastlogin)=2 then call fast_login()
end if
	response.write "<BR>"
	set rs=server.createobject("adodb.recordset")
	sql="select boardname,readme,url from bbslink order by id"
	rs.open sql,conn,1,1
	if not rs.eof and not rs.bof then
	
	Rem 联盟论坛
	dim Tlink,Readme,logo
	set rs=server.createobject("adodb.recordset")
	sql="select boardname,readme,url from bbslink order by id"
	rs.open sql,conn,1,1
	if not rs.eof and not rs.bof then
response.write "<table cellspacing=0 border=0 width="&TableWidth&" bgcolor="""&Tablebackcolor&""" align=center><tr><td height=1></td></tr></table>"&_
		"<table cellpadding=6 cellspacing=0 width="&TableWidth&" align=center  bordercolor="""&Tablebackcolor&""" border=1>"&_
        "<TR class=coolbg><TD bgColor="""&Tabletitlecolor&""" background="&picurl&P_reflash&" colSpan=2><font color="&TableFontcolor&"><b>　-=> 友情论坛</b></font></TD></TR>"
	select case LinkFlag
	case 0
	do while not rs.eof
	Tlink=split(rs(1),"$")
	readme=Tlink(0)
	if ubound(Tlink)=0 then
	logo="<font color="&BoardLinkColor&">"&htmlencode(rs(0))&"</font>"
	else
	logo="<img src="&Tlink(1)&" border=0>"
	end if
	response.write "<tr bgcolor="""&aTablebodycolor&"""><TD vAlign=top align=middle width=26><IMG src="&picurl&F_link&"> </TD><TD vAlign=top bgColor="""&Tablebodycolor&"""><a href="&rs(2)&" target=_blank><font color="&BoardLinkColor&">"&htmlencode(rs(0))&"</font></a><br>"&htmlencode(readme)&"</TD></TR>"
	rs.movenext
	loop
	case 1
	response.write "<tr bgcolor="""&aTablebodycolor&"""><TD vAlign=top align=middle width=26><IMG src="&picurl&F_link&"> </TD><TD vAlign=top bgColor="""&Tablebodycolor&""">"
	do while not rs.eof
	Tlink=split(rs(1),"$")
	readme=Tlink(0)
	if ubound(Tlink)=0 then
	logo="<font color="&BoardLinkColor&">"&htmlencode(rs(0))&"</font>"
	else
	logo="<img src="&Tlink(1)&" border=0>"
	end if
	response.write "<a href="&rs(2)&" target=_blank title="&htmlencode(rs(0))&"&#13;&#10;"&htmlencode(readme)&"><font color="&BoardLinkColor&">"&htmlencode(rs(0))&"</font></a>"
	rs.movenext
	loop
	response.write "</TD></tr>"
	case 2
	do while not rs.eof
	Tlink=split(rs(1),"$")
	readme=Tlink(0)
	if ubound(Tlink)=0 then
	logo="<font color="&BoardLinkColor&">"&htmlencode(rs(0))&"</font>"
	else
	logo="<img src="&Tlink(1)&" border=0>"
	end if
	response.write "<tr bgcolor="""&aTablebodycolor&"""><TD vAlign=top align=middle width=26><IMG src="&picurl&F_link&"> </TD><TD vAlign=top bgColor="""&Tablebodycolor&"""><a href="&rs(2)&" target=_blank><table align=left><tr><td><a href="&rs(2)&" target=_blank title="&htmlencode(rs(0))&"&#13;&#10;"&htmlencode(readme)&">"&logo&"</a></td><td width=10></td></tr></table><font color="&BoardLinkColor&">"&htmlencode(rs(0))&"</font></a><br>"&htmlencode(readme)&"</TD></TR>"
	rs.movenext
	loop
	case 3
	response.write "<tr bgcolor="""&aTablebodycolor&"""><TD vAlign=top align=middle width=26><IMG src="&picurl&F_link&"> </TD><TD vAlign=top bgColor="""&Tablebodycolor&""">"
	do while not rs.eof
	Tlink=split(rs(1),"$")
	readme=Tlink(0)
	if ubound(Tlink)=0 then
	logo="<font color="&BoardLinkColor&">"&htmlencode(rs(0))&"</font>"
	else
	logo="<img src="&Tlink(1)&" border=0>"
	end if
	response.write "<a href="&rs(2)&" target=_blank title="&htmlencode(rs(0))&"&#13;&#10;"&htmlencode(readme)&">"&logo&"</a>"
	rs.movenext
	loop
	response.write "</TD></tr>"
	end select
	response.write "</table>"
	end if
	rs.close
	set rs=nothing

      response.write "."&"</TD></TR>"
		response.write "</TABLE>"
	Rem 更新在线峰值
	dim onlinenum,guestnum,hiddennum
	onlinenum=online(0)
	guestnum=guest(0)
	hiddennum=hidden(0)
	if Cint(allonline())>Cint(Maxonline) then
	conn.execute("update config set Maxonline="&allonline()&",MaxonlineDate=Now()")
	end if
	response.write "<table cellpadding=6 cellspacing=0 width="&TableWidth&" align=center  bordercolor="""&Tablebackcolor&""" border=1 style=""word-break:break-all;"">"&_
        "<TR class=coolbg><TD bgColor="""&Tabletitlecolor&""" background="&picurl&P_reflash&" colSpan=2><font color="&TableFontcolor&"><b>　-=> 论坛在线统计</b>（同时在线村民<b>"&Maxonline&"</b>，发生那一时<b>"&formatdatetime(MaxonlineDate,1)&"&nbsp;"&formatdatetime(MaxonlineDate,4)&"</b>）"
	if request("action")="show" then
		response.write "[<a href=index.asp?action=off><font color="&TableFontcolor&">关闭详细列表</font></a>]"
	else
		if cint(online_u)=1 and request("action")<>"off" then
		response.write "[<a href=index.asp?action=off><font color="&TableFontcolor&">关闭详细列表</font></a>]"
		else
		response.write "[<a href=index.asp?action=show><font color="&TableFontcolor&">显示详细列表</font></a>]"
		end if
	end if
response.write "&nbsp;[<a href=online.asp><font color="&TableFontcolor&">在线用户</font></a>]</font></TD></TR>"&_
        "<TR><TD vAlign=top align=middle width=26 bgColor="""&aTablebodycolor&"""><IMG align=absMiddle src="&picurl&P_online_s&"> </TD>"&_
        "<TD vAlign=top bgColor="""&Tablebodycolor&""">  目前论坛上总共有 <b>"&clng(allonline())&"</b> 人在线，其中注册会员 <b>"&onlinenum&"</b> 人，隐身会员<b>"&hiddennum&"</b>人，访客 <b>"&guestnum&"</b> 人。<br><font color="&alertfontcolor&">在线名单图例</font>：<img src="&picurl&pic_om&"> 总坛主   ‖　<img src="&picurl&pic_ob&"> 论坛坛主   ‖   <img src="&picurl&pic_ov&"> 论坛贵宾   ‖   <img src="&picurl&pic_ou&"> 普通会员或隐身会员   ‖   <img src="&picurl&pic_oh&"> 客人<hr size=1><table width=100% border=0 cellspacing=0 cellpadding=0>"
	if request("action")="off" then
		call onlineuser(0,0,0)
	elseif request("action")="show" then
		call onlineuser(1,1,0)
	else
		call onlineuser(online_u,online_g,0)
	end if
response.write "</table></TD></TR></TABLE><br>"

response.write "<table cellspacing=0 cellpadding=0 width="&TableWidth&" bgcolor="""&Tablebackcolor&""" align=center border=0>"&_
	"<tr><td><table cellspacing=1 cellpadding=3 width=100% border=0>"&_
	"<tr class=coolbg><td width=75%  bgcolor="& Tabletitlecolor &" background="&picurl&P_reflash&"><font color="& TableFontColor &">"&_
	"<b>　-=> "& ForumName &"图例</b></font></td>"&_
	"<td align=right noWrap bgcolor="& Tabletitlecolor &" width=""25%"" background="&picurl&P_reflash&"><font color="&TableFontcolor&">所有时间均为 - "&GMT&" </font>&nbsp;</td></tr>"&_
	"<tr><td bgcolor="& TableBodyColor &" colspan=3>"&_
	"<table cellspacing=4 cellpadding=0 width=92% border=0 align=center>"&_
	"<tr><td colspan=6>论坛图例仅当你登陆并且上次访问后才显示&nbsp;（您必须登陆才能查看详情，否则只显示该论坛的无新贴图例）</div></td></tr>"&_
	"<tr><td><font color="& AlertFontColor &" TITLE=允许注册会员发言和回复>常规论坛</font></td>"&_
	"<td><font color="& AlertFontColor &" TITLE=只允许登陆用户浏览发言和回复>正规论坛</font></td>"&_
	"<td><font color="& AlertFontColor &" TITLE=允许任何人发言和回复>开放论坛</font></td>"&_
	"<td><font color="& AlertFontColor &" TITLE=允许坛主和版主发言，其他注册用户只能回复>评论论坛</font></td>"&_
	"<td><font color="& AlertFontColor &" TITLE=允许拥有访问密码或已经经过认证的注册会员发言>秘密论坛</font></td>"&_
	"<td colspan=2><font color="& AlertFontColor &">特殊论坛</font></td></tr>"&_
	"<tr><td><img src="&picurl&F_mode1_n&" width=18 height=18> 有新贴子</td>"&_
	"<td><img src="&picurl&F_mode6_n&" width=18 height=18> 有新贴子</td>"&_
	"<td><img src="&picurl&F_mode2_n&" width=18 height=18> 有新贴子</td>"&_
	"<td><img src="&picurl&F_mode3_n&" width=18 height=18> 有新贴子</td>"&_
	"<td><img src="&picurl&F_mode5_n&" width=18 height=18> 有新贴子</td>"&_
	"<td><img src="&picurl&F_mode4_n&" width=18 height=18 TITLE=只允许坛主和版主发言和操作>只读精华</td>"&_
	"<tr><td><img src="&picurl&F_mode1_o&" width=18 height=18>无新贴子</td>"&_
	"<td><img src="&picurl&F_mode6_o&" width=18 height=18>无新贴子</td>"&_
	"<td><img src="&picurl&F_mode2_o&" width=18 height=18>无新贴子</td>"&_
	"<td><img src="&picurl&F_mode3_o&" width=18 height=18>无新贴子</td>"&_
	"<td><img src="&picurl&F_mode5_o&" width=18 height=18>无新贴子</td>"&_
	"<td><img src="&picurl&F_link&" width=18 height=18 TITLE=和本论坛友情链接的联盟论坛> 联盟论坛</td></tr>"&_
	"</table></td></tr></table></td></tr></table></CENTER>"

if instr(scriptname,"index.asp")>0 or instr(scriptname,"list.asp")>0 then
	if index_moveFlag=1 then
	call admove()
	end if
	if index_fixupFlag=1 then
	call fixup()
	end if
end if
end if
end sub




Rem 版面信息
sub board(id)
	dim sql1,rs1
	dim boardview
	dim master_1
	if boardmaster or master then
	sql1="select boardid,boardtype,class,readme,lastbbsnum,boardmaster,lockboard,lasttopicnum,indexIMG,boardskin,boarduser,LastPost from board "
	sql1=sql1&" where class="&id&" order by boardid"
	else
	sql1="select boardid,boardtype,class,readme,lastbbsnum,boardmaster,lockboard,lasttopicnum,indexIMG,boardskin,boarduser,LastPost from board "
	sql1=sql1&" where class="&id&" and lockboard=0 order by boardid"
	end if
	set rs1=server.createobject("adodb.recordset")
	rs1.open sql1,conn,1,1
	do while not rs1.eof
	LastPostInfo=split(rs1(11),"$")
response.write "<table id=table1 cellSpacing=0 cellPadding=0 width=""100%"" height=70 ><tr class=bbsboxout><td width=68 bgcolor="""&Tablebodycolor&""" style=""border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid "&Tablebackcolor&"""  ><div class=todaynew><p align=center>"

select case rs1(9)
case 1
	if datediff("h",lastlogin,LastPostInfo(2))=0 then
	response.write "<img src="&picurl&F_mode1_n&" width=37 height=37 alt=常规论坛，有新帖子>"
	else
	response.write "<img src="&picurl&F_mode1_o&" width=37 height=37 alt=常规论坛，无新帖子>"
	end if
	boardview="常规论坛"
case 2
	if datediff("h",lastlogin,LastPostInfo(2))=0 then
	response.write "<img src="&picurl&F_mode2_n&" width=37 height=37 alt=开放论坛，有新帖子>"
	else
	response.write "<img src="&picurl&F_mode2_o&" width=37 height=37 alt=开放论坛，无新帖子>"
	end if
	boardview="开放论坛"
case 3
	if datediff("h",lastlogin,LastPostInfo(2))=0 then
	response.write "<img src="&picurl&F_mode3_n&" width=37 height=37 alt=评论论坛，有新帖子>"
	else
	response.write "<img src="&picurl&F_mode3_o&" width=37 height=37 alt=评论论坛，无新帖子>"
	end if
	boardview="评论论坛"
case 4
	if datediff("h",lastlogin,LastPostInfo(2))=0 then
	response.write "<img src="&picurl&F_mode4_n&" width=37 height=37 alt=精华区，有新帖子>"
	else
	response.write "<img src="&picurl&F_mode4_o&" width=37 height=37 alt=精华区，无新帖子>"
	end if
	boardview="精华论坛"
case 5
	if datediff("h",lastlogin,LastPostInfo(2))=0 then
	response.write "<img src="&picurl&F_mode5_n&" width=37 height=37 alt=秘密论坛，有新帖子>"
	else
	response.write "<img src="&picurl&F_mode5_o&" width=37 height=37 alt=秘密论坛，无新帖子>"
	end if
	boardview="秘密论坛"
case 6
	if datediff("h",lastlogin,LastPostInfo(2))=0 then
	response.write "<img src="&picurl&F_mode6_n&" width=37 height=37 alt=正规论坛，有新帖子>"
	else
	response.write "<img src="&picurl&F_mode6_o&" width=37 height=37 alt=正规论坛，无新帖子>"
	end if
	boardview="正规论坛"
	case 7
	if datediff("h",lastlogin,LastPostInfo(2))=0 then
	response.write "<img src="&picurl&F_mode5_n&" width=37 height=37 alt=认证论坛，有新帖子>"
	else
	response.write "<img src="&picurl&F_mode5_o&" width=37 height=37 alt=认证论坛，无新帖子>"
	end if
	boardview="认证论坛"
end select
if rs1(8)<>"" then
else
	response.write "</div></td><td style=""border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid  "&Tablebackcolor&""" bgcolor="""&Tablebodycolor&"""><strong><a class=newlink href=""list.asp?boardid="&rs1(0)&"""><font color="&TableContentColor&"><span style=""text-decoration: none"">"&rs1(1)&"</span></font></a></strong><br><img src=""pic/forum_readme.gif"" border=0>"
end if
response.write rs1(3)
response.write "<br>版主：<a title=查看版主"
master_1=split(rs1(5), "|")
for i = 0 to ubound(master_1)
	if i>2 then
	master_2=master_2
	else
	master_2=""+master_1(i)+"的资料 target=_blank href=dispuser.asp?name="+master_1(i)+"><span style=""text-decoration: none""><font color="&TableContentcolor&">"+master_1(i)+"</font></span></a>&nbsp;&nbsp; "     ///到版主
	end if
next
if i>3 then master_2=master_2 & "<font color=gray>More...</font>"
response.write master_2
master_2=""

response.write "| 最新：<a class=blue href='dispbbs.asp?Boardid="&rs1(0)&"&ID="&LastPostInfo(1)&"&rootID="&LastPostInfo(1)&"#"&LastPostInfo(1)&"'><span style=""text-decoration: none""><font color="&TableContentcolor&">"&left(replace(htmlencode(LastPostInfo(3)),"&nbsp;",""),15)&"…</font></span></a> | 主题：<em style=""font-style: normal"">"&rs1(7)&"</em> | 帖子："&rs1(4)&"</td></tr></table>"
if rs1(9)=5 then
	response.write "秘密论坛，认证用户进入查看，如需认证，请到站长办公留言申请。"
end if
boardview=""
		rs1.movenext
		loop
		rs1.close
		set rs1=nothing

end sub

sub fast_login()
session("loginmun")=0
 dim s
randomize timer
s=Int((8999)*Rnd +1000)

	response.write "<table cellspacing=0 border=0 width="&TableWidth&" bgcolor="""&Tablebackcolor&""" align=center><tr><td height=1></td></tr></table><table width="&TableWidth&" cellpadding=6 cellspacing=0 align=center bordercolor="""&Tablebackcolor&""" border=1><tr class=coolbg><td bgColor="""&Tabletitlecolor&""" colSpan=7 background="&picurl&P_gohome&"><font color="&TableFontcolor&">"&_
	"[<a href=reg.asp><font color="&TableFontcolor&">注册</font></a>][<a href=lostpass.asp style=""CURSOR: help""><font color="&TableFontcolor&">找回密码</font></a>]   <b>附加码：</b><font color=red><b> "&s&"</b></font><br>"&_
    "</font></td></tr><form action=chklogin.asp method=post><tr><td align=middle bgColor="""&Tablebodycolor&""""&_
	"width=26></td><td bgColor="""&Tablebodycolor&""" colSpan=6 width=*>"&_
	"用户名：<input maxLength=16 name=username size=12>"&_
	"　　密 码：&nbsp;<input maxLength=20 name=password size=12 type=password>"&_
		"　　附加码：<input maxLength=20 name=secruity size=12 type=text>"&_
		"<input maxLength=20 name=checksecruity size=12 type=hidden value="&s&">  Cookie："&_
	"  <select name=CookieDate><option selected value=0>不保存</option>"&_
	"<option value=1>保存一天</option><option value=2>保存一月</option><option value=3>保存一年</option>"&_
    "</select>　　<input type=submit name=submit value=""登 陆""></font>&nbsp;&nbsp;&nbsp;<INPUT type=checkbox value=1 name=hiddenuser>隐身</td></tr></form></table><br>"
end sub
%>　<%	sql="select id,class from class order by id"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,0,1
	do while not rs.eof
response.write "<table cellpadding=0 cellspacing=0 width="&TableWidth&" height=30 id=table1><tr><td height=30 width=249 background="&picurl&P_gohome&"><b> &nbsp; ≡ "&rs(1)&" ≡</b></td><td height=30 width=736></td></tr></table>"
call board(rs(0))
	rs.movenext
	loop
	rs.close
	set rs=nothing
%></td>
		<td valign="top" height="874" width="2%">
		<!-- MSCellType="ContentHead" -->

　</td>
		<td valign="top" height="877" width="22%" style="border-left: 1px border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" rowspan="2">
		<!-- MSCellType="ContentHead" -->

<table cellpadding="0" cellspacing="0" width="202" height="906" id="table11">
	<!-- MSTableType="nolayout" -->
	<tr>
		<td height="223">
		　<table cellpadding="0" cellspacing="0" width="217" height="182" id="table12">
			<!-- MSTableType="nolayout" -->
			<tr>
				<td height="25" width="46" background="login.gif">
				<p align="center"><% if membername="" or membername="客人" then
				response.write "登陆"
				else
				response.write "户口"
				end if
				%></td>
				<td height="25" width="173">　</td>
			</tr>
			<tr>
				<td height="157" width="217" style="border:1px solid #9CC3D9; " colspan="2" bgcolor="#F0F9FE">
				<p align="center">
				<% if membername="" or membername="客人" then
				call fast_login()
				else
				response.write "<iframe name=I2 src=""user.asp"" scrolling=no border=0 frameborder=0 width=202 height=150>浏览器不支持，无法显示个人信息。</iframe>"
				end if
				%> </td>
			</tr>
			</table>
		</td>
	</tr>
	<tr>
		<td height="683" width="218" valign="top">
		<table cellpadding="0" cellspacing="0" width="217" height="74" id="table13">
			<!-- MSTableType="nolayout" -->
			<tr>
				<td height="23" width="42" background="login.gif">
				<p align="center">搜索</td>
				<td height="23" width="39" style="border: 1px solid #CECEA6" bgcolor="#FFFFEE">
				<p align="center">分类</td>
				<td height="23" width="134">　</td>
			</tr>
			<tr>
				<td height="51" width=98% style="border:1px solid #9CC3D9; " colspan="3" bgcolor="#F0F9FE">
				<table cellpadding=0 cellspacing=0 border=0 width="<%=tablewidth%>" bgcolor="<%=TableBackColor%>" align=center id="table14">
    <tr><td>
    <table cellpadding=5 cellspacing=1 border=0 width=100% id="table15">
    
						<tr>
						<td bgcolor="#F0F9FE" colspan=2 align="center">
						<form action="queryresult.asp" method="post">
						　</td></tr>
						<tr>
						<td bgcolor="#F0F9FE" colspan=2 align="center">
						<input type=text size=27 name="keyword"></td></tr>
                        <tr>
                        <td bgcolor="#F0F9FE" align="right"><font color="<%=TableContentColor%>">
                        关键字</font>&nbsp;<input name="sType" type="radio" value="V1" checked>
                        </td>
                        <td bgcolor="#F0F9FE" align="left">
                        <select name="pSearch" size="1">
						                  <option value=1>主题
						                <option value=2>内容
						                  <option value=3 selected>两者都搜索
						                  </select>
						                  
                        </td>
                        </tr>
                        <tr>
                        <td bgcolor="#F0F9FE" align="right"><font color="<%=TableContentColor%>">
                        日期范围</font>
                        </td>
                        <td bgcolor="#F0F9FE" align="left">
<select name=SearchDate class=smallsel size="1"> <option value=ALL selected>所有日期<option value=1>
昨天以来
<option value=5>5天以来<option value=10>10天以来<option value=30>30天以来</option></select> 
						                  
                        </td>
                        </tr>
						<tr>
						<td bgcolor="#F0F9FE" colspan="2" align="center"><font color="<%=TableContentColor%>">
                        <b>&nbsp;&nbsp; 
<select name=boardid size=1>
<option value=0 selected>所有论坛</option>
<%
	dim arrRow,arrRow1,ii
	sql="select id,class from class order by id"
	set rs=server.createobject("adodb.recordset")
	set rs1=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	if not(rs.eof and rs.bof) then
	arrRow=rs.getRows
	rs.close : set rs=nothing

	for i=0 to Ubound(arrRow,2)
	response.write "<option value=0>>>&nbsp;"& arrRow(1,i) &" <<"

		sql1="select boardid,boardtype from board where "&guestlist&" class="& arrRow(0,i)&" order by boardid"
		set rs1=server.createobject("adodb.recordset")
		rs1.open sql1,conn,1,1
		if rs1.eof and rs1.bof then
			rs1.close : set rs1=nothing
			response.write "<option value=0>没有论坛"
		else
			arrRow1=rs1.getrows
			rs1.close : set rs1=nothing
			for ii=0 to Ubound(arrRow1,2)
				response.write "<option value="& arrRow1(0,ii) &""
				if boardid<>"" then
				if cint(boardid)=cint(arrRow1(0,ii)) then response.write " selected "
				end if
				response.write ">"& arrRow1(1,ii)
			next
			arrRow1=null
		end if
	next
	arrRow=null
	end if
%>

</select>
						</b></td>
						</tr>
						<tr>
						<td bgcolor="#F0F9FE" colspan=2 align=center>
						<input type=submit value="开始搜索">
						</td></form></tr></table></td></tr></table></td>
			</tr>
			</table>
		　<table cellpadding="0" cellspacing="0" width="218" height="74" id="table16">
			<!-- MSTableType="nolayout" -->
			<tr>
				<td height="23" width="46" background="login.gif">
				<p align="center">热门</td>
				<td height="23" width="39" bgcolor="#FFFFEE" style="border: 1px solid #CECEA6">
				<p align="center">推荐</td>
				<td height="23" width="130">　</td>
			</tr>
			<tr>
				<td height="53" width=216 style="border:1px solid #9CC3D9; " colspan="3" bgcolor="#F0F9FE">
				<p align="left"><iframe name="I1" src="rm.asp" scrolling="no" border="0" frameborder="0" marginwidth=100% width="98%" height="406" align="right" style="border:1px solid #66CCFF; text-align: left; ">浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe>
				<p align="left">　<p align="left"></td>
			</tr>
			</table>
		<p align="left">　</p>
		<table cellpadding="0" cellspacing="0" width="217" height="182" id="table17">
			<!-- MSTableType="nolayout" -->
			<tr>
				<td height="25" width="82" bgcolor="#FFFFEE" style="border: 1px solid #CECEA6">
				<p align="center">
				<p>　</td>
				<td height="25" width="47" background="login.gif">
				<p align="center">明星</td>
				<td height="25" width="88" bgcolor="#FFFFEE" style="border: 1px solid #CECEA6">　</td>
			</tr>
			<tr>
				<td height="157" width="219" colspan="3" style="border: 1px solid #9CC3D9" bgcolor="#F0F9FE">
				<%if request("action1")<>"mingxing" then
		call showmx()'显示明星
        end if%>
　</td>
				</tr>
			</table>
		</td>
	</tr>
		</table>
		</td>
	</tr>
	<tr>
		<td valign="top" height="3" width="77%">
		<!-- MSCellType="ContentHead" -->

</td>
		<td valign="top" height="3" width="2%">
		<!-- MSCellType="ContentHead" -->

</td>
		</tr>
	</table>
<!--#include file="online_l.asp"--><!--#include file="footer.asp"--><!--#include file="count.asp"-->      
      <table cellpadding="0" cellspacing="0" width=100%>
		<!-- MSTableType="layout" -->
		<tr>
			<td height="70">　  <%
call index_body()
 call count()
call endline() %></td>
		</tr>
</table>

      
    