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> </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=企业新闻">企业新闻</a></TD> </TR> <TR> <TD height="5"></TD> </TR> <TR> <TD class=lNav1><a href="NewsClass.asp?BigClass=业内资讯">业内资讯</a></TD> </TR> <TR> <TD height="5"></TD> </TR> <TR> <TD class=lNav1><a href="NewsClass.asp?BigClass=技术文档">技术文档</a></TD> </TR> <TR> <TD height="5"></TD> </TR> <TR> <TD class=lNav1><a href="NewsClass.asp?BigClass=视频中心">视频中心</a></TD> </TR> </TBODY> </TABLE></TD> </TR> <TR> <TD height=15> </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> </TD> <TD class=loc style="BACKGROUND: url(img/bg_rtjiao.gif) no-repeat right 50%; COLOR: #9f9f9f" align=right>你现在的位置:<A href="index.asp">首页</A> > <A href="about.asp">新闻中心</A> </TD> </TR> </TBODY> </TABLE></TD> <TD width=17> </TD> </TR> </TBODY> </TABLE></TD> </TR> </TBODY> </TABLE> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD width=17 height=26> </TD> <TD> </TD> <TD width=17> </TD> </TR> <TR> <TD> </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"> >> <%=RsNews("BigClassName")%></td> <td width="79%" bgcolor="#F2F3F5"> </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> </TD> </TR> <TR> <TD height=10> </TD> <TD> </TD> <TD> </TD> </TR> </TBODY> </TABLE></TD> </TR> </TBODY> </TABLE> <!-- #include file="Inc/Foot.asp" --> </BODY></HTML>