shengri.asp

asp构建网站bbs.采用B/S架构

<% dim rs
dim age
dim birthuser
dim birthNum,birthday
dim title
birthNum=0
set rs=myconn.execute("select name,burn from [user] where burn<>'不告诉你' order by userid") 
do while not rs.eof
if isdate(rs(1)) then
if month(rs(1))=month(Now()) and day(rs(1))=day(Now()) then
age=datediff("yyyy",rs(1),Now())
birthday=birthday &" <img src=pic/gift.gif border=0> "&"祝"&rs(0)&""&age&"岁生日快乐    "
 birthNum=birthNum+1
 title="今天有"&amp;birthnum&amp;"个朋友生日"
 end if
 end if
 rs.movenext
   loop
     rs.close
      set rs=nothing
      if birthday="" then 
      birthday="今天没有朋友过生日..."
      title="今天没有朋友过生日"
      end if
      response.write"<table style='BORDER-COLLAPSE: collapse;MARGIN: 3px' width=98% border=
      1 align=center cellspacing=0 bordercolor="&c1&" height=28><tr bgcolor="&c2&"> <td background=pic/"&sp&"3.gif align=center width=40 height=28>
      <img src=pic/nav.gif align=absmiddle></td><td background=pic/"&sp&"3.gif height=28>
      <P style='MARGIN: 5px;'><b><font color=#FFFFFF>"&title&"</font></b></p></td></tr><tr>
      <td align=center width=40 height=40><img src=pic/ao.gif></td><td valign=center>"
      response.write""&birthday&"</TD></TR></table>"</body>
%>