<% set conn=opendb("oabusy","conn","accessdsn") Set mrs= Server.CreateObject("ADODB.Recordset") strSql="select top 1 * from jhtdata where type=0 order by id desc" mrs.open strSql,Conn,1,1 if mrs.recordcount<>0 then response.write "" end if set rs=server.createobject("adodb.recordset") '取得当前日期 mydate=date '取得当前月 mymonth=month(now()) if request("mymonth")<>"" then mymonth=cint(request("mymonth")) '取得当前年 myyear=year(now()) if request("myyear")<>"" then myyear=cint(request("myyear")) myday=day(now()) if request("myday")<>"" then myday=cint(request("myday")) myday=myyear&"-"&mymonth&"-"&myday sql="select * from workrep where username=" & sqlstr(request.cookies("oabusyname")) & " and recdate=" & "#" & myday & "#" rs.open sql,conn,1,3 if rs.recordcount<>0 then response.write "" end if %>