newscast.asp

来自「admin/login.asp11k 上海购物网设计的购物系统是基于WEB开发的」· ASP 代码 · 共 43 行

 <table width="67%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><img height=38 
      src="images/panel1_h.gif" width=500></td>
  </tr>
  <tr>
    <td> 
      <TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
        <TBODY>
          <TR> 
            <TD vAlign=top width=8><IMG height=94 
            src="images/pan_1_l.gif" width=8></TD>
            <TD bgColor=#e8e8e8 class=ct-newtopic> 
              <%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>
            <TD vAlign=top width=8><IMG height=94 
            src="images/pan_1_r.gif" width=8></TD>
          </TR>
        </TBODY>
      </TABLE>
    </td>
  </tr>
  <tr>
    <td><img height=18 src="images/panel1_b.gif" 
      width=500></td>
  </tr>
</table>