logindo.asp

通用考勤系统

<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：[e-mail]          ''''
''''说明：需要新功能联系我      ''''
''''QQ:2643148                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<link href=left.css rel=stylesheet>
<!--#include file="conn.asp"-->
<!--#include file="autoinit.asp"-->
<!--#include file="MD5.asp"-->
<!--#include file="../webinfo.asp"-->
<%
if request("action")="loginout" then  
session.abandon
response.redirect "../index.asp"
end if


if request("action")="loginin" then 
randomize()

formname=replace(trim(request.form("user")),"'","")
 sql="select * from menberlogin "
 rs1.open sql,cn,3,3
 rs1.addnew
 rs1("pname")=formname
 rs1("ip")=Request.ServerVariables("Remote_Addr")
 rs1("time")=now()
 rs1.update
 rs1.close
 set rs1=nothing
sqlo="select * from ct_sql where username='"&formname&"'"
 rs2.open sqlo,cn,3,3
if  rs2.eof  then 
 response.write "<script>alert('有错误产生！描述如下：\n\n不存在该用户！');history.back();</script>"
else
 username=rs2("username")
 userpass=rs2("password")
 id=rs2("id")
 ptype=rs2("type")
 realname=rs2("realname")
 ltype=rs2("ltype")
 qdd=rs2("todayqd")
 todayinitdate=rs2("todayinitdate")
 plevel=rs2("level")
 qx=rs2("qx")
 nowdate=date()
 staute=datediff("d",todayinitdate,nowdate)
 staute_m=datediff("m",todayinitdate,nowdate)
 'response.write " <script>alert('staute "&staute&"');</script>"
 'response.write " <script>alert('initday "&initday&"');</script>"
 'response.write " <script>alert('staute_m "&staute_m&"');</script>"
 'response.write " <script>alert('initmonth "&initmonth&"');</script>"
 yzms=Session("VerifyCode")
if ptype=0 then
         tpname="无 组 别"
          else
   sql5="select * from type where type="&ptype
       rs3.open sql5,cn,3,3
       tpname=rs3("typename")
       rs3.close
   set rs3=nothing
end if
 
    if (formname<>username) then
         response.write " <script>alert('有错误产生！描述如下：\n\n错误的用户名！');history.back();</script>"
    elseif (MD5(request.form("password"))<>userpass) then
          response.write " <script>alert('有错误产生！描述如下：\n\n密码错误！');history.back();</script>"
    elseif  (int(request.form("yzm"))<>int(yzms)) then
          response.write "<script>alert('有错误产生！描述如下：\n\n验证码错误！');history.back();</script>"
    elseif  (request.form("user")=username) and (int(request.form("yzm"))=int(yzms) ) and (MD5(request.form("password"))=userpass) then

     session("qx")=qx
     session("name")=username
     session("ltype")=ltype
     session("realname")=realname
     session("id")=id
     session("ptype")=ptype
     session("ptypename")=tpname
rs2.close
 
 
 if (staute>=1 and initday=0) then 
                              ''''''开始初始化
  call zxnocomornoqd    ''初始化昨天已正常注销 但是没有完成签到，或者没有签到的人员
  call com               ''初始化昨天已完成签到人员
  call nozx                 ''处理未注销人员 [带有惩罚性质]<br>"
  call allinit               ''结算并且初始化
 end if
end if
    

 if (staute_m>=1 and  initmonth=0) then
   call minit    '开始月初始化
 end if
end if

response.write " <script>location.href='../qd.asp';</script>"
end if 

if request("action")="loginout" then  
session.abandon
response.redirect "../index.asp"
end if


if request("action")="adminloginout" then  
session.abandon
response.write "您已经安全退出！<br>请手动<a href=# onclick='window.reload' target=main>刷新页面！</a>"

end if



if request("action")="adminloginin" then 
randomize()

formname=request.form("user")
 sql="select * from adminlogin"
rs.open sql,cn,3,3
rs.addnew
rs("pname")=formname
rs("ip")=Request.ServerVariables("Remote_Addr")
rs("time")=now()
rs.update
rs.close
sql="select * from ct_adminboss where username='"&formname&"'"
rs.open sql,cn,1,1
if  rs.eof  then 
 response.write " <script>alert('有错误产生！描述如下：\n\n不存在该用户！');history.back();</script>"

else
aid=rs("id")
k=rs("king")
username=rs("username")
userpass=rs("password")
qx=rs("qx")
pking=rs("king")
todayinitdate=rs("todayinitdate")
nowdate=date()
rs.close
set rs=nothing
staute_d=datediff("d",todayinitdate,nowdate)
staute_m=datediff("m",todayinitdate,nowdate)

 'response.write " <script>alert('staute_d "&staute_d&"');</script>"
 'response.write " <script>alert('initday "&initday&"');</script>"
 'response.write " <script>alert('staute_m "&staute_m&"');</script>"

yzms=Session("VerifyCode")

if formname<>username then
 response.write " <script>alert('有错误产生！描述如下：\n\n错误的用户名！');history.back();</script>"


   elseif MD5(request.form("password"))<>userpass then
 response.write " <script>alert('有错误产生！描述如下：\n\n密码错误！');history.back();</script>"


       elseif  int(request.form("yzm"))<>int(yzms) then
 response.write " <script>alert('有错误产生！描述如下：\n\n验证码错误！');history.back();</script>"


   elseif  (request.form("user")=username) and (int(request.form("yzm"))=int(yzms) ) and (MD5(request.form("password"))=userpass) then

session("qx")=qx
session("name")=username
session("id")=aid

 if (staute_d>=1 and initday=0) then 
           ''''''开始初始化
   call zxnocomornoqd   
                 'response.write "''初始化昨天已正常注销 但是没有完成签到，或者没有签到的人员"
   call com               
                 'response.write "''初始化昨天已完成签到人员"
   call nozx                 
                'response.write "''处理未注销人员 [带有惩罚性质]<br>"
   call allinit  
               ' response.write "结算并且初始化"
 end if

 if (staute_m>=1 and  initmonth=0) then
  call minit    '开始月初始化
 end if
response.write " <script>location.href='../manager/adminindex.asp';</script>"
end if
end if
end if
%>