<!--#Include File="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
XML.WriteOut "<h2>密码修改</h2>"
XML.WriteOut "<ul><li>"
If Request("ToDo")="ToEidt" Then  
	Receive_B=Request("Send_B")
	If Receive_B="" Then
			ErrorMessage=XML.Ascii("请输入密码。") '如果没有错误，则错误信息为空
			ErrorMessage="" '如果没有错误，则错误信息为空
	End If	
If ErrorMessage="" Then
	XML.StrSql="Update SQ_User set UserPassword='" & XML.Md5(Receive_B,16,0) & "' where UserName=" & "'" & Session("OnLineName") & "'" 
	XML.MdbDo
	Response.Redirect XML.WapPath & "Success.asp?ToDo=EditPwdOk"
Else
	XML.WriteRow ErrorMessage
End If
End If


'接收显示用户资料

XML.StrSql="SELECT * FROM SQ_User where UserName=" & "'" & Session("OnlineName") & "'" 
XML.MdbDo

'以下为文件正文。
XML.WriteOut "<form method='post' action='" & XML.ThisFileName & "'>"
XML.WriteRow "帐号:" & XML.MdbShow("UserName")

XML.WriteOut "密码:"
XML.WriteOut "<input type='text' name='Send_B' value='" & XML.MdbShow("") & "'/>"
XML.WriteRow "<input type='hidden' name='ToDo' value='ToEidt'/>"
XML.WriteOut "<input type='submit' value='修改'/>"
XML.WriteOut "</form>"
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","UserAdmin.asp","管理中心")
XML.WriteRow XML.ImgA("",XML.WapPath,"返回首页")
%>
<!--#Include File="WapConfig/WapFooter.asp"--> 
