| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 536 人关注过本帖
标题:[求助]条件语句为何不起作用,究竟是什么原因??
只看楼主 加入收藏
林中泉水
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-12-17
收藏
 问题点数:0 回复次数:3 
[求助]条件语句为何不起作用,究竟是什么原因??
我所编写的考勤登录系统,想用recordYear、recordMonth、recordDay=、Iswork的值限制重复登录,用条件语句提取数据表中的值 If Iswork=0 则,登录并记录考勤Iswork=1,否则,显示你已经登录。但条件语句似乎不起作用,同一用户总是能重复登录,想请各位前辈高手看看。代码如下:
<%
if Request.Form("action")="true" then
   username=trim(Request.Form("username"))      '登录用户名
  password=trim(Request.Form("password"))      '登录密码
  otherpwd = Trim(Request.form("otherpwd"))    '附加码
  reotherpwd = Trim(Request.form("reotherpwd"))'生成的附加码
  
  legalTag=checkenter()

  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  Then
        Sql="SELECT * FROM kaoqing_table WHERE user='"&username&"' and recordYear=Year(Now()) and recordMonth=Month(Now()) and recordDay=Day(Now())"  '提取表中本年本月本日的Iswork值。
        If Iswork=0 Then '如果Iswork=0,则登录并记录登录年月日及时间
         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
         else '否则说明你已登录过了
         Response.write "你已登录过了"
         End If
         End If

         else
        errmsg="<font color=#FF0000><b>用户名或者用户密码错误,请重新输入!</b></font>"
      end if
    else
      errmsg="<font color=#FF0000><b>附加码输入错误,请重新输入!</b></font>"
    end if
  else
    errmsg="<font color=#FF0000><b>用户名输入有误,请重新输入!</b></font>"
  end if
end if
%>
搜索更多相关主题的帖子: 语句 条件 
2007-12-21 17:23
永夜的极光
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2721
专家分:1
注 册:2007-10-9
收藏
得分:0 
判断isWork这个值,应该是在打开记录集之后,而且是判断rs("isWork")

从BFS(Breadth First Study)到DFS(Depth First Study)
2007-12-21 18:11
chzh22
Rank: 1
等 级:新手上路
帖 子:129
专家分:0
注 册:2006-6-3
收藏
得分:0 
用cookies存储用户信息试试

爱我的人教我温柔;恨我的人教我谨慎;对我冷漠的人教我自立.
2007-12-21 18:52
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
Iswork=0
这个Iswork在哪里赋值了?
2007-12-21 19:56
快速回复:[求助]条件语句为何不起作用,究竟是什么原因??
数据加载中...
 
   



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

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