newscast.asp

电子商务网络购物系统

 <TABLE WIDTH="100%" ALIGN="center" BORDER="0" CELLSPACING="0" CELLPADDING="0">
              <tr> 
                <td height="35" style="PADDING-LEFT: 30px; PADDING-TOP: 4px" background="images/bg11.gif"><b><FONT color=#666699>最新新闻</FONT></b></td>
              </tr>
              <TR> 
                <TD background="images/bg12.gif" height="18"> 
                  <%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 "目前还没有新闻！"
		  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>=6 then exit do
		  rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%>
                </TD>
              </TR>
              <tr>
                <td height="12" background="images/bg13.gif"></td>
              </tr>
            </TABLE>