www.gusucode.com > 绿色环保工作企业网站源码程序 > CoNews.asp

    <!--#include file="Inc/SysProduct.asp" -->
<!-- #include file="Head.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=1002 align=center border=0>
  <TBODY>
    <TR>
      <TD vAlign=top width=210><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR>
              <TD><IMG height=40 src="imgbly/lt9.gif" width=210></TD>
            </TR>
            <TR>
              <TD align=middle><TABLE 
            style="BORDER-RIGHT: #e9e9e9 1px solid; BORDER-TOP: #e9e9e9 1px solid; BORDER-LEFT: #e9e9e9 1px solid; BORDER-BOTTOM: #e9e9e9 1px solid" 
            cellSpacing=0 cellPadding=0 width=178 border=0>
                <TBODY>
                  <TR>
                    <TD height=15>&nbsp;</TD>
                  </TR>
                  <TR>
                    <TD><TABLE cellSpacing=0 cellPadding=0 width=162 align=center 
                  border=0>
                        <TBODY>
                          <TR>
                            <TD class=lNav1><a href="NewsClass.asp?BigClass=&#20225;&#19994;&#26032;&#38395;">企业新闻</a></TD>
                          </TR>
                          <TR>
                            <TD height="5"></TD>
                          </TR>
                          <TR>
                            <TD class=lNav1><a href="NewsClass.asp?BigClass=&#19994;&#20869;&#36164;&#35759;">业内资讯</a></TD>
                          </TR>
                          <TR>
                            <TD height="5"></TD>
                          </TR>
                          <TR>
                            <TD class=lNav1><a href="NewsClass.asp?BigClass=&#25216;&#26415;&#25991;&#26723;">技术文档</a></TD>
                          </TR>
                          <TR>
                            <TD height="5"></TD>
                          </TR>
                          <TR>
                            <TD class=lNav1><a href="NewsClass.asp?BigClass=&#35270;&#39057;&#20013;&#24515;">视频中心</a></TD>
                          </TR>
                        </TBODY>
                    </TABLE></TD>
                  </TR>
                  <TR>
                    <TD height=15>&nbsp;</TD>
                  </TR>
                </TBODY>
              </TABLE></TD>
            </TR>
          </TBODY>
        </TABLE>
          <!-- #include file="leftps.asp" --></TD>
      <TD style="BACKGROUND: url(imgbly/bg_body.gif) repeat-y 50% top" vAlign=top><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR>
              <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                  <TBODY>
                    <TR>
                      <TD background=imgbly/bg_rt.gif><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                          <TBODY>
                            <TR>
                              <TD><IMG src="imgbly/rt12.gif" width="209" height=41></TD>
                              <TD>&nbsp;</TD>
                              <TD class=loc 
                      style="BACKGROUND: url(img/bg_rtjiao.gif) no-repeat right 50%; COLOR: #9f9f9f" 
                      align=right>你现在的位置:<A href="index.asp">首页</A> &gt; <A href="about.asp">新闻中心</A> </TD>
                            </TR>
                          </TBODY>
                      </TABLE></TD>
                      <TD width=17>&nbsp;</TD>
                    </TR>
                  </TBODY>
              </TABLE></TD>
            </TR>
          </TBODY>
        </TABLE>
          <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
            <TBODY>
              <TR>
                <TD width=17 height=26>&nbsp;</TD>
                <TD>&nbsp;</TD>
                <TD width=17>&nbsp;</TD>
              </TR>
              <TR>
                <TD>&nbsp;</TD>
                <TD align="center" style="LINE-HEIGHT: 24px">	<table width="100%" border="0" cellspacing="0" cellpadding="0">
					            <TR> 
              <TD    
                  height=1> 
				  
<%
Set RsNews = Server.CreateObject("ADODB.Recordset")
sql="select BigClassName from BigClass_New order by BigClassID"
RsNews.open sql,conn,1,3
do while not RsNews.eof
%>
 <table width="100%" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr bgcolor="#F9F9F9"> 
                            <td width="21%" height="18" class="lNav1">&nbsp;&nbsp;&gt;&gt; <%=RsNews("BigClassName")%></td>
                        <td width="79%" bgcolor="#F2F3F5">&nbsp; </td>
                  </tr>
                  
                </table>
                <table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FBFEFF">
                  <tr> 
                    <td height="8"></td>
                  </tr>
                 
                  <tr> 
                        <td><table width="100%" border="0" cellpadding="0" cellspacing="0" class="list">
                                <%
BigClass=RsNews("BigClassName")
n=6
If  BigClass<>"" then
sql="select top 6 * from News where BigClassName='"& BigClass &"' order by AddDate desc"
set rs=conn.execute(sql) 
do while not rs.eof 
%>
                                <tr> 
                                  <td width="6%" height="24" align="center" > <IMG height=3 src="imgbly/dolt.gif" width=3 
                  align=middle> </td>
                                  <td width="65%" height="24"> 
                                    <% if rs("FirstImageName")<>"" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %>
                                    <a href="shownews.asp?id=<%= RS("id") %>" target="_blank"><%= RS("TITLE") %></a> </td>
                                  <td width="29%" ><font color="#999999">[<%=FormatDateTime(RS("AddDate"),2)%>] 
                                    (点击<font color="#ff0000"><%= RS("hits") %></font>) 
                                    </font> 
<%
n=n-1
if n<1 then exit do
rs.movenext 
loop
rs.close   
set rs=nothing   
%>
                                    <% End If %>
                                  </td>
                                </tr>
                              </table></td>
                  </tr>             

                  <tr> 
                    <td height="8"><div align="right"><a href="NewsClass.asp?BigClass=<%=RsNews("BigClassName")%>">更多>>></a></div></td>
                  </tr>
                </table>
<%RsNews.movenext 
loop
RsNews.close
set RsNews=nothing
%>                        
                      </TD>
            </TR>
                  </table></TD>
                <TD>&nbsp;</TD>
              </TR>
              <TR>
                <TD height=10>&nbsp;</TD>
                <TD>&nbsp;</TD>
                <TD>&nbsp;</TD>
              </TR>
            </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>
<!-- #include file="Inc/Foot.asp" -->
</BODY></HTML>