<!--#include file="include/config.asp" -->
<HTML>
<HEAD>
<TITLE>新闻公告</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitedescription%>">
<meta name="keywords" content="<%=sitekeywords%>">
<link rel="stylesheet" href="include/style.css" type="text/css">
</HEAD>
<center>
<!--#include file="top.asp"-->
  <table width="932" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td width="180" align="left" valign="top" background=images/left_bg.gif><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD><IMG height=22 src="list/zbhz_shopping_car.gif" 
            width=180></TD>
            </TR>
            <TR> 
              <TD bgColor=#fcd8e7><IFRAME border=0 name=new_date11 marginWidth=0 
            marginHeight=0 src="gouwuche.asp" frameBorder=0 
            noResize width=178 scrolling=no height=83 spacing="0" 
            vspale="0"></IFRAME></TD>
            </tr>
            <TR> 
              <TD height=5 bgcolor="#FFFFFF"></TD>
            </tr>
            <TR> 
              <TD background="images/left_bg.gif"><IMG height=20 src="list/pic_fl.gif" 
              width=180></TD>
            </tr>
            <tr> 
              <td><TABLE align=center cellSpacing=0 cellPadding=0 width=175 border=0>
	<tr><td width=175>
<script language=javascript src=include/1.js></script>
<%
openlar=request("larcode")
Set Fso = CreateObject("Scripting.FileSystemObject")
set buyok_class=Fso.openTextFile(Server.MapPath("include/class.asp"))
do while not buyok_class.atendofstream
classtext=buyok_class.readline
if classtext="暂无商品分类" then
response.write "<tr><td width=171 height=100 align=center>暂无商品分类</td></tr>"
exit do
end if
if instr(classtext,"lar:")>0 then
larcode=replace(classtext,"lar:","")
if tree_num=1 then
set cqrsprod =conn.execute("select count(*) as thislarnum from bproduc where online=true and larcode='"&larcode&"'")
thislarnum=cqrsprod("thislarnum")
thislarnum="["&thislarnum&"]"
set cqrsprod=nothing


end if
lar=lar+1
if lar>1 and lar<>old then response.write "</td></tr>"
midd=1
response.write "<TR><TD bgColor=#EAEAEA language=javascript onmouseup='showmenu(buyok"&lar&",&#13;&#10;  img"&lar&");' id=item$pval[buyokID]) style='CURSOR: hand' onMouseOver=""bgColor='#FFE3D2';"" onMouseOut=""bgColor='#EAEAEA';"" height=30 valign=middle><IMG id=img"&lar&" height=20 src=images/small/bclass1.gif width=20 align=absMiddle>&nbsp;<B alt='"&larcode&"'>"&larcode&"</B> "&thislarnum&"</td></tr>"
else
midcode=classtext
if tree_num=1 then

set cqrsprod1 =conn.execute("select count(*) as thismidnum from bproduc where online=true and midcode='"&midcode&"'")
thismidnum=cqrsprod1("thismidnum")
thismidnum="["&thismidnum&"]"
set cqrsprod1=nothing
end if

if midd=1 then
if tree_display=1 then
response.write "<TR><TD id=buyok"&lar&">"
elseif openlar=larcode then
response.write "<TR><TD id=buyok"&lar&">"
else
response.write "<TR><TD id=buyok"&lar&" style='DISPLAY: none'>"
end if
end if
response.write "<IMG height=20 src=images/small/bclass3.gif width=36 align=absMiddle border=0><a href='class.asp?LarCode="&server.URLEncode(LarCode)&"&MidCode="&server.URLEncode(MidCode)&"'><font alt='"&MidCode&"'>"&lleft(MidCode,20)&"</font></a>&nbsp;&nbsp;"&thismidnum&"<br>"
midd=midd+1
old=lar
end if
loop
buyok_class.close
set fso=nothing
%></td></tr>
</table>
</td>
            </tr>
                    <TR> 
                      <TD bgcolor="#FFFFFF" height=27 valign="middle"><IMG height=25 src="list/pic_tj.gif" 
              width=180></TD>
                    </TR>
<tr><td height="8"></td></tr>
<tr><td align="center">
<table cellSpacing=0 cellPadding=0 width=178 border=0 background="images/top/left_bg.gif">
<%
liulan = request.cookies("liu")
liuid = Request("Prodid")
If Len(liulan) = 0 Then
liulan = "'" & buyid & "', '1'"
ElseIf InStr( liulan, liuid ) <= 0 Then
liulan = liulan & ", '" & liuid & "', '1'"
End If
response.cookies("liu") = liulan
response.cookies("liu").expires=now()+365
%>
<%
set cqrsprod=conn.execute("select * from bproduc where ProdId in ("&liulan&") order by ProdId")
Do While Not cqrsprod.eof
prodname=lleft(cqrsprod("ProdName"),24)
response.write "<tr><td class=td1 height=22>&nbsp;&nbsp;·<a href='list.asp?ProdId="&cqrsprod("ProdId")&"'>"&prodname&"</a></td></tr>"
response.write "<tr><td height=1 background=images/top/histroy_line.gif></td></tr>"

