logindo.asp

一个考勤评分系统

<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：[e-mail]          ''''
''''说明：需要新功能联系我      ''''
''''QQ:214297587                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-->
<link href=../css.css rel=stylesheet>
<!--#include file="conn.asp"-->
<!--#include file="MD5.asp"-->

<%
if request("action")="loginout" then  

session.abandon

response.redirect "../index.asp"
end if


%>
<%
if request("action")="adminloginin" then 
randomize()
if request("user")=""  then 
response.write "  <script>alert('有错误产生！描述如下：\n\n用户名没有填写！')</script>"
response.write "  <script>history.back()</script>"
   elseif trim(request("password"))="" then 
 response.write " <script>alert('有错误产生！描述如下：\n\n密码没有填写！')</script>"
response.write "  <script>history.back()</script>"
      elseif request("yzm")="" then 
 response.write " <script>alert('有错误产生！描述如下：\n\n验证码没有填写！')</script>"
response.write "  <script>history.back()</script>"
      else
   %>
<%
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 adminboss where username='"&formname&"'"
rs.open sql,cn,1,1
if  rs.eof  then 
 response.write " <script>alert('有错误产生！描述如下：\n\n不存在该用户！')</script>"
response.write "  <script>history.back()</script>"
else
username=rs("username")
userpass=rs("password")
qx=rs("qx")
rs.close
set rs=nothing
yzms=session("yzmm")
%>
<%
if formname<>username then
 response.write " <script>alert('有错误产生！描述如下：\n\n错误的用户名！')</script>"
response.write "  <script>history.back()</script>"

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

       elseif  int(request.form("yzm"))<>int(yzms) then
 response.write " <script>alert('有错误产生！描述如下：\n\n验证码错误！')</script>"
response.write "  <script>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")=rs("id")
session("king")=rs("king")


response.redirect "../index.asp"
end if
end if

%>








<%end if
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>请手动刷新页面！"

end if


%>
<%
if request("action")="loginin" then 
randomize()
if trim(request("user"))=""  then 
 response.write " <script>alert('有错误产生！描述如下：\n\n用户名没有填写！')</script>"
response.write "  <script>history.back()</script>"
   elseif TRIM(request("password"))="" then 
 response.write " <script>alert('有错误产生！描述如下：\n\n密码没有填写！')</script>"
response.write "  <script>history.back()</script>"
      elseif trim(request("yzm"))="" then 
     response.write " <script>alert('有错误产生！描述如下：\n\n验证码没有填写！')</script>"
response.write "  <script>history.back()</script>"
      else
   %>
<%
formname=replace(trim(request.form("user")),"'","")
 sql="select * from menberlogin "
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 scunews where username='"&formname&"'"
rs.open sql,cn,1,1
if  rs.eof  then 
 response.write " <script>alert('有错误产生！描述如下：\n\n不存在该用户！')</script>"
response.write "  <script>history.back()</script>"
call ml()
else
username=rs("username")
userpass=rs("password")
id=rs("id")



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

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

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

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

session("qx")=5
session("name")=username
session("lock")=rs("lock")
session("id")=id
end if
end if
rs.close
set rs=nothing



response.redirect "../index.asp" 
%>








<%end if
end if
%>