admlogin.asp

一个用asp实现简单的小型OA系统

<!--#include file="conn.asp" -->
<!--#include file="char.asp"-->
<!--#include file="inpour.asp"-->
<!--#include file="md5.asp"-->
      <%'判断个人用户的session值
If session("logOk") = True Then
    response.Redirect("main.asp")
Else
    session("logOk") = False
End If

Dim rs, sql, action
Dim username, password, validate

action = Trim(request.QueryString("action"))
Select Case action
    Case "checkLoginUser"
        Call checkLoginUser()
    Case ""
        Call showLoginForm()
End Select

Function checkLoginUser() '检验用户帐户密码
    username = Trim(request.Form("username"))
    password = md5(Trim(request.Form("password")))
    validate = Trim(request.Form("validate")) '接受验证码
    If (validate <> session("GetCode")) Then
        response.Write "<script>alert('验证码错误！');window.location.href='admlogin.asp';</script>"
        Exit Function
    End If

    username = Checkstr(username)
    password = Checkstr(password)

    '从数据库教师信息表中查询用户名和密码
    sql = "SELECT * FROM [user] WHERE [username]='"&username&"' AND [password]='"&password&"'"
    Set rs = conn.Execute(sql)
    If Not rs.EOF Then '验证成功后设置session，并且转到相应的页面
        session("logOk") = True
        session("userid") = rs("userid")
        session("username") = username
        session("realname") = rs("realname")
        userid = rs("userid")
        rs.Close
        Set rs = Nothing
        conn.Close
        Set conn = Nothing
        response.Redirect("main.asp")
    Else
        response.Write("您输入的帐户不存在或密码不正确，请<a href='javascript:history.go(-1)'>重新登陆</a>")
        session("logOk") = False
    End If
    conn.Close
End Function

Function showLoginForm() '显示登录界面，当帐户或密码为空的时候弹出提示框。

%>
      <script language="JavaScript" type="text/JavaScript">
	function checkForm(theForm){
		if(theForm.username.value==""){alert(" 用户名称不能为空！");theForm.username.focus();return false;}
		if(theForm.password.value==""){alert(" 用户密码不能为空！");theForm.password.focus();return false;}
		if(theForm.validate.value==""){alert(" 验证码不能为空！");theForm.validate.focus();return false;}
		return true;
	}
	</script>
	<link href="sty.css" rel="stylesheet" type="text/css" />
	
      <title>天祥药业销售信息管理系统</title><form id="form1" name="form1" method="post" action="?action=checkLoginUser">
        <table width="400" border="0" align="center" cellpadding="1" cellspacing="5" bgcolor="#E2F4FC">
          <tr>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td width="107" align="right"><font color="#000000">登录帐户：</font></td>
            <td><input name="username" type="text" id="username" size="20" onMouseOver="this.style.background='#3CB5EC'" onMouseOut="this.style.background='#FFFFFF'"/></td>
          </tr>
          <tr>
            <td align="right"><font color="#000000">用户密码：</font></td>
            <td><input name="password" type="password" id="password" size="20" onMouseOver="this.style.background='#3CB5EC'" onMouseOut="this.style.background='#FFFFFF'" /></td>
          </tr>
          <tr>
            <td align="right"><font color="#000000">验 证 码：</font></td>
            <td><input name="validate" type="text" id="validate" size="10" onMouseOver="this.style.background='#3CB5EC'" onMouseOut="this.style.background='#FFFFFF'"/>
              <a href="admlogin.asp"><img src="num.asp?id=<%=rnd%>" alt="点击刷新图片" height="13" border="0" /></a></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td><input type="submit" name="Submit" value="登录"onclick="return checkForm(this.form)"/>
              &nbsp;
              <input type="reset" name="Submit2" value="取消" /></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td align="right">&nbsp;</td>
          </tr>
        </table>
      </form>
      <%
End Function

%>