k=k+1
if k>renmen_num-1 then exit do
if cqrsprod.eof then exit do
cqrsprod.movenext
loop
set cqrsprod=nothing
%>
</table>
</td></tr>
<tr><td height="20"></td></tr>
          </TBODY>
        </TABLE></td>
      <td width="9"></td>
      <td width="743" align="center" valign="top" ><TABLE width=743 
                  border=0 cellPadding=0 cellSpacing=0 bgColor=#f1f1f1>
          <TBODY>
            <TR> 
              <TD bgcolor="#FFFFFF">&nbsp;</TD>
              <TD height=30 bgcolor="#FFFFFF">目前位置：<a href=main.asp>首页</a> > 新闻公告</TD>
              <TD bgcolor="#FFFFFF">&nbsp;</TD>
            </TR>
            <TR> 
              <TD width=10><IMG height=12 
                        src="images/news/com_article_01.gif" width=10></TD>
              <TD width=532 height=12></TD>
              <TD width=10><IMG height=12 
                        src="images/news/com_article_02.gif" width=10></TD>
            </TR>
            <TR> 
              <TD></TD>
              <TD align=middle>
			  <table cellspacing=0 cellpadding=0 width=720 bgcolor=#FFFFFF border=0 class=com_table_zb align="center">
                  <%
dim newstitle(5)
Set rs = conn.Execute("select * from bconfig") 
newstitle(1)=rs("newstitle1")
newstitle(2)=rs("newstitle2")
newstitle(3)=rs("newstitle3")
newstitle(4)=rs("newstitle4")
newstitle(5)=rs("newstitle5")
set rs=nothing
%>
                  <tbody>
                    <%
set rs=conn.execute ("select * from News where online=true and now()<OffDate and now()>=PubDate")
if rs.eof and rs.bof then
response.write "<tr><td height=50 align=center>暂时没有新闻文章</td></tr>"
else

for i=1 to 5
set rs=conn.execute ("select top 10 * from News where online=true and now()<OffDate and now()>=PubDate and NewsClass='"&i&"'  order by uup desc,Pubdate desc")

if newstitle(i)<>"" then
if not (rs.eof and rs.bof) then
%>
                    <tr> 
                      <td width=98%  valign=top> <table border=0  width=165>
                          <tr> 
                            <td width=165 height=28 align=left>&nbsp;&nbsp;&nbsp;&nbsp;<a href='allnews.asp?class=<%=i%>' alt="浏览更多<%=newstitle(i)%>"><B><FONT color=#ff6600><%=newstitle(i)%></font></b></a></td>
                          </tr>
                        </table>
                        <table cellpadding=2 cellspacing=0 border=0  width=95% align=center  class=com_table_zb>
                          <%
	Do while Not rs.eof
	%>
                          <tr> 
                            <td width=55%>&nbsp;&nbsp;&nbsp;&nbsp;<a href="news.asp?NewsId=<%=Cstr(rs("NewsId"))%>"  ><%=lleft(rs("NewsTitle"),40)%></a></td>
                            <td  width=25%><%=rs("PubDate")%></td>
                            <td  width=20%>人气值：<%=rs("cktimes")%></td>
                          </tr>
                          <%
	rs.movenext
	loop
set rs=nothing
%>
                        </table></td>
                    </tr>
                    <tr> 
                      <td height="30" align=right><a href='allnews.asp?class=<%=i%>' alt="浏览更多<%=newstitle(i)%>"><font color="#FF0000">更多内容…</font></a>&nbsp;&nbsp;&nbsp;&nbsp;</td>
                    </tr>
                    <%
end if
end if
next
end if
%>
                  </tbody>
                </table> </TD>
              <TD></TD>
            </TR>
            <TR> 
              <TD><IMG height=12 
                        src="images/news/com_article_03.gif" width=10></TD>
              <TD height=12></TD>
              <TD><IMG height=12 
                        src="images/news/com_article_04.gif" 
                    width=10></TD>
            </TR>
          </TBODY>
        </TABLE>
        <table width="743" height="20" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td>&nbsp; </td>
          </tr>
        </table></td>
    </tr>
  </table>
      </td>
    </tr>

  </table>
<!--#include file="down.asp"-->
</BODY></CENTER>

</HTML>
<%
conn.close
set conn=nothing
%>
