burn.asp

来自「asp构建网站bbs.采用B/S架构」· ASP 代码 · 共 26 行

<%
dim i ,burnname
set burn=server.createobject("adodb.recordset")
   sql="select name,burn from [user] "
   burn.open sql,myconn,3,1
    i=0 
   burnname=""
do while not burn.eof
sr=burn("burn")
name=burn("name")
if isdate(sr) then
burn1=split(sr,"-")
nowt=split(date,"-")
bu=burn1(1)+burn1(2)
nowtime=nowt(1)+nowt(2)
if bu=nowtime then 
i=i+1
burnname=burnname&"&nbsp;&nbsp;&nbsp;"&name
end if 
end if 
burn.movenext
loop
burn.close
set burn=nothing
response.write"<img src=pic/happy.gif border=0 align=absmiddle><font color="&c1&">今天有<b>  "&i&"  </b>位会员过生日 <marquee onmouseover='this.stop()' onmouseout='this.start()' scrollAmount='3' direction='left' width='30%' height='10'><font color=red>"&burnname&"</font></marquee>"
%>