newscast.asp

来自「上海购物网设计的购物系统是基于WEB开发的大型购物系统。 它以构建电子商务网」· ASP 代码 · 共 37 行

 <table width="177" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td bgcolor="#FFCC66"><IMG height=25 
      src="images/skin/default/1355926.jpg" width=94></td>
  </tr>
</table>
<table width="175" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr> 
    <td bgcolor="#CCCCCC"><table width="165" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td><table width="175" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
              <tr> 
                <td height="130"> 
                  <%dim i
		  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
		  response.write "&nbsp;·<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>"
		  if i>=5 then exit do
		  rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%>
                </td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>