ASP取某一时段热门文章代码

sub top99listr(num,tnum)
yy=year(now)
mm=month(now)
da=day(now)
if da>10 then
dd=da-10
else
dd=1
end if
sqlc1="select top "&num&" * from ca_xw where day(xw_time)>"&dd&" and month(xw_time)="&mm&" order by xw_click desc"
set rsc1=server.createobject("adodb.recordset")
rsc1.open sqlc1,conn,1,1
if rsc1.eof and rsc1.bof then
Response.Write "暂无新闻"
else
do while not rsc1.eof
%>

<%
rsc1.movenext
loop
end if
rsc1.close
set rsc1=nothing
end sub


上一篇: ASP首页调用JS+FLASH+XML图片时候出现乱码,解决方法!
下一篇: 最简单的ASP验证码程序
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: 1422
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 300 字 | UBB代码 开启 | [img]标签 关闭