<!--#include file="../include/Conn.jsp"-->
<!--#include file="../include/Char.jsp"-->
<!--#include file="../Include/const.jsp" -->
<!--#include file="../include/function.jsp"-->
<!--#include file="../Include/licky_fsql.jsp" -->
<%
Function gradeimage(gradevalue)
select case gradevalue
case "4"
response.write "<img src='../Images/gold-jin.gif' title='金牌商家' width='19' height='15' hspace='0' vspace='0' align='absmiddle'>"
case "3"
response.write "<img src='../Images/gold-yin.gif' title='银牌商家' width='19' height='15' hspace='0' vspace='0' align='absmiddle'>"
case "2"
response.write "<img src='../Images/gold-tong.gif' title='铜牌商家' width='19' height='15' hspace='0' vspace='0' align='absmiddle'>"
case else
response.write ""
end select
End function
%>
<%
  m_ID = checkStr(Request("ID"))
%>
<HTML>
<HEAD>
<TITLE><%=site_info(0)%> - 男人帮</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
</HEAD>
<BODY>
<!--#include file="../Include/Top.jsp" -->
<!-- 页面内容开始 -->

<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD bgColor=#ffffff>
      <TABLE cellSpacing=0 cellPadding=0 width=760 border=0>
        <TBODY>
        <TR>
          <TD style="PADDING-RIGHT: 4px; PADDING-BOTTOM: 10px" vAlign=top 
          width=596><!--二级导航栏-->
            <TABLE cellSpacing=0 cellPadding=0 width=590 bgColor=#587f96 
            border=0>
              <TBODY>
              <TR>
                <TD width=100><IMG height=32 
                  src="images/ma_mark.gif" width=85></TD>
                <TD width=7><IMG height=32 
                  src="images/ma_topspace.gif" width=7></TD>
                <TD 
                style="PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 9px; PADDING-BOTTOM: 3px; COLOR: #acbfcb; PADDING-TOP: 3px" 
                width=90><A style="FONT-SIZE: 14px; COLOR: #ffffff" 
                  href="Category.jsp?id=81">男人话题</A><BR>TOPIC 
                </TD>
                <TD width=7><IMG height=32 
                  src="images/ma_topspace.gif" width=7></TD>
                <TD 
                style="PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 9px; PADDING-BOTTOM: 3px; COLOR: #acbfcb; PADDING-TOP: 3px" 
                width=90><A style="FONT-SIZE: 14px; COLOR: #ffffff" 
                  href="Category.jsp?id=82">风尚男人</A><BR>FASHION 
                </TD>
                <TD width=7><IMG height=32 
                  src="images/ma_topspace.gif" width=7></TD>
                <TD 
                style="PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 9px; PADDING-BOTTOM: 3px; COLOR: #acbfcb; PADDING-TOP: 3px" 
                width=90><A style="FONT-SIZE: 14px; COLOR: #ffffff" 
                  href="Category.jsp?id=83">科技新品</A><BR>MORDEN 
                </TD>
                <TD width=7><IMG height=32 
                  src="images/ma_topspace.gif" width=7></TD>
                               <TD 
                style="PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 9px; PADDING-BOTTOM: 3px; COLOR: #acbfcb; PADDING-TOP: 3px" 
                width=90><A style="FONT-SIZE: 14px; COLOR: #ffffff" 
                  href="Category.jsp?id=97">理财保险</A><BR>
                  insurance 
                </TD>
                <TD width=7><IMG height=32 
                  src="images/ma_topspace.gif" width=7></TD>
                <TD 
                style="PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 9px; PADDING-BOTTOM: 3px; COLOR: #acbfcb; PADDING-TOP: 3px"><A 
                  style="FONT-SIZE: 14px; COLOR: #ffffff" 
                  href="Category.jsp?id=85">职场风云</A><BR>CAREER 
                </TD></TR></TBODY></TABLE>
            <DIV 
            style="PADDING-LEFT: 8px; FONT-WEIGHT: bold; FONT-SIZE: 14px; WIDTH: 590px; PADDING-TOP: 10px; HEIGHT: 34px; BACKGROUND-COLOR: #eeeeee" 
            align=left>&nbsp;<a href="index.jsp">男人帮</a>--&gt;&nbsp;
			  <%
			if request("ID")<>"" then
			set rs_ID=server.createobject("adodb.recordset")
			sql_ID="select F_id,F_value from T_SmallCategory where F_id="&request("ID")
			rs_ID.open sql_ID,conn,1,1
			
			%><%=rs_ID("F_value")%>
		  <%

		  rs_ID.close
		  set rs_ID=nothing
		  end if
		  %></DIV>
          <DIV style="WIDTH: 590px; LINE-HEIGHT: 19px; PADDING-TOP: 4px">
  <%
    m_Parameter = "ID="&m_ID
    dim m_RecordCount,m_PageNo,m_Page
    m_RecordCount=0 : m_PageNo=0 : m_Page=0
	m_PageSize = 34 '每页显示数录数
    m_PageNo = Trim(Request.querystring("PageNo"))
	Set rs = Server.createobject("Adodb.RecordSet")
    m_SQL = "SELECT  * FROM V_Article WHERE (1=1)"
	m_SQL =  m_SQL + "and F_SmallCategoryID =" & m_ID
	m_SQL =  m_SQL + " ORDER BY F_ID DESC"
	rs.open m_SQL,conn,1,1
	if rs.Eof then
	   response.write "<br><p align='center'><font color=666666><B>对不起，该类别暂无新闻！</B></font></p><br>"
    else
      m_RecordCount = rs.RecordCount
      rs.PageSize = m_PageSize
      m_Page = rs.PageCount
      if m_PageNo = ""  then m_PageNo =1
      if cint(m_PageNo) < 1 or cint(m_PageNo) > m_Page then m_PageNo = 1
      rs.AbsolutePage = m_PageNo
      rc = m_PageSize
      re = 1
	  m_Count = 1'另加
      Do while not rs.eof and rc>0
	  m_Count = m_Count +1'另加
	  if m_Count mod 2 then m_BgColor = "ffffff" else m_BgColor = "f2f2f2" '另加
        '---------------------------------
		'调用显示内容
        ShowContent()
        '---------------------------------
      rs.MoveNext
      re = re+1
      rc = rc-1
    Loop
	rs.Close
 End if	
 Sub ShowContent()
 %><span style="border-bottom:1px dotted #cccccc; WIDTH: 450px; height:18px;margin-top:5px;margin-bottom:2px;">
				<a target="_blank" style="font-size:14px;color:#000000;"  href="../Htmls/<%=rs("F_FilePath")%>">·<%=rs("F_Title")%></a>
