newsinfo.asp

商业网站开发有源代码可以运行

<table width="100%" border="0" cellspacing="0" cellpadding="0" height="56">
  <tr> 
    <td background="images/bj_x.gif" height="1"></td>
  </tr>
  <tr> 
    <td height="22" bgcolor="EDECEC"> 
      <table cellspacing=0 cellpadding=0 width=170 height="20">
        <tr> 
          <td width=5>&nbsp;</td>
          <td width="102"> 
            <div align="center"></div>
            商城动态</td>
          <td width=61 align="right"><a href="dongtai.asp" target="_blank">更多&gt;&gt;&gt;</a></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="1" background="images/bj_x.gif"></td>
  </tr>
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="22">
        <%'dim i
		  i=0
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 6 newsname,adddate,newsid from shop_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%>
        <tr> 
          <td width="6%" height="22">&nbsp;</td>
          <td width="94%" height="22"> <font color="#FF0000"> 
            <%if len(trim(rs("newsname")))>11 then
		  response.write "☉ <a href=""javascript:;"" onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','news','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"))&"日发布><font color=#FF0000>"&left(trim(rs("newsname")),9)&"...."&"</font></a><br>"
		  else
		  response.write "☉ <a href=""javascript:;"" onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','news','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"))&"日发布><font color=#FF0000>"&trim(rs("newsname"))&"</font></a><br>"
		  end if
		  if i>=6 then exit do%>
            </font></td>
        </tr>
        <tr > 
          <td colspan="2" height="1" background="images/bj_x1.gif"></td>
        </tr>
        <%rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%>
      </table>
    </td>
  </tr>
</table>