<!--#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
%>
<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="COLOR: #666666; BORDER-BOTTOM: #0198cd 4px solid; BACKGROUND-COLOR: #eeeeee" 
          vAlign=top width=760 colSpan=2><IMG height=29 
            src="images/hotnews_Logo.gif" width=228 align=absMiddle 
            border=0>  <a href="photo.jsp" class=SortTitle>图片新闻</a><%m_SQL="SELECT * FROM T_SmallCategory WHERE F_BigCategoryID = 17 ORDER BY F_Grade ASC"
    Set rs = conn.Execute(m_SQL)
	Response.write "- "
 i=0
 do While Not rs.Eof
   i=i+1
   Response.write "<a href='Category.jsp?id="&rs("F_ID")&"' class=SortTitle>"
   Response.write rs("F_Value")
   Response.write "</a> - "
   if i mod 9=0 then Response.write "<br>- "
   rs.MoveNext
 loop
 rs.Close
%></TD>
        </TR>
        <TR>
          <TD style="PADDING-RIGHT: 10px; PADDING-TOP: 5px" vAlign=top 
width=550>
            <DIV 
            style="PADDING-LEFT: 8px; FONT-WEIGHT: bold; FONT-SIZE: 14px; WIDTH: 540px; PADDING-TOP: 10px; HEIGHT: 34px; BACKGROUND-COLOR: #eeeeee" 
            align=left>&nbsp;<a href="index.jsp">新闻资讯</a>--&gt;&nbsp;
			图片新闻</DIV>
                <table width="450" border="0" align="center" cellPadding="0" cellSpacing="0" bordercolor="#CCCCCC">
  <%
    dim m_RecordCount,m_PageNo,m_Page
    m_RecordCount=0 : m_PageNo=0 : m_Page=0
	m_PageSize = 15 '每页显示数录数
    m_PageNo = Trim(Request.querystring("PageNo"))
	Set rs = Server.createobject("Adodb.RecordSet")
    m_SQL = "SELECT  * FROM T_Article WHERE F_IsPic=1 and F_Previewimg<>'' and F_BigCategoryID = 17"
	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 = 0'另加
	   response.write " <tr>"
      Do while not rs.eof and rc>0
	  m_Count = m_Count +1'另加
	  
        '---------------------------------
		'调用显示内容
        ShowContent()
        '---------------------------------
		  if m_Count mod 3 =0 then  Response.write "  </tr>"
      rs.MoveNext
      re = re+1
      rc = rc-1
    Loop
	rs.Close
 End if	
 Sub ShowContent()
 %>
 
 
 <td height="160" align="center">
                          <table width="180"  border="0" cellPadding="0" cellSpacing="0">
                            <!--DWLayoutTable-->
                            <tr>
                              <td width="180" height="120" 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=120 alt="<%=rs("F_Title")%>" 
                  src="<%=rs("F_Previewimg")%>" width=145 
                  border=0></A></td>
                            </tr>
							<tr>
                              <td width="180" height="20" align="center"><a target="_blank" title = "<%=rs("F_Title")%>" href="../Htmls/<%=rs("F_FilePath")%>" style="FONT-SIZE: 13px; COLOR: #333333"><%=GetWord(rs("F_Title"),22,"...")%></a>
                           </td>
                            </tr>
                          </table>
                    </td>
           <%End Sub%></table>
            <DIV 
            style="MARGIN-TOP: 8px; WIDTH: 540px; HEIGHT: 24px; BACKGROUND-COLOR: #8bb4d4"><% Call ShowPage(m_Parameter)'调用示分页过程%%></DIV></TD>
          <TD style="PADDING-TOP: 5px" vAlign=top width=210>
            <DIV 
            style="PADDING-LEFT: 5px; BACKGROUND-IMAGE: url(images/search_bg.gif); PADDING-BOTTOM: 5px; WIDTH: 210px; PADDING-TOP: 5px" 
            align=left>
            <FORM style="MARGIN: 0px" 
            action=../so/Search.jsp method=get 
            target=_blank><INPUT 
            style="BORDER-RIGHT: #cccccc 1px inset; BORDER-TOP: #cccccc 1px inset; BORDER-LEFT: #cccccc 1px inset; WIDTH: 148px; BORDER-BOTTOM: #cccccc 1px inset; HEIGHT: 21px" 
            name=Keywords><INPUT type=image src="images/searchbutton1.gif" 
            align=absMiddle name=imgsubmit> 
            </FORM></DIV>
			<TABLE style="MARGIN-BOTTOM: 5px" cellSpacing=0 cellPadding=0 
            width=210 border=0>
              <TBODY>
              <TR>
                <TD 
                style="PADDING-RIGHT: 4px; PADDING-LEFT: 4px; FONT-SIZE: 14px; PADDING-BOTTOM: 4px; COLOR: #ffffff; PADDING-TOP: 4px" 
                bgColor=#0198CD><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><%
						' cardfile=""
						' if rs("iscard")="1,0" then
						' cardfile="../card/"
						' end if
						 m_SQL = "SELECT F_ID,F_Value FROM T_TradeType WHERE F_ID="&rs("hangyeid")
						  Set rst = conn.Execute(m_SQL)
						  Response.write "<a href='../jubao/Search.jsp?TypeID="&m_TypeID&"&TradeTypeID="&rst(0)&"'><span class='f2'>【"
						  Response.write rst(1)
						  Response.write "】</span></a>"
						  rst.Close
						  %><%=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=210 border=0>
              <TBODY>
              <TR>
                <TD 
                style="PADDING-RIGHT: 4px; PADDING-LEFT: 4px; FONT-SIZE: 14px; PADDING-BOTTOM: 4px; COLOR: #ffffff; PADDING-TOP: 4px" 
                bgColor=#0198CD><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 ORDER BY F_ID DESC"
			  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"),30,"...")%></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>
