| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付赛孚耐:软件保护加密专家
身份认证令牌USB KEY   
共有 348 人关注过本帖
标题:[求助]关于考勤登录问题,究竟是什么原因??
收藏  订阅  推荐  打印 
林中泉水
Rank: 1
等级:新手上路
帖子:15
积分:286
注册:2007-12-17
[求助]关于考勤登录问题,究竟是什么原因??

我作的一个考勤登录网页,原意是检查字段Iswork=1则显示用户已登录,如果,Iswork=0则登录,并将登录时的年、月、日、时、及Iswork=1记入。但调试时,总是显示:未结束的字符串常量
/MyHome/index.asp, line 89, column 142
sql="select * from kaoqing_table where user="&Session("user")&"and recordYear=Year(Now())and recordMonth=Month(Now())and recordDay=Day(Now())

想请教各们高手,究竟是什么原因。详细代码如下:
<%
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        
        sql="select * from kaoqing_table where  user="&Session("user")&"and recordYear=Year(Now())and recordMonth=Month(Now())and recordDay=Day(Now())
        set rs1=Conn.execute(Sql)
        If not rs1.Eof then
        sql="Update kaoqing_table Set Iswork=1 Where id="&CInt(rs1("id"))
        Else
        Response 你已经登录
        End If
        If Session("level")=2  Then
        End If  
         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
         End If
搜索更多相关主题的帖子: 考勤  Iswork  Now  Form  
2007-12-20 16:51
madpbpl
Rank: 6Rank: 6
等级:金牌会员
威望:7
帖子:2560
积分:27775
注册:2007-4-5

sql="select * from kaoqing_table where user="&Session("user")&" and recordYear=Year(Now()) and recordMonth=Month(Now()) and recordDay=Day(Now())"
2007-12-20 17:14
林中泉水
Rank: 1
等级:新手上路
帖子:15
积分:286
注册:2007-12-17
回复 2# 的帖子

谢谢楼上指导,加了后边的引号也不行啊。
2007-12-20 20:44
威龙嘉少
Rank: 3Rank: 3
等级:中级会员
帖子:205
积分:2210
注册:2007-9-24

sql="select * from kaoqing_table where user="&Session("user")&" and recordYear="&Year(Now()) &" and recordMonth=&"Month(Now()) &" and recordDay="&Day(Now())
2007-12-20 21:44
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.058579 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved