newscast.asp

时代商城购物系统功能

<TABLE align="center" cellSpacing=0 cellPadding=0 width=180 border=0>
  <TBODY>
    <TR> 
      <TD vAlign=top>
	   <TABLE height=5 cellSpacing=1 cellPadding=0 width=180 border=0>
          <TBODY>
            <TR> 
              <TD bgColor=#ff93c9></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE height=20 cellSpacing=0 cellPadding=0 width=180 border=0>
          <TBODY>
            <TR> 
			  <td width="120" align="center"><font color="#ff6600">最新新闻</font></td>
			  <td align="right"><a href="chknews.asp">更多新闻</a>&nbsp;</td>
            </TR>
			<tr><td colspan="2" background=images/bg_04.gif border=0></td></tr>
          </TBODY>
			 </TABLE>
		
        <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
		  <% 
		   i=0
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 6 newsname,adddate,newsid from news order by adddate desc",conn,1,1
		  if rs.eof and rs.bof then
		  response.write "<center>目前还没有新闻！</center>"
		  else
		  do while not rs.eof
		  i=i+1
		  %>
            <TR> 
              <TD vAlign=center height=20><IMG height=11 src="images/images0112.gif" 
                  width=15 align=absMiddle border=0><%dim i
		 
		  response.write "<a href=# onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','','width=432,height=288,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布>"&trim(rs("newsname"))&"</a><br>"
		 %></TD>
            </TR>
			<tr><td background=images/bg_04.gif border=0></td></tr>
			<%  if i>=6 then exit do
		  rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%>
          </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>