| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 542 人关注过本帖
标题:分享与讨论限时登录问题
只看楼主 加入收藏
林中泉水
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-12-17
收藏
 问题点数:0 回复次数:0 
分享与讨论限时登录问题
我作了一个考勤登录网页,用时间和登录记录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
搜索更多相关主题的帖子: Now Set 网页 
2008-01-09 15:30
快速回复:分享与讨论限时登录问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015392 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved