我作了一个考勤登录网页,用时间和登录记录Iswork字段作检查函数来检查一天中是否登录,已登录则不能重复登录,未登录则可以登录。代码如下，先发出来与大家一起分享。也请教大家一个问题，现在我写的代码一天只能登一次，如果要把上下午和晚上分开，又该如何办呢？
Function checksysIswork() '用户登录检查
    Set rs=Server.CreateObject("adodb.recordset")
    Sql="SELECT * FROM kaoqing_table WHERE user='"&username&"' and recordYear="&Year(Now())&" and recordMonth="&Month(Now())&" and recordDay="&Day(Now())&""
    rs.Open sql,conn,1,3
    if rs.eof then
        checksysIswork=true
        else
         if Iswork=1 then
           checksysIswork=true
        else
           checksysIswork=false

        end if
    End if
    rs.close
    conn.close
End Function
中间省略
下面是登录并记录
If legalTag=TRUE then '如果没有非法输入，则进行用户验证
    if otherpwd = reotherpwd then  '附加码比较
      legalUserTag=checksysUser()  '系统用户验证
      if legalUserTag=true then
         If Session("level")=1 and Session("admin")="True"  Then
            Response.Redirect("manage.asp")
            Response.End
         End If        
        If Session("level")=2  Then
        Response.Redirect("main.asp")
        Response.End
        End If
        If Session("level")=3 and checksysIswork="True" Then
         set rs=server.createobject("adodb.recordset")
         insertsql="select * from kaoqing_table"
         rs.open insertsql,db,1,3
         rs.addnew
  
         rs("user")=username
         rs("recordYear")=Year(Now())
         rs("recordMonth")=Month(Now())
         rs("recordDay")=Day(Now())
         rs("recordTime")=Time
         rs("Iswork")=1
         rs("note")=note
         
         rs.update
   
         rs.close
        set rs=nothing
       Response.Redirect("normal.asp")
         Response.End