📄 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">
<meta name="Robots" content="index,follow">
<meta name="Abstract" content="CycooShop">
<meta name="DC.Publisher" content="Cycoo Net Studio">
<link rel="stylesheet" href="shop.css" type="text/css">
</HEAD>
<body bgcolor="#011D32" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="images/fig_background.gif">
<CENTER>
<!--#include file="menu/topbar.asp"-->

  <table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">

    <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>
</tbody> 
</table></td>
          </tr>
        </table>
      </td>
    </tr>

  </table>
<!--#include file="menu/bottom.asp"-->
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明

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