📄 news_home.asp

📁 广告策划中心整站程序
💻 ASP
字号:
<!--#include file="Comm/conn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>公司简介</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="cycoo15.css" type="text/css">
</HEAD>
<body bgcolor="#011D32" background="images/bggreen.gif" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<CENTER>
<!--#include file="menu/topbar.asp"-->

  <table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
    <tr> 
      <td height="1" width="760"></td>
    </tr>
    <tr> 
      <td width="760"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="760" height="197">
          <param name="movie" value="menu3.swf">
          <param name="quality" value="high">
          <embed src="menu3.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="760" height="197"></embed></object></td>
    </tr>
    <tr> 
      <td background="images/bg_xg_01.gif" height="1" width="760"></td>
    </tr>
    <tr> 
      <td bgcolor="A5B2C6" height="18" width="760" class="new">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td> 
              <!--#include file="menu/searchbar.asp"-->
            </td>
          </tr>
        </table>
      </td>
    </tr>
    <tr> 
      <td background="images/bg_xg_02.gif" height="1" width="760"></td>
    </tr>
    <tr> 
      <td bgcolor="#DDDDDD" height="4" width="760"></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF" height="1" width="760"></td>
    </tr>
    <tr> 
      <td height="1" width="760"></td>
    </tr>
    <tr> 
      <td width="760"> 
        <table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" class="aq">
          <tr> 
            <td height="315" bgcolor="FFFBF7" align="center" valign="top" width="185"> 
              <table width="90%" border="0" cellspacing="0" cellpadding="0">
                <tr><td height=8></td></tr></table>
              <!--#include file="loginbox.asp" -->
			  <table width="90%" border="0" cellspacing="0" cellpadding="0">
                <tr><td height=8></td></tr></table>
              <!--#include file="prodtree.asp" -->
            </td>
            <td height="100" bgcolor="#CCCCCC" width="1"></td>
            <td height="100" valign="top" align="center"><table cellspacing=0 cellpadding=0 width=566 bgcolor=#fbfbfb border=0 class="new" align="center">
 <%
'*******************************新闻板块
'判断日期是否过期，和是否设定在线！
sqlnews = "select top 10 NewsId,NewsTitle,PubDate from News where online=true and date()<OffDate and date()>=PubDate and NewsClass='网站动态'"
sqlprom = "select top 10 NewsId,NewsTitle,PubDate from News where online=true and date()<OffDate and date()>=PubDate and NewsClass='促销信息'"
set rsnews=Server.CreateObject("ADODB.RecordSet")
set rsprom=Server.CreateObject("ADODB.RecordSet")
rsprom.open sqlprom,conn,1,1
rsnews.open sqlnews,conn,1,1
%>
<tbody><tr>
                    <td colspan=3 height=30>现在位置>>公司简介</td>
                  </tr> 
<tr><td width=278 valign=top> 
<table cellspacing=0 cellpadding=0 border=0 align="center" width=98%>
<%
if rsnews.eof and rsnews.bof then
	response.write "<tr><td height=50 align=center>最近没有重大新闻</td></tr>"
else

	Do while Not rsnews.eof
	%>
	<tr><td><a href="news_detail.asp?NewsId=<%=Cstr(rsnews("NewsId"))%>" target="_blank">- <%=rsnews("NewsTitle")%></a>--[<%=rsnews("PubDate")%>]</td></tr>
	<%
	rsnews.movenext
	loop
end if

set rsnews=nothing
'******************************
%>
</table>
</td>
<td width=6 align="left"><img src="images/center_title_dotline5L.gif" width="1" height="85"></td>
<td width=278 valign=top>
<table cellspacing=0 cellpadding=0 border=0 align="center" width=98%>
<%
if rsprom.eof and rsprom.bof then
	response.write "<tr><td height=50 align=center>最近没有促销信息</td></tr>"
else
	Do while Not rsprom.eof
	%><tr><td><a href="news_detail.asp?NewsId=<%=Cstr(rsprom("NewsId"))%>" target="_blank">- <%=rsprom("NewsTitle")%></a>--[<%=rsprom("PubDate")%>]</td></tr>
	<%
	rsprom.movenext
	loop
end if

set rsprom=nothing
'******************************
%>
</table>
</td></tr>
<tr><td colspan=3 height=10></td></tr> 
</tbody> 
</table></td>
          </tr>
        </table>
      </td>
    </tr>
    <tr> 
      <td width="760" bgcolor="#ccccd4" class="new">&nbsp;</td>
    </tr>
    <tr> 
      <td width="760" height="9">&nbsp; </td>
    </tr>
  </table>
<!--#include file="menu/bottom.asp"-->
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -