分享与讨论限时登录问题
我作了一个考勤登录网页,用时间和登录记录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