info_new.asp

asp商城之王

<table width="180" height="52" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="1" colspan="2" background="images/bj_x.gif"></td>
  </tr>
   <tr>
	<td width="127" height="27">站内新闻</td>
    <td width="53"><a href="list_news.asp" target="_blank"><font color="#FF3300">更多&gt;&gt;&gt;</font></a></td>
  </tr>
  <tr> 
    <td height="1" colspan="2" background="images/bj_x.gif"></td>
  </tr>
  <tr valign="middle"> 
        <%'dim i
		  i=0
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 6 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 height="23" colspan="2"><font color="#FF0000">
      <img src="images/top4.gif">
      <%if len(trim(rs("newsname")))>13 then
		  response.write " <a href=""javascript:;"" onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','news','width=500,height=550,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")),12)&".."&"</font></a><br>"
		  else
		  response.write " <a href=""javascript:;"" onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','news','width=500,height=550,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><%rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%>
		      </table>