info_news.asp

asp商城之王

<table width="23%" border="0" cellspacing="0" cellpadding="0" height="56">
  <tr> 
    <td background="images/bj_x.gif" height="1"></td>
  </tr>
   <tr>
	<td width="102"> <img src="images/main/news2.gif" width="178" height="34"></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 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 width="100%" height="24" background="images/main/dp_bg3.gif"> <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=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")),9)&"...."&"</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%>
		<tr align="right" > 
    <td height="24" colspan="2" ><a href="new.asp" target="_blank"><font color="#FF3300">更多&gt;&gt;&gt;</font></a></td>
        </tr>
        
      </table>