<!--头部Star-->
<!--#include file="head.asp"-->
<!--头部End-->
<!--中间Star-->
<%
call aspsql()
action=trim(request("class"))
Set rs = conn.Execute("select * from shopsetup") 
title=rs("newstitle"&action)
if title="" then response.redirect "news_home.asp"
set rs=nothing
pages=15
%>
<table width="1004" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="180" align="center" valign="top"><table width="183" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="163">　</td>
    <td width="20">　</td>
  </tr>
    <tr>
    <td><table width="100" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#B5C096">
        <tr>
          <td><table width="100"  border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
              <tr>
                <td><table width="189"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td colspan="2"><div align="center"><img src="hf_images/hf_product.gif" width="189" height="32"></div></td>
                    </tr>
                    <tr>
                      <td height="3" colspan="2"></td>
                    </tr>
                  <%dim sqlClass,rsClass
        sqlClass="select * from BigClass order by orderid"
		Set rsClass= Server.CreateObject("ADODB.Recordset")
		rsClass.open sqlClass,conn,1,1   
		do while not rsClass.eof			
		%>
  <tr>
  <td align="left" valign="middle" style="padding-left:4px;padding-top:4px;padding-right:4px;padding-bottom:4px; height:28px; background:url(hf_images/cxcx.gif) bottom no-repeat; width:171px; word-break:break-all;">
  <table width="100%" border="0" cellspacing="0" cellpadding="2">
  <tr>
    <td width="38"><img src="hf_images/next.jpg"  align="absmiddle"></td>
	<td align="left" width="120"><a href="product.asp?s_id=<%=rsClass("bigclassid")%>" IsShowProcessBar=True><samp class="TitleFont"><b><%=rsClass("Bigclassname")%></b></samp></a></td>
  </tr>
</table>
  </td>
  </tr>
   
 <% rsClass.movenext
  loop
  rsClass.close
  %>

                   
                </table></td>
              </tr>
          </table></td>
        </tr>
    </table></td>
  </tr>
</table>

</td>
    <td width="705" valign="top"><table width="705" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="495">　</td>
        <td width="210" valign="top"><img src="hf_images/icon_3.jpg" width="14" height="12" align="absmiddle"><a href=index.asp IsShowProcessBar=True>Home</a> > <a href=news.asp IsShowProcessBar=True>新闻中心</a> > <%=title%></td>
      </tr>
      <tr>
        <td height="24">　<img src="hf_images/icon_2.jpg" width="19" height="21" align="absmiddle"><img src="hf_images/news.gif" width="87" height="21" align="absmiddle"></td>
        <td height="24">　</td>
      </tr>
      <tr>
        <td colspan="2" align="center"><img src="hf_images/line_2.jpg" width="677" height="2"></td>
      </tr>
      <tr>
        <td colspan="2">　</td>
      </tr>
      <tr>
        <td colspan="2" align="center"><table width="658" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="140" height="24" valign="top"><table width="100%" height="24" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="8" align="left"><img src="hf_images/kuan_L.jpg" width="8" height="30"></td>
                <td width="161" class="line_T"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="6%"><img src="hf_images/Kuan_R_R.jpg" width="10" height="28"></td>
                    <td width="77%" align="center" valign="middle" background="hf_images/Kuan_R_BG.jpg" class="title_FF" ><%=title%></td>
                    <td width="17%"><img src="hf_images/Kuan_R_2.jpg" width="26" height="28"></td>
                  </tr>
                </table></td>
                <td width="7"><img src="hf_images/kuan_R.jpg" width="7" height="30"></td>
              </tr>
            </table></td>
            <td width="600" valign="top" class="line_B">　</td>
            <td width="9" valign="top">　</td>
          </tr>
          <tr>
            <td height="5" colspan="3" align="right" valign="top" class="line_L"><img src="hf_images/kuan_RT.jpg" width="10" height="10"></td>
          </tr>
          <tr>
            <td colspan="3" align="center" valign="top" class="line_LR"><table width="640" border="0" cellspacing="0" cellpadding="0">
              <tr>
                              <TD width=640 height=425 valign=top> 
