chklogin.asp

我们的课程设计是一个工资管理系统

<!--#include file="conn.asp" -->
<!--#include file="md5.asp" -->
<% 
dim adminname,adminpass,verify
adminname=request.form("name")
adminpass=request.form("password")
verify=Trim(Request.Form("verify"))
call chkuser()
sql = " select * from 员工信息 where 员工编号='"&adminname&"' "
set rs = Server.CreateObject("adodb.recordset")
rs.open sql,conn,0,1
if rs.eof and rs.bof then
Response.Write("无此用户名")
Response.write("<meta HTTP-EQUIV=REFRESH CONTENT='2; URL=admin.asp'>")
else
if (rs("密码")=adminpass and rs("权限")="1|1") then
if verify=session("verifycode") then
call success()
else
Response.Write("校验码不正确。")
Response.write("<meta HTTP-EQUIV=REFRESH CONTENT='2; URL=admin.asp'>")
end if
else
Response.Write("密码不正确。")
Response.write("<meta HTTP-EQUIV=REFRESH CONTENT='2; URL=admin.asp'>")
end if
end if

sub chkuser()
if adminname="" or adminpass="" then
Response.Write("请输入完整信息。")
Response.write("<meta HTTP-EQUIV=REFRESH CONTENT='2; URL=admin.asp'>")
end if
end sub
sub success()
session("admin")=true
session("flag") = rs("权限")
Response.Redirect("admin_index.asp")
end sub
 %>