admin_chklogin.asp

来自「学校成绩查询系统是一个非常好的软件请大家试试」· ASP 代码 · 共 37 行

<!--#include file="dataconn.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
	dim mSql,rs
	dim mUserName,mPassword
   	mUserName=Trim(Request.Form("txtUserName"))
	mgetcode=cstr(Trim(Request.Form("txtgetcode")))
	mPassword=md5(Trim(Request.Form("txtPassword")))
    mSql="Select adminname,adminPassWord,type,logincount from admin Where adminname='" & mUserName & "'"
    set rs=conn.execute(msql)
   	if rs.bof and rs.eof then
		    response.write "<script>alert('对不起，该用户不存在！');history.back();</Script>"
            response.end			
	else
			if mPassword<>rs("adminPassWord") then
			    response.write "<script>alert('对不起，请输入正确的口令。！');history.back();</Script>"
			else
			   If mgetcode<>Cstr(Session("GetCode")) Then
			    response.write "<script>alert('对不起，验证码输入有误！');history.back();</Script>"
				else
				Session("curUserName") = mUserName
				Session("admintype") =rs("type")
                Session("master") = mUserName
				mIPInfo=request.ServerVariables("REMOTE_HOST")
				mSql="update admin set LoginCount=LoginCount+1,loginTime='"&now&"',loginIP='"&mIPInfo&"' Where adminname='" & musername &"'"
				conn.execute(mSql)
				
			  if session("admintype")="999" then 
			  Response.Redirect "Admin_Main.asp"
			  end if
			end if
			end if
			
		end if
    rs.close
	set rs=nothing
%>