<%
dim birthday,bm,bd,am,ad,ay,by,n
set rs1=server.createobject("adodb.recordset")
sql1 = "select * from [user] order by left(userinfo,10) desc"
rs1.open sql1,conn,1,1
response.write"最近30天过生日的同学<br>"
do while not rs1.eof
name=rs1("name")
birthday=left(userinfo,10)
if 0<DateDiff("d",now(),birthday)<30 then
response.write(name&"<br>")
else
response.write"最近30天没有同学过生日<br>"
end if
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
运行结果：
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'now()'
为什么？呢？谁能教我？
參考答案:n=now
DateDiff("d",n,birthday)
