a_news.asp

网上购物系统 asp+sql server 2005

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<table cellspacing=0 cellpadding=0 border=0  height=155 width=289 background=images/news/news<%=news_skin%>.gif>
<tr><td height=25></td></tr>
<tr><td valign=top height=105>
<%
sqlprom = "select top 30 * from s_news where online=1 and (getdate()<OffDate or OffDate is null) and getdate()>=PubDate and NewsClass<>'' order by uup desc,Pubdate desc"
set rsnews=Server.CreateObject("ADODB.RecordSet")
rsnews.open sqlprom,conn,1,1
if rsnews.eof and rsnews.bof then
	response.write "<center>暂时没有新闻公告</center>"
else
	response.write "<marquee behavior='scroll' direction='up' height=105 scrollamount=1 scrolldelay=100  id=info onMouseOver=info.stop() onMouseOut=info.start() >"
	Do while Not rsnews.eof
		response.write "<span style='line-height=130%'>&nbsp;&nbsp;<a href='news.asp?NewsId="&Cstr(rsnews("NewsId"))&"' title='"&rsnews("NewsTitle")&"'>"
		Response.write "·"&lleft(rsnews("NewsTitle"),42)
		response.write "</a></span><br>"
		rsnews.movenext
	loop
	response.write "</marquee>"
%>
</td></tr>
<tr><td align=right><a href=allnews.asp?class=1 target=_top title='浏览全部新闻文章'>more...</a>&nbsp;&nbsp;&nbsp;</td></tr>
<%
end if
rsnews.close
set rsnews=nothing
%>
</table>