<TABLE cellSpacing=0 cellPadding=1 width=100% align=center  border=0>

<tbody>
<tr>
<td width=100%  valign=top>
<table   cellpadding="2"  cellspacing="0" border=0  width=100% align=center >
<tr class="about_font" id="NewMain_Top">
<td width=50%><div id="NewMain_Top_Text" style="width:450px;" align="center">标题</div></td>
<td  width=30%><div id="NewMain_Top_Text" style="width:150px;" align="center">发布时间</div></td>
<td  width=20%><div id="NewMain_Top_Text1" style="width:40px;" align="lert">人气</div></td>
</tr>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from News where online=true and now()<OffDate and now()>=PubDate and NewsClass='"&action&"'  order by uup desc,Pubdate desc"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<tr><td height=50 align=center>暂时没有新闻文章</td></tr>"
else
rs.pageSize = pages '每页记录数
allPages = rs.pageCount	'总页数
page = Request("page")	'从浏览器取得当前页
If not isNumeric(page) then page=1
if isEmpty(page) or clng(page) < 1 then
page = 1
elseif clng(page) >= allPages then
page = allPages 
end if
rs.AbsolutePage = page			'转到某页头部
do while not rs.eof and pages>0
%>
<tr id="NewMain_Info">
<td width=50%><IMG height=9 src="hf_images/index4_r10_c7.jpg" width=9 border=0> <a href="news_list.asp?NewsId=<%=Cstr(rs("NewsId"))%>" IsShowProcessBar=True><%=lleft(rs("NewsTitle"),40)%></a></td>
<td  width=30%><%=rs("PubDate")%></td>
<td  width=20%><%=rs("cktimes")%></td>
</tr>
<%
pages = pages - 1
rs.movenext
if rs.eof then exit do
loop
end if
%>
</table>
</td></tr>
</tbody> 
<%
call listpage()
%>
</TABLE>
</TD>
<%
sub listpage()
'if allpages<=1 then exit sub
response.write "<tr><td height=30> </td></tr><tr><td colspan=3 height=1 background=images/small/bgline.gif></td></tr>"
response.write "<tr><td align=center>"
response.write "<br>总计 "&RS.RecordCount&" 篇文章 &nbsp;"
if page = 1 then
response.write "<font color=darkgray>首页 前页</font>"
else
response.write "<a href=news_home_more.asp?class="&action&"&page=1 IsShowProcessBar=True>首页</a> <a href=news_home_more.asp?class="&action&"&page="&page-1&" IsShowProcessBar=True>前页</a>"
end if
if page = allpages then
response.write "<font color=darkgray> 下页 末页</font>"
else
response.write " <a href=news_home_more.asp?class="&action&"&page="&page+1&" IsShowProcessBar=True>下页</a> <a href=news_home_more.asp?class="&action&"&page="&allpages&" IsShowProcessBar=True>末页</a>"
end if
response.write " &nbsp; 第"&page&"页 共"&allpages&"页 </td></tr>"
end sub

rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</tr>
</table></td>
          </tr>
          <tr>
            <td height="10" colspan="3" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="2%"><img src="hf_images/kuan_LB.jpg" width="10" height="10"></td>
                <td width="95%" class="line_B"><img src="hf_images/spacer.gif" width="640" height="10"></td>
                <td width="3%"><img src="hf_images/kuan_RB.jpg" width="10" height="10"></td>
              </tr>
            </table></td>
          </tr>
        </table>
          <br></td>
      </tr>
    </table></td>
    <td width="116" align="right" valign="top"><img src="hf_images/hf_right_ad.jpg" width="116" height="342"></td>
  </tr>
</table>
<!--中间End-->
<!--底部Star-->
<!--#include file="hf_down.asp"-->
<!--底部End-->
