<!--#include file="conn.asp"-->
<!--#include file="common/md5.asp"-->
<%
dim name,pwd

'读取提交的数据
strName=GetFormVariable("name")
strPass=GetFormVariable("pwd")

'检查用户权限
strSQL="select * from web_admin where LoginName='" & strName &"' And m_id=" & WebUserID			'查看对应网站下的管理员
rs.open strSQL,conn,1,1
strPass=md5(strPass)
if rs.eof then
	ShowMsg("对不起，此用户不存在，请重新输入！")
end if

if  trim(rs("PassWord"))<>strPass then
	ShowMsg("对不起，用户名和密码不正确，请重新输入！")
end if

	'合法用户，给予授权
    Session("LoginName")=rs("LoginName")		'账号
    Session("RealName")=rs("RealName")			'姓名
    Session("PassWord")=rs("PassWord")			'密码
    Session("AdminLimit")=rs("Limit"):Session("UserFolder")=WebUserName
	strID=rs("ID")
	
	'记录登录时间
	'strTime=now()
	'rs.close
	'set rs=nothing
	
	'填写登录日期
	'strSQL="Insert Into AdminLog(Admin_ID,OnTime,IP,Event) values(" & strID & ", '" & strTime & "','" & request.ServerVariables("REMOTE_ADDR") & "', '登陆后台')"
	'conn.execute strSQL,0,1
	conn.close
	set conn=nothing
	response.Redirect("index.asp")
%>
