<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="../webconfig.asp"-->
<!--#include file="../fuction.asp"-->
<!--#include file="../line.asp"-->
<%
 bid	=	Request.querystring("bid")
 class1	=	Request.querystring("class1")
   if class1 <> "" then
 bid = class1
 end if
 if bid <> "" then
 bid = cint(nosql(bid))
 else
 response.Write  ("分类参数错误！[bid/class1]")
 response.End()
 end if
 	sql="select * from board where bid=" & bid
	Set Rs=Conn.Execute(sql)
	bidname=rs("bidname")
	'---------------djj add 200602150004
		sql2="select * from bbs_class2 where  class2_class1_id =" & bid 
		Set Rs2=Conn.Execute(sql2)
		if rs2.eof and rs2.bof then
				 response.Redirect("list.asp?class1=" & bid)
				 response.end()
		else
			class_link = "<a href=index.asp >"&bbsname&"</a> -> " & bidname
		end if
	'---------------200602150004 end
	%>
<% 
if rs("rzh")=1 and session("manbid")<>bid and session("manbid")<>20000 then
if session("manbid")="" then
response.write"<script language='javascript'>alert('您没有权限访问此版！')</script>"
response.write "<script language='javascript'>history.back(-1)</script>"
response.end 
end if
    username2=trim(rs("username"))	
	if username2<>"" then 
	  bsort2=split(username2,",")
	  for i=0 to ubound(bsort2)	
	 if session("username")=trim(bsort2(i)) then
	 ok="ok"
	 exit for
	 end if
	 next   	
	 end if 
else
ok="ok"
end if   
if ok="" then   
response.write"<script language='javascript'>alert('您没有权限访问此版！')</script>"
response.write "<script language='javascript'>history.back(-1)</script>"
response.end 
end if
%>
<html>
<head>
<title><%=bbsname%>-<%=bidname%>-<%=class2_name%></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="SHORTCUT ICON" href="<%=weburl%>shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="<%=weburl%>css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../webtop.asp"-->

<table width="1000" align="center" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="6" colspan="3"></td>
  </tr>
  <tr>
    <td width="20"></td>
    <td valign="bottom"><img src="<%=weburl%>images/arrow01.gif" width="11" height="11" /> Your present position: <a href="<%=weburl%>"><%=webname%></a> -> <%=class_link%></td>
    <td valign="bottom"></td>
  </tr>
  <tr>
    <td height="6" colspan="3"></td>
  </tr>
</table>
<!--#include file="top.asp"-->

<table width="900" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td valign="top">
	<TABLE width=100% border=0 align="center" cellPadding=0  cellSpacing=0>
              <TBODY>
                <%Set mm= Server.CreateObject("ADODB.Recordset")                              
sql="select top 5 * from smallpaper where bid="&nosql(request("class1"))&" order by ID desc"                              
mm.open sql,conn,1,1                              
%>
                <TR>
                  <TD height="20" align=middle>
                   
                    <marquee onmouseover='this.stop()' onmouseout='this.start()' scrollAmount='1'   width='100%' height='20' align="bottom" scrolldelay="60">   社区广播：        
                    <% do while not mm.eof %>
                             <a href=Userlist_data.asp?username=<%=mm("username")%>>[<%=mm("username")%>]</a>：<a href="#" onClick="MM_openBrWindow('viewpaper.asp?id=<%=mm("id")%>','','width=500,height=400')"><%=mm("title")%></a>&nbsp;&nbsp;&nbsp;&nbsp;
                    <%                             
mm.movenext                                              
loop %>
                    </marquee><div align="right"></div></TD>
                </TR>
              </TBODY>
            </TABLE>
	<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
	
      <form method='POST' name='login' action='chklogin.asp'>
        <tr>
          <td>
            <% if session("username")="" then%>
			<img src="<%=weburl%>img/index_1.gif" width="15" height="16" align="absmiddle">
            论坛登录：用户名
              <input name="username" type="text" class="wenbenkuang" size="15">
          密&nbsp;&nbsp;码
          <input name="password" type="password" class="wenbenkuang" size="15">
          有效期
          <select size="1" name="cookies">
            <option selected value="0">不保存</option>
            <option value="1">保存一天</option>
            <option value="30">保存一月</option>
            <option value="365">保存一年</option>
          </select>
          <input name="Submit2" type="submit" class="go-wenbenkuang" value="立即登录">
          <%else%>
 
         <img src="<%=weburl%>img/index_1.gif" width="15" height="16" align="absmiddle"> <font color="ff0000"><%=session("username")%></font> 您好：欢迎你光临<%=bbsname%>
          <%username=nosql(session("username"))                      
'mailnewno=conn.execute("select count(tname) from sms where tname='"&username&"' and isnew='0'")%>
          &nbsp;<%=tishi1%>
          <%end if%></td></tr>
      </form>
    </table>
    <table width="100%"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="79" valign="top"><div align="center">
                <table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td height="5"></td>
                  </tr>
                </table>
                <% 
		sql="select * from bbs_class2 where  class2_class1_id =" & bid  
		Set Rs=Conn.Execute(sql)
do while not Rs.eof       
   class2_id  = rs("class2_id")
   class_link_url = bid & "&class2=" & class2_id
   class2_name  = rs("class2_class2_name")
   class2_logo = rs("class2_class2_logo")
   class2_info = rs("class2_class2_info")
   class2_newtie = rs("class2_class2_newtie")
   class2_user =rs("class2_class2_user")
   class2_time=rs("class2_class2_time")