<% if rs("F_IsPic") then Response.write "<font color=D669A5>[图]</font>"%></span>
				<span style="border-bottom:1px dotted #cccccc; height:18px;margin-top:5px;margin-bottom:2px;color:#00A5EE""><%=formatdatetime(rs("F_Addtime"),1)%></span></DIV>
            <%End Sub%>
            <DIV 
            style="MARGIN-TOP: 8px; WIDTH: 540px; HEIGHT: 24px; BACKGROUND-COLOR: #8bb4d4"><% Call ShowPage(m_Parameter)'调用示分页过程%%></DIV>
            </TD>
          <TD vAlign=top width=164>
            <TABLE style="MARGIN-BOTTOM: 5px" cellSpacing=0 cellPadding=0 
            width="100%" bgColor=#587f96 border=0>
              <FORM name=frmSearch action=../so/search.jsp 
              method=get target=_blank><INPUT type=hidden value=z name=t> 
              <TBODY>
              <TR vAlign=center>
                <TD align=middle width="70%" height=30><INPUT 
                  style="WIDTH: 100px; HEIGHT: 20px; BACKGROUND-COLOR: #ffffff" 
                  name=Keywords></TD>
                <TD width="30%"><INPUT style="WIDTH: 43px; HEIGHT: 24px" 
                  type=image src="images/serchbtn.gif" 
              name=s></TD></TR></TBODY></FORM></TABLE>
            <TABLE style="MARGIN-BOTTOM: 5px" cellSpacing=0 cellPadding=0 
            width=164 border=0>
              <TBODY>
              <TR>
                <TD 
                style="PADDING-RIGHT: 4px; PADDING-LEFT: 4px; FONT-SIZE: 14px; PADDING-BOTTOM: 4px; COLOR: #ffffff; PADDING-TOP: 4px" 
                bgColor=#74b1ca><IMG height=8 
                  src="images/left_li.gif" width=7>&nbsp;聚宝同盟</TD></TR>
              <TR>
                <TD style="COLOR: #333333; LINE-HEIGHT: 150%" bgColor=#f5f5f5>
