会员生日提醒代码!出了点错……
表:user
列:name,userinfo
userinfo:
email|homepage|1983-09-13|qq
<!--#include file="conn.asp"-->
<%
dim ym,yd,nm,nd
set rs=conn.execute("select name,userinfo from [user] where del=0")
if rs.eof then
rs.movenext
else
userinfo=rs("userinfo")
userinfo=split(userinfo,"|")
ym=month("userinfo(2)")
yd=day("userinfo(2)")
nm=month("now")
nd=day("now")
if ym=nm and yd=nd then
response.write"今天是"&name&"的生日"
else
response.write"今天没有人生日"
rs.movenext
end if
end if
rs.close
set rs=nothing
%>
參考答案:我改给你看
<!--#include file="conn.asp"-->
<%
dim ym,yd,nm,nd
set rs=conn.execute("select name,userinfo from [user] where del=0")
if not rs.eof then
do while not rs.eof
userinfo=rs("userinfo")
userinfo=split(userinfo,"|")
ym=month(userinfo(2))
yd=day(userinfo(2))
nm=month(now())
nd=day(now())
if ym=nm and yd=nd then
response.write"今天是"&rs("name")&"的生日"
rs.movenext
loop
else
response.write"今天没有人生日"
end if
end if
rs.close
set rs=nothing
%>