%>


<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="999999">
                  <tr>
                    <td width="10%" rowspan="3" align="center" bgcolor="#FFFFFF"><img src="<%=Rs("class2_class2_logo")%>" width='60' height='60'>&nbsp;</td>
                    <td width="44%" rowspan="3" valign="top" bgcolor="F7FEFF">『&nbsp;<a href="cmd.asp?bid=<%=bid%>&class2=<%=rs("class2_id")%>"><font color="#000000"><b><%=Rs("class2_class2_name")%></b></font></a>&nbsp;』<a href="post.asp?bid=<%=bid%>&class2=<%=rs("class2_id")%>"><img src="images/mini_post.gif" width="12" height="13" border="0"></a>&nbsp;<a href="list.asp?bid=<%=bid%>&class2=<%=rs("class2_id")%>"><img src="images/mini_query.gif" width="12" height="13" border="0"></a>&nbsp;<a href="jinhua.asp?bid=<%=bid%>&class2=<%=rs("class2_id")%>"><img src="images/mini_votes.gif" width="12" height="13" border="0"></a><br><%=Rs("class2_class2_info")%>
</td>
                    <td width="6%" height="25" align="right" bgcolor="#F1F1F1">新帖1：</td>
                    <td width="44%" height="25" bgcolor="#FFFFFF"><img src="images/dot_04.gif" width="10" height="10">&nbsp;<%=Rs("class2_class2_newtie")%></td>
                  </tr>
                  <tr>
                    <td height="25" align="right" bgcolor="#F1F1F1">作者：</td>
                    <td height="25" bgcolor="#FFFFFF"><img src="images/dot_04.gif" width="10" height="10">&nbsp;<a href="Userlist_data.asp?username=<%=Rs("class2_class2_user")%>"><%=Rs("class2_class2_user")%></a></td>
                  </tr>
                  <tr>
                    <td height="25" align="right" bgcolor="#F1F1F1">时间：</td>
                    <td height="25" bgcolor="#FFFFFF"><img src="images/dot_04.gif" width="10" height="10">&nbsp;<%=Rs("class2_class2_time")%></td>
                  </tr>
              </table>
                <br>
                <%Rs.movenext                             
loop                             
rs.close                              
set rs=nothing                            
%>
<!-- 二级分类-->
                
                <!--#include file="class2_tz_list.asp"-->
                <!--#include file="../line.asp"-->
                <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="999999">
                  <tr bgcolor="f1f1f1">
                    <td colspan="4" bgcolor="#CCCCCC"> 目前在线<%=lineno%>人 注册会员<%=usno%>人 游客<%=nusno%>人 最高在线<%=mostonline%>人 发生于：<%=mosttime%> </td>
                  </tr>
                  <tr bgcolor="#FFFFFF">
                    <td width="34%" colspan="4" bgcolor="#FFFFFF"><font color="505050">最新加入会员： </font>                     
                      <font color="505050"><a href=Userlist_data.asp?username=<%=zhhy%>><%=zhhy%></a></font>                  <font color="505050">共有注册会员：</font>                    <font color="505050"><%=hyzc%>位</font>  <font color="505050">主题总数：<%=zt%></font>  <font color="505050">回帖总数：<%=hf%></font></td>
                  </tr>
                 <%if online=0 then%> <tr bgcolor="#FFFFFF">
                    <td colspan="4" bgcolor="#FFFFFF">在线用户: <%
Set rsonline = Server.CreateObject("ADODB.Recordset")                                                                                                                                              
sql = "SELECT * FROM online order by ltime desc"                                                                                                                                              
rsonline.open sql, conn, 1,1
do while not rsonline.eof
if rsonline("name")<>"" then%>
<img src="images/ao2.gif" width="16" height="18"> <a href=Userlist_data.asp?username=<%=rsonline("name")%>><%=rsonline("name")%></a>&nbsp;
<% else%>
<img src="images/ao1.gif" width="16" height="18"> 游客&nbsp;
<% end if                                                                                                                      
rsonline.movenext
			loop
				rsonline.close
				set rsonline=nothing%></td>
                  </tr><%end if%>
              </table>
                <br>
                <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="999999">
                  <tr>
                    <td bgcolor="#CCCCCC"> <img src="images/index_8.gif" width="21" height="15" align="absmiddle">友情连接 <font color="666666"> [<font color="3A3A3A"><a href="addlink.asp">交换友情连接</a></font>] </font> </td>
                  </tr>
                  <tr>
                    <td bgcolor="#FFFFFF">
                      <table border="0" cellpadding="0" cellspacing="0" width="100%">
                        <tr>
                          <%sql1="select * from link where [check]=1 order by id desc"                   
Set link=Conn.Execute(sql1)    
i=1   
while not link.eof%>
                          <td width="110" >
                            <div align="center"><a href=<%=link("url")%> target=top> <%=trim(link("linkname"))%></a></div></td>
                          <%if i mod 8 = 0 then %>
                        </tr>
                        <%   
end if
link.MoveNext
i=i+1
wend
%>
                    </table></td>
                  </tr>
              </table>
            </div></td>
          </tr>
      </table>
        <table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="10"></td>
          </tr>
    </table></td>
  </tr>
</table>
<!--#include file="../copyright.asp"-->                   
