indexnews.asp

是一套很好的数码购物系统

<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>
<%
if newsmove<>1 then 
sqlprom = "select top 30 * from News where online=true and now()<OffDate and now()>=PubDate and NewsClass<>'' order by uup desc,Pubdate desc"
else
sqlprom = "select top 7 * from News where online=true and now()<OffDate and now()>=PubDate and NewsClass<>'' order by uup desc,Pubdate desc"
end if
set rsnews=Server.CreateObject("ADODB.RecordSet")
rsnews.open sqlprom,conn,1,1
if rsnews.eof and rsnews.bof then
response.write "<center>暂时没有新闻公告</center>"
else
if newsmove<>1 then
response.write "<marquee behavior='scroll' direction='up' height=105 scrollamount=1 scrolldelay=100  id=info onMouseOver=info.stop() onMouseOut=info.start() >"
end if
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")&"'>"
'使用下面这一行的效果更漂亮一些，但有用户反映有时IE会出错并自动关闭。估计是alt中调用的onMouseOver与字幕中的onMouseOver有冲突。
'response.write "<span style='line-height=130%'>&nbsp;&nbsp;<a href='news.asp?NewsId="&Cstr(rsnews("NewsId"))&"' alt='<table border=0><tr><td><b>文章主题</b>："&rsnews("NewsTitle")&"<br><b>发布时间</b>："&rsnews("PubDate")&"<br><b>浏览次数</b>："&rsnews("cktimes")&"</td></tr></table>'>"
Response.write "·"&lleft(rsnews("NewsTitle"),42)
response.write "</a></span><br>"
rsnews.movenext
loop
if newsmove<>1 then response.write "</marquee>"
%>
</td></tr>
<tr><td align=right><a href=news_home.asp target=_top title='浏览全部新闻文章'>more...</a>&nbsp;&nbsp;&nbsp;</td></tr>
<%
end if
rsnews.close
set rsnews=nothing
%>
</table>