<!--#Include File="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
If Request("ToDo")="ToEidt" Then  
	Receive_A=Request("Send_A") '
	Receive_B=Request("Send_B")
	Receive_C=XML.DelSpecialMark(Request("Send_C")) '内容
	Receive_D=XML.DelSpecialMark(Request("Send_D"))
	Receive_E=XML.DelSpecialMark(Request("Send_E"))
	Receive_F=XML.DelSpecialMark(Request("Send_F"))
	Receive_G=XML.DelSpecialMark(Request("Send_G"))
	If Receive_A="" Then
			ErrorMessage=XML.Ascii("请输入妮称。")
		ElseIf Receive_B="" Then
			ErrorMessage=XML.Ascii("请输入密码。") '如果没有错误，则错误信息为空
		ElseIf Receive_C="" Then
			ErrorMessage=XML.Ascii("请输入电话。") '如果没有错误，则错误信息为空
		ElseIf Receive_G="" Then
			ErrorMessage=XML.Ascii("请输入WAP网站。") '如果没有错误，则错误信息为空
		Else
			ErrorMessage="" '如果没有错误，则错误信息为空
	End If	
If ErrorMessage="" Then
	XML.StrSql="update Members set M_password='"&receive_b&"',M_sex='"&receive_c&"',M_email='"&receive_d&"',M_icq='"&receive_e&"',M_MsN='"&receive_f&"',M_Country='"&receive_g&"' where M_Name=" & "'" & Session("OnLineName") & "'" 
	XML.MdbUpdate
	Response.Redirect XML.WapPath & "Success.asp?ToDo=EditProfileOk"
End If
End If
'接收修改企业资料的关键标示

XML.StrSql="SELECT M_Name,M_Password,M_sex,M_Email,M_ICQ,M_MSN,M_Country FROM Members where M_Name=" & "'" & Session("OnlineName") & "'" 
XML.MdbDo

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

'XML.WriteRow "<input type='text' name='Send_A' value='" & XML.MdbShow("M_Name") & "'/>"
XML.WriteOut "密码:"
XML.WriteRow "<input type='text' name='Send_B' value='" & XML.MdbShow("M_Password") & "'/>"
XML.WriteOut "邮箱:"
XML.WriteRow "<input type='text' name='Send_D' value='" & XML.MdbShow("M_Email") & "'/>"
XML.WriteOut "MSN:"
XML.WriteRow "<input type='text' name='Send_F' value='" & XML.MdbShow("M_MSN") & "'/>"
XML.WriteOut "来自:"
XML.WriteRow "<input type='text' name='Send_G' value='" & XML.MdbShow("M_Country") & "'/>"
XML.WriteOut "ＱＱ:"
XML.WriteRow "<input type='text' name='Send_E' value='" & XML.MdbShow("M_ICQ") & "'/>"
XML.WriteOut "性别:"
XML.WriteOut "<select name='Send_C' size='1' value='" & XML.MdbShow("M_Name") & "'>"
XML.WriteOut "<option value='1'>先生</option>"
XML.WriteOut "<option value='0'>小姐</option>"
XML.WriteRow "</select>"
XML.WriteOut "<input type='hidden' name='ToDo' value='ToEidt'/>"
XML.WriteOut "<input type='submit' value='修改'/>"
XML.WriteOut "</form>"
'以下为返回链接等信息。
XML.WriteRow XML.ImgA("","UserAdmin.asp","管理中心")
XML.WriteRow XML.ImgA("",XML.WapPath,"返回首页")
%>
<!--#Include File="WapConfig/WapFooter.asp"--> 
