info_newshou.asp

漂亮公司企业网站自助建站系统 .asp.rar

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table width="270" border="0" cellspacing="0" cellpadding="0" height="22">
  <tr> 
    <td height="1" background="image/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 wq_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="image/bg.gif"> <font color="#FF0000"> 
       <font color="#FFFFFF">&nbsp;&nbsp;</font><img src="image/navi_menu_icon.gif" width="3" height="5">
       <%if len(trim(rs("newsname")))>20 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>