info_newshou.asp

asp商城之王

<table width="170" border="0" cellspacing="0" cellpadding="0" height="22">
  <tr> 
    <td background="images/bj_x.gif" height="1"></td>
  </tr>
     <tr> 
    <td height="1" background="images/bj_x.gif"></td>
  </tr>
  <tr> 
        <%'dim i
		  i=0
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 8 newsname,adddate,newsid from sh_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%>
          
    <td width="100%" height="22" valign="middle" background="images/yemian/bg.gif"> <font color="#FF0000"> 
       <font color="#FFFFFF">&nbsp;&nbsp;</font><img src="images/yemian/navi_menu_icon.gif" width="3" height="5">
       <%if len(trim(rs("newsname")))>11 then
		  response.write "<a href='news.asp?id="&rs("newsid")&"' title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布><font color=#FF0000>"&left(trim(rs("newsname")),11)&"."&"</font></a><br>"
		  else
		  response.write "<a href='news.asp?id="&rs("newsid")&"' title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布><font color=#FF0000>"&trim(rs("newsname"))&"</font></a><br>"
		  end if
		  if i>=10 then exit do%>
    </font></td>
  </tr><%rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%>		       
      </table>