<!--#include file="conn.asp"-->
<%
'检查来源,拒绝非法入侵者
Call checkPrePage()

dim name,pwd

'读取提交的数据
strName=request.form("txtName")
strPass=request.form("txtPassWord")

'检查用户权限
strSQL="select * from web_member where m_Name='" & strName &"' And m_id=" & WebUserID
rs.open strSQL,conn,3,3
if rs.eof then
	response.Redirect("error.asp?msg=对不起，此用户不存在，请重新输入！")
end if

if  trim(rs("m_PassWord"))<>strPass then
	response.Redirect("error.asp?msg=对不起，用户名和密码不正确，请重新输入！")
end if

	'合法用户，给予授权
    Session("m_UserID")=Trim(rs("id"))			'账号ID
    Session("m_LoginName")=rs("m_Name")			'账号
    Session("m_RealName")=rs("m_RealName")		'姓名
    Session("m_PassWord")=rs("m_PassWord")		'密码
    Session("m_Code")=rs("m_code")				'级别
    Session("m_Email")=rs("m_email")
    Session("m_Address")=rs("m_address")
    Session("m_Tel")=rs("m_tel")
	
	'记录登录时间,次数
	rs("m_landtime")=now()
	rs("m_landcount")=rs("m_landcount") + 1
	rs.Update
	rs.close
	set rs=nothing
	
	'添加会员日记
	LogIn Session("m_UserID"),"登录网站"
	
	response.Redirect(".")
	
%>


