<!-----生日代码开始----->
&nbsp;&nbsp;&nbsp;<img loaded="no" src="images/minus.gif">&nbsp;每日贴士:<font color="#FF0000"> <%
rs.Open "select username,birthday from [user]",Conn,1,3
while not rs.EOF
birthday=mid(rs("birthday"),9,2)
birthmonth=mid(rs("birthday"),6,2)
days=empty
months=empty
select case birthday
case"01"
days=01
case"02"
days=02
case"03"
days=03
case"04"
days=04
case"05"
days=05
case"06"
days=06
case"07"
days=07
case"08"
days=08
case"09"
days=09
case"10"
days=10
case"11"
days=11
case"12"
days=12
case"13"
days=13
case"14"
days=14
case"15"
days=15
case"16"
days=16
case"17"
days=17
case"18"
days=18
case"19"
days=19
case"20"
days=20
case"21"
days=21
case"22"
days=22
case"23"
days=23
case"24"
days=24
case"25"
days=25
case"26"
days=26
case"27"
days=27
case"28"
days=28
case"29"
days=29
case"30"
days=30
case"31"
days=31
end select
select case birthmonth
case"01"
months=01
case"02"
months=02
case"03"
months=03
case"04"
months=04
case"05"
months=05
case"06"
months=06
case"07"
months=07
case"08"
months=08
case"09"
months=09
case"10"
months=10
case"11"
months=11
case"12"
months=12
end select
if day(date)=days and month(date)=months then
shengri="guo"
name=rs("username")
Response.Write "HI!"
Response.Write ""&name&" "
Response.Write ",今天生日吧？"
end if
rs.MoveNext
wend
rs.Close
if shengri="guo" then
Response.Write "我们大家祝你生日快乐^O^!</font>"
else
call love()
end if
%></font>
<!-----生日代码结束----->