<%
y=2009'要查询的年份
m=7'要查询的月份
d=Day(DateSerial(y,m+1,0))'计算m月的天数
date1=y&"-"&m&"-1"'生成第一天
for i=1 to d'循环天数
dim n : n = conn.execute("select count(*) from table2 where dateDiff(d,sj,'"&date1&"')=0 and [name]='张三'")(0)'查询某一天是否有数据
if n=0 then
response.write date1&"旷工"
else
resporesponse.write date1&"正常"
end if
date1=dateadd("d",1,date1)'日期加一天
next
%>