<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'注销用户身份。
If Request("ToDo")="Exit" Then 
Session("OnLineName")=""
Response.Redirect XML.WapPath & "Index.asp"
End If
'接收用户名和密码。
Dim Name : Dim Pwd : Dim ErrorMessage
Name=XML.RequestText("Name") :If Name<>"" Then Session("LoginName")=Name 
Pwd=XML.RequestText("pwd") :If Pwd<>"" Then Session("LoginPwd")=Pwd
XML.StrSql="SELECT * FROM Members where M_Name='" & Session("LoginName") & "'"
XML.MdbDo
If XML.RecordCount=0 Then
	XML.WriteRow "用户名错误!该用户不存在！"
ElseIf Session("LoginPwd")<>XML.MdbShow("M_Password") Then
	XML.WriteRow "密码错误!请输入正确密码！"
Else
		XML.WriteOut "登陆成功！<br/>" 
		Session("OnlineName")=Session("LoginName")
		XML.WriteRow XML.ImgA("","UserAdmin.asp","个人中心")	
End If

'以下为返回链接等信息。
XML.WriteRow XML.ImgA("","Index.asp","进入主页")
XML.WriteRow XML.ImgA("","Login.asp?ToDo=ReLogin","重新登陆")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"-->
 