<%
  m_ID = Request.QueryString("ID")
  m_Sql = "SELECT TOP 1 * FROM CityCard_League where logo <> '' order by companyid desc"
		Set rs = conn.Execute(m_Sql)%>
                  <DIV style="WIDTH: 100%; PADDING-TOP: 5px" align=center><!--聚宝同盟图片-->
<a target="_blank" href="../jubao/Show.jsp?id=<%=rs("companyid")%>"><%m_Image = rs("logo") %>
                                <img src="../CardManage/UploadLogoImages/<%=m_Image%>" width="120" height="90" style="BORDER-RIGHT: #999999 1px ridge; BORDER-TOP: #999999 1px ridge; BORDER-LEFT: #999999 1px ridge; BORDER-BOTTOM: #999999 1px ridge" vspace="4" border="0"></a>
                  </DIV><%rs.Close%>
                  <!--聚宝同盟图片-->
				    <%
				   m_SQL = "SELECT TOP 10 * FROM CityCard_League where ischecked=1 order by grade desc,tuijian desc,adddate desc"
				   Set rs = conn.Execute(m_SQL)
				   Do While Not rs.Eof
				  %>
                  <DIV>·<%=gradeimage(rs("grade"))%>
                        <a target="_blank" title="<%=rs("name")%>" href="<% if rs("template_id")<>"0" then %><%=rs("companyid")%><% else %>../jubao/show.jsp?id=<%=rs("companyid")%><% end if %>"> 
                        <u> 
                        <% =GetWord(rs("name"),16,"") %>
                        </u> </a> 
                          <%
								  maid=split(rs("iscard"),",")
								  if maid(0)="1" then
								  %>
                              <img src="../club/Img/lycard.gif" alt="聚宝卡加盟商"> 
                              <% end if %>
							  <% if  maid(1)="1" then %>
							  <img src="../card/images/sms.gif" title="短信加盟商家" width="18" height="14" hspace="0" vspace="0" align='absmiddle'>
							  <% end if %></DIV> <%
				  rs.MoveNext
				  Loop
				  rs.Close
				  %>
                  <DIV align=right><a href="../jubao">更多&gt;&gt;</a>&nbsp;</DIV></TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width=164 border=0>
              <TBODY>
              <TR>
                <TD 
                style="PADDING-RIGHT: 4px; PADDING-LEFT: 4px; FONT-SIZE: 14px; PADDING-BOTTOM: 4px; COLOR: #ffffff; PADDING-TOP: 4px" 
                bgColor=#74b1ca><IMG height=8 
                  src="images/left_li.gif" width=7>&nbsp;她时尚</TD></TR>
              <TR>
                <TD style="COLOR: #333333; LINE-HEIGHT: 150%" bgColor=#f5f5f5>
                  <%
			  m_SQL = "SELECT top 1 * FROM T_Article WHERE F_BigCategoryID = 20 and F_IsCommend = 1"
			  Set rs = conn.Execute(m_SQL)
			   if rs.eof then
response.write "还没有图片！"
else%>
                  <DIV style="WIDTH: 100%; PADDING-TOP: 5px" align=center><!--她时尚-图片新闻--><A 
                  href="../Htmls/<%=rs("F_FilePath")%>" 
                  target=_blank><IMG 
                  style="BORDER-RIGHT: #999999 1px ridge; BORDER-TOP: #999999 1px ridge; BORDER-LEFT: #999999 1px ridge; BORDER-BOTTOM: #999999 1px ridge" 
                  height=90 alt="<%=rs("F_Title")%>" 
                  src="<%=rs("F_Previewimg")%>" width=120 
                  border=0></A></DIV>
                  <%end if                                                                   
               rs.close%>
                  <!--她时尚-最新新闻--><%
			  m_SQL = "SELECT top 10 * FROM T_Article WHERE F_BigCategoryID = 20 ORDER BY F_ID DESC"
			  Set rs = conn.Execute(m_SQL)
			   Do While Not rs.Eof
			  %>
                  <DIV style="LINE-HEIGHT: 19px">·<a target="_blank" title = "<%=rs("F_Title")%>" href="../Htmls/<%=rs("F_FilePath")%>" style="FONT-SIZE: 13px; COLOR: #333333"><%=GetWord(rs("F_Title"),20,"...")%></a></DIV><%rs.MoveNext
			  Loop
			  rs.close
			  %>
                  <DIV align=right><a href="../lady">更多&gt;&gt;</a>&nbsp;</DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><!-- 页面内容结束 -->

<!--#include file="../Include/Bottom.jsp" -->
</body>
</html>
