<!--#include file="User_Const.asp"-->
<!--#include file="../Inc/Cl_Md5.asp"-->
<!--#include file="../inc/upiconfig.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link rel="stylesheet" type="text/css" href="../Skins/User_Style.Css">
<script language = "JavaScript" src="../Inc/Js/Admin.js"></script>
</head>
<body leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
select case request("action")
case "ShowInfo"
	User_ShowInfo
case "SaveModifyInfo"
	User_SaveModifyInfo
case else
	User_ModifyInfo
end select
footer

Sub User_ShowInfo()
Dim rsUser
Set rsUser=Cl.Execute_U("Select * From "&Db.UserTable&" Where UserID="&Clng(Cl.User_Info(4))&"")
if rsUser.Bof and rsUser.Eof then
	Response.redirect "Logout.asp"
end if
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" class="border">
	<tr Class="title"><td align="center" colspan=4>&nbsp;<b>用户信息</b></font>(<%=Cl.User_Info(5)%>)</td></tr>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户名称：</strong></TD>
		<TD> <%=Cl.User_Info(5)%></TD>
		<TD width="100" height="25" align="right"><strong>真实姓名：</strong></TD>
		<TD> <%=rsUser(Db.UserReName)%></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户性别：</strong></TD>
		<TD> <%=Cl.GetUserSex(Cl.User_Info(9))%></TD>
		<TD width="100" height="25" align="right"><strong>用户等级：</strong></TD>
		<TD> <font color=#0000ff><%=Cl.User_Info(31)%></font></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户<%=Cl.Web_Setting(28)%>：</strong></TD>
		<TD> <font color=#ff0033><b><%=Cl.User_Info(22)%></b></font> <%=Cl.Web_Setting(29)%></TD>
		<TD width="100" height="25" align="right"><strong>用户<%=Cl.Web_Setting(26)%>：</strong></TD>
		<TD> <font color=#ff0033><b><%=Cl.User_Info(23)%></b></font> <%=Cl.Web_Setting(27)%></TD>
	</TR>
<%if UserTableType = "Bbsxp" then%>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户邮箱：</strong></TD>
		<TD> <%=Cl.User_Info(8)%></TD>
		<TD width="100" height="25" align="right"><strong>用户主页：</strong></TD>
		<TD> <%=Cl.Execute_U("Select "&Db.UserHomePage&" From [User] where Id="&Clng(Cl.User_Info(4))&"")(0)%></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户QQ：</strong></TD>
		<TD> <%=Cl.User_IM(0)%></TD>
		<TD width="100" height="25" align="right"><strong>用户ICQ：</strong></TD>
		<TD> <%=Cl.User_IM(1)%></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户MSN：</strong></TD>
		<TD> <%=Cl.User_IM(4)%></TD>
		<TD width="100" height="25" align="right"><strong>AIM号码：</strong></TD>
		<TD> <%=Cl.User_IM(3)%></TD>
	</TR>
	<TR Class="tdbg" >
		<TD width="100" height="25" align="right"><strong>yahoo帐号：</strong></TD>
		<TD> <%=Cl.User_IM(5)%>></TD>
		<TD width="100" height="25" align="right"><strong>UC号码：</strong></TD>
		<TD> <%=Cl.User_IM(2)%></TD>
	</TR>
<%else%>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户邮箱：</strong></TD>
		<TD> <%=Cl.User_Info(8)%></TD>
		<TD width="100" height="25" align="right"><strong>用户主页：</strong></TD>
		<TD> <%=Cl.User_IM(0)%></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户QQ：</strong></TD>
		<TD> <%=Cl.User_IM(1)%></TD>
		<TD width="100" height="25" align="right"><strong>用户ICQ：</strong></TD>
		<TD> <%=Cl.User_IM(2)%></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户MSN：</strong></TD>
		<TD> <%=Cl.User_IM(3)%></TD>
		<TD width="100" height="25" align="right"><strong>AIM号码：</strong></TD>
		<TD> <%=Cl.User_IM(4)%></TD>
	</TR>
	<TR Class="tdbg" >
		<TD width="100" height="25" align="right"><strong>yahoo帐号：</strong></TD>
		<TD> <%=Cl.User_IM(5)%></TD>
		<TD width="100" height="25" align="right"><strong>UC号码：</strong></TD>
		<TD> <%=Cl.User_IM(6)%></TD>
	</TR>
<%end if%>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>国家/省/市：</strong></TD>
		<TD ColSpan=3> <%=Replace(rsUser(Db.CityInfo)&"","|||","/")%></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>身份证号：</strong></TD>
		<TD> <%=rsUser(Db.IDCard)%></TD>
		<TD width="100" height="25" align="right"><strong>出生日期：</strong></TD>
		<TD> <%=rsUser(Db.UserBirthDay)%></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>教育程度：</strong></TD>
		<TD> <%=rsUser(Db.SchoolAge)%></TD>
		<TD width="100" height="25" align="right"><strong>工作单位：</strong></TD>
		<TD> <%=rsUser(Db.UserWorking)%></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>住宅电话：</strong></TD>
		<TD> <%=rsUser(Db.UserHomePhone)%></TD>
		<TD width="100" height="25" align="right"><strong>手机号码：</strong></TD>
		<TD> <%=rsUser(Db.UserMobile)%></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>办公电话：</strong></TD>
		<TD> <%=rsUser(Db.UserTelePhone)%></TD>
		<TD width="100" height="25" align="right"><strong>邮政编码：</strong></TD>
		<TD> <%=rsUser(Db.ZipCode)%></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>联系地址：</strong></TD>
		<TD ColSpan=3> <%=rsUser(Db.UserAddRess)%></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>注册时间：</strong></TD>
		<TD> <%=Cl.Format_Time(Cl.User_Info(14),5)%></TD>
		<TD width="100" height="25" align="right"><strong>最后登录：</strong></TD>
		<TD> <%=Cl.Format_Time(Cl.User_Info(15),5)%></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>备注：</strong></TD>
		<TD ColSpan=3> <%=rsUser(Db.UserReMark)%></TD>
	</TR>
		<TR align="center" Class="tdbg" > 
			<TD height="25" colspan="4">
			<input type="button" value=" 我要修改资料 " onClick="window.location.href='User_UserInfo.Asp'" style="cursor:hand;"> </TD>
		</TR>
	
</TABLE>
<%
Set rsUser=Nothing
End Sub

Sub User_ModifyInfo()
Dim rsUser
Set rsUser=Cl.Execute_U("Select * From "&Db.UserTable&" Where "&Db.UserID&"="&Clng(Cl.User_Info(4))&"")
if rsUser.Bof and rsUser.Eof then
	Response.redirect "Logout.asp"
end if
Dim sCityInfo
sCityInfo=Split(rsUser(Db.CityInfo)&"||||||","|||")
%>
<script language="JavaScript" src="../Inc/Js/selectdate.js"></script>
<script language="JavaScript" src="../Inc/Js/selectcity.js"></script>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
	<TR Class="title"> 
		<TD height="25" align="center" ColSpan=4><strong>修改用户信息</strong></TD>
	</TR>
	<FORM name="Modify" action="User_UserInfo.asp?Action=SaveModifyInfo" method="post" onSubmit="return CheckModify();">
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户名称：</strong></TD>
		<TD> <Input Name="UserName" type=text size=30 Value="<%=Cl.User_Info(5)%>" Disabled></TD>
		<TD width="100" height="25" align="right"><strong>真实姓名：</strong></TD>
		<TD> <Input Name="UserReName" type=text size=30 Value="<%=rsUser(Db.UserReName)%>"></TD>
	</TR>
		<TR Class="tdbg"> 
			<TD width="100" height="25" align="right"><strong>用户密码：</strong></TD>
			<TD ColSpan=3> 
			<%IF HLIntegration = True Then'----------恒浪(Howave.NET)整合开始------------------%>
			<INPUT type="Password" name="OldPassword" value="" size="15" maxLength="12" readonly="readonly"> 
			<font color="blue">* <a href="<%=Hl_Url&Manage_Url%>User_ModifyPWD.asp" target="_blank">点击修改通行证密码</a>
			</font>
			<%Else%>
			<INPUT type="Password" name="OldPassword" value="" size="15" maxLength="12" > 
			<%End IF'--------------------------------恒浪(Howave.NET)整合结束------------------%></TD>
		</TR>
		<TR Class="tdbg"> 
			<TD width="100" height="25" align="right"><strong>新 密 码：</strong></TD>
			<TD height="25"><INPUT type="password" name="Password" value="" size="15" maxLength="12" 
			<%IF HLIntegration = True Then'----------恒浪(Howave.NET)整合开始------------------%>
			readonly="readonly"
			<%End IF'--------------------------------恒浪(Howave.NET)整合结束------------------%>> 
			<font color="red">(不修改请留空)</font></TD>
			<TD width="100" height="25" align="right"><strong>重复新密码：</strong></TD>
			<TD height="25"><INPUT type="password" name="PwdConfirm" value="" size="15" maxLength="12" 
			<%IF HLIntegration = True Then'----------恒浪(Howave.NET)整合开始------------------%>
			readonly="readonly"
			<%End IF'--------------------------------恒浪(Howave.NET)整合结束------------------%>>
			 <font color="red">(不修改请留空)</font></TD>
		</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户性别：</strong></TD>
			<TD height="25"> <INPUT type=radio value="1" name=sex <%if Cl.User_Info(9)="1" then%>CHECKED<%end if%>> 男 &nbsp;&nbsp; <INPUT type=radio value="0" name=sex <%if Cl.User_Info(9)<>"1" then%>CHECKED<%end if%>> 女</TD>
		<TD width="100" height="25" align="right"><strong>用户等级：</strong></TD>
		<TD> <Input Name="UserLevel" type=text size=30 Value="<%=Cl.User_Info(31)%>" Disabled></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户<%=Cl.Web_Setting(28)%>：</strong></TD>
		<TD> <Input Name="UserPoint" type=text size=30 Value="<%=Cl.User_Info(22)%>"  Disabled></TD>
		<TD width="100" height="25" align="right"><strong>用户<%=Cl.Web_Setting(26)%>：</strong></TD>
		<TD> <Input Name="UserMoney" type=text size=30 Value="<%=Cl.User_Info(23)%>"  Disabled></TD>
	</TR>
<%if UserTableType = "Bbsxp" then%>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户邮箱：</strong></TD>
		<TD> 
		<%IF HLIntegration = True Then'----------恒浪(Howave.NET)整合开始------------------%>
		<Input Name="UserEmail" type=text size=30 Value="<%=Cl.User_Info(8)%>" readonly="readonly"><font color="red">* 请到通行证修改</font>
		<%Else%>
		<Input Name="UserEmail" type=text size=30 Value="<%=Cl.User_Info(8)%>">
		<%End IF'--------------------------------恒浪(Howave.NET)整合结束------------------%></TD>
		<TD width="100" height="25" align="right"><strong>用户主页：</strong></TD>
		<TD> <Input Name="UserHome" type=text size=30 Value="<%=Cl.Execute_U("Select "&Db.UserHomePage&" From [User] where Id="&Clng(Cl.User_Info(4))&"")(0)%>"></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户QQ：</strong></TD>
	  <TD> <Input Name="UserQQ" type=text size=30 Value="<%=Cl.User_IM(0)%>"></TD>
		<TD width="100" height="25" align="right"><strong>用户ICQ：</strong></TD>
		<TD> <Input Name="UserICQ" type=text size=30 Value="<%=Cl.User_IM(1)%>"></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户MSN：</strong></TD>
		<TD> <Input Name="UserMSN" type=text size=30 Value="<%=Cl.User_IM(4)%>"></TD>
		<TD width="100" height="25" align="right"><strong>AIM号码：</strong></TD>
		<TD><Input Name="UserAIM" type=text size=30 Value="<%=Cl.User_IM(3)%>"></TD>
	</TR>
	<TR Class="tdbg" >
		<TD width="100" height="25" align="right"><strong>yahoo帐号：</strong></TD>
		<TD><Input Name="UserYahoo" type=text size=30 Value="<%=Cl.User_IM(5)%>"></TD>
		<TD width="100" height="25" align="right"><strong>UC号码：</strong></TD>
		<TD><Input Name="UserUC" type=text size=30 Value="<%=Cl.User_IM(2)%>"></TD>
	</TR>
<%else%>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户邮箱：</strong></TD>
		<TD>
		<%IF HLIntegration = True Then'----------恒浪(Howave.NET)整合开始------------------%>
		<Input Name="UserEmail" type=text size=30 Value="<%=Cl.User_Info(8)%>" readonly="readonly"><font color="blue">* <a href="<%=HL_Url&Manage_Url%>User_Passport.asp" target="_blank">请到通行证修改</a></font>
		<%Else%>
		<Input Name="UserEmail" type=text size=30 Value="<%=Cl.User_Info(8)%>">
		<%End IF'-------------------------------恒浪(Howave.NET)整合结束------------------%></TD>
		<TD width="100" height="25" align="right"><strong>用户主页：</strong></TD>
		<TD> <Input Name="UserHome" type=text size=30 Value="<%=Cl.User_IM(0)%>"></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户QQ：</strong></TD>
		<TD> <Input Name="UserQQ" type=text size=30 Value="<%=Cl.User_IM(1)%>"></TD>
		<TD width="100" height="25" align="right"><strong>用户ICQ：</strong></TD>
		<TD> <Input Name="UserICQ" type=text size=30 Value="<%=Cl.User_IM(2)%>"></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>用户MSN：</strong></TD>
		<TD> <Input Name="UserMSN" type=text size=30 Value="<%=Cl.User_IM(3)%>"></TD>
		<TD width="100" height="25" align="right"><strong>AIM号码：</strong></TD>
		<TD><Input Name="UserAIM" type=text size=30 Value="<%=Cl.User_IM(4)%>"></TD>
	</TR>
	<TR Class="tdbg" >
		<TD width="100" height="25" align="right"><strong>yahoo帐号：</strong></TD>
		<TD><Input Name="UserYahoo" type=text size=30 Value="<%=Cl.User_IM(5)%>"></TD>
		<TD width="100" height="25" align="right"><strong>UC号码：</strong></TD>
		<TD><Input Name="UserUC" type=text size=30 Value="<%=Cl.User_IM(6)%>"></TD>
	</TR>
<%end if%>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>国家/省/市：</strong></TD>
		<TD ColSpan=3><input type=text name=Country size=18 maxLength=50 value="<%=sCityInfo(0)%>"> / <input type=text name=Province size=10 maxLength=50 value="<%=sCityInfo(1)%>">
			<select name="selectp" onChange="selectcityarea('selectp','selectc','Modify');Modify.Province.value=this.value;">
			<option value="0" selected>请选择....</option>
			</select> / <input type=text name=City size=10 maxLength=50 value="<%=sCityInfo(2)%>">
			<select name="selectc" onChange="Modify.City.value=this.value;">
			<option value="0" selected>请选择....</option>
			</select></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>出生日期：</strong></TD>
		<TD><Input Name="BirthDay" type=text size=30 Value="<%=rsUser(Db.UserBirthDay)%>" onFocus="show_cele_date(BirthDay,'','',BirthDay)"></TD>
		<TD width="100" height="25" align="right"><strong>身份证号：</strong></TD>
		<TD><Input Name="IDCard" type=text size=30 Value="<%=rsUser(Db.IDCard)%>"></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>工作单位：</strong></TD>
		<TD><Input Name="UserWorking" type=text size=30 Value="<%=rsUser(Db.UserWorking)%>"></TD>
		<TD width="100" height="25" align="right"><strong>教育程度：</strong></TD>
		<TD><select name="SchoolAge">
			<option value="" <%if rsUser("SchoolAge")="" then%>selected<%end if%>>请选择....</option>
			<option value="大专以下" <%if rsUser("SchoolAge")="大专以下" then%>selected<%end if%>>大专以下</option>
			<option value="大专" <%if rsUser("SchoolAge")="大专" then%>selected<%end if%>>大专</option>
			<option value="本科" <%if rsUser("SchoolAge")="本科" then%>selected<%end if%>>本科</option>
			<option value="本科以上" <%if rsUser("SchoolAge")="本科以上" then%>selected<%end if%>>本科以上</option>
			</select></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>住宅电话：</strong></TD>
		<TD><Input Name="UserHomePhone" type=text size=30 Value="<%=rsUser(Db.UserHomePhone)%>"></TD>
		<TD width="100" height="25" align="right"><strong>手机号码：</strong></TD>
		<TD><Input Name="UserMobile" type=text size=30 Value="<%=rsUser(Db.UserMobile)%>"></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>办公电话：</strong></TD>
		<TD><Input Name="UserTelePhone" type=text size=30 Value="<%=rsUser(Db.UserTelePhone)%>"></TD>
		<TD width="100" height="25" align="right"><strong>邮政编码：</strong></TD>
		<TD><Input Name="ZipCode" type=text size=30 Value="<%=rsUser(Db.ZipCode)%>"></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>联系地址：</strong></TD>
		<TD ColSpan=3><Input Name="UserAddRess" type=text size=86 Value="<%=rsUser(Db.UserAddRess)%>"></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>注册时间：</strong></TD>
		<TD><Input Name="JoinDate" type=text size=30 Value="<%=Cl.Format_Time(Cl.User_Info(14),5)%>" Disabled></TD>
		<TD width="100" height="25" align="right"><strong>最后登录：</strong></TD>
		<TD><Input Name="LastLogin" type=text size=30 Value="<%=Cl.Format_Time(Cl.User_Info(15),5)%>"  Disabled></TD>
	</TR>
	<TR class="tdbg"> 
		<TD width="100" height="25" align="right"><strong>备注：</strong></TD>
		<TD ColSpan=3><textarea id="UserReMark" cols="80" rows="5"  Disabled><%=rsUser(Db.UserReMark)%></textarea><br>
		<a href="javascript:admin_Size(-5,'UserReMark')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(5,'UserReMark')"><img src="images/plus.gif" unselectable="on" border='0'></a></TD>
	</TR>
		<TR align="center" Class="tdbg" > 
			<TD height="25" colspan="4">
			<input name=Submit type=submit id="Submit" value="保存修改结果" style="cursor:hand;"> <input type="button" value=" 取 消 修 改 " onClick="window.location.href='User_UserInfo.Asp?Action=ShowInfo'" style="cursor:hand;"></TD>
		</TR>
	</form>
</TABLE>
<script language=javascript>
first("selectp","selectc","Modify",0,0);
function CheckModify()
{
	if(document.Modify.OldPassword.value=="")
	{
		alert("请输入用户密码！");
		document.Modify.OldPassword.focus();
		return false;
	}
}
function chkradio(Obj,Val)
{
	if (Obj)
	{
	for (i=0;i<Obj.length;i++){
		if (Obj[i].value==Val){
		Obj[i].checked=true;
		break;
		}
	}
	}
}
chkradio(Modify.sex,'<%=Cl.User_Info(9)%>');
</script>
<%
Set rsUser=Nothing
end sub

Sub User_SaveModifyInfo()
	dim OldPassword,StrPassword,StrPwdConfirm,StrSex,StrEmail,StrIM
	Dim str_Info
	Dim UserReName,UserTelePhone,UserAddRess
	dim IDCard,BirthDay,CityInfo,ZipCode
	Dim SchoolAge,UserWorking,UserHomePhone,UserMobile
	OldPassword		= Cl.Checkstr(Trim(Request("OldPassword")))
	StrPassword		= Cl.Checkstr(Trim(Request("Password")))
	StrPwdConfirm	= Cl.Checkstr(Trim(Request("PwdConfirm")))
	StrSex			= Trim(Request("Sex"))
	StrEmail		= Trim(request("UserEmail"))
	UserReName		= Cl.Checkstr(Trim(Request("UserReName")))
	UserTelePhone	= Cl.Checkstr(Trim(Request("UserTelePhone")))
	UserAddRess		= Cl.Checkstr(Trim(Request("UserAddRess")))
	IDCard			= Trim(request("IDCard"))
	BirthDay		= Trim(request("BirthDay"))
	CityInfo		= sRIM(request("Country")) & "|||"&sRIM(request("Province")) & "|||" & sRIM(request("City"))
	CityInfo		= Server.HTMLencode(CityInfo)
	ZipCode			= Trim(Request("ZipCode"))
	if UserTableType = "Bbsxp" then
	StrIM=""& sRIM(Trim(Request("UserQQ"))) &"\"& sRIM(Trim(Request("UserIcq"))) &"\"& sRIM(Trim(Request("UserUC"))) &"\"& sRIM(Trim(Request("UserAIM"))) &"\"& sRIM(Trim(Request("UserMsn"))) &"\"& sRIM(Trim(Request("UserYahoo")))
	else
	StrIM=sRIM(Trim(Request("Userhome"))) &"|||"& sRIM(Trim(Request("UserQQ"))) &"|||"& sRIM(Trim(Request("UserIcq"))) &"|||"& sRIM(Trim(Request("UserMsn"))) &"|||"& sRIM(Trim(Request("UserAIM"))) &"|||"& sRIM(Trim(Request("UserYahoo"))) &"|||"& sRIM(Trim(Request("UserUC")))
	end if
	StrIM			= Server.HTMLenCode(StrIM)
	SchoolAge		= Trim(request("SchoolAge"))
	UserWorking		= Trim(request("UserWorking"))
	UserHomePhone	= Trim(request("UserHomePhone"))
	UserMobile		= Trim(request("UserMobile"))
	if OldPassword="" then
		Call Cl.OutMsg("请输入用户密码！","javascript:history.go(-1)")
	else
		if Cl.User_Info(6)<>md5(OldPassword,16) then Call Cl.OutMsg("用户密码错误，请重新输入！","javascript:history.go(-1)")
	end if
	if StrSex="" then
		Call Cl.OutMsg("性别不能为空","javascript:history.go(-1)")
	else
		StrSex=Cint(StrSex)
		if StrSex<>0 and StrSex<>1 then
			StrSex=1
		end if
		if UserTableType="Bbsxp" then
			if StrSex=1 then
				StrSex="male"
			else
				StrSex="female"
			end if
		end if
	end if
	if StrEmail="" then
		Call Cl.OutMsg("Email不能为空","javascript:history.go(-1)")
	else
		if Not Cl.ChkEmail(StrEmail) then
			Call Cl.OutMsg("您的Email有错误!","javascript:history.go(-1)")
		end if
	end if
	if Request("UserMsn")<>"" then
		if Not Cl.ChkEmail(Request("UserMsn")) then Call Cl.OutMsg("您的Msn有错误！","javascript:history.go(-1)")
	end if
	if Request("UserQQ")<>"" then
		if Not IsNumeric(Request("UserQQ")) then Call Cl.OutMsg("您的QQ有错误，QQ必需为数字！","javascript:history.go(-1)")
	end if
	if BirthDay<>"" then
		if Not IsDate(BirthDay) then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>出生日期错误！</li>"
		end if
	end if
	if IDCard<>"" then
		if Not Isnumeric(IDCard) or len(Cstr(IDCard))<15 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>身份证号码错误！</li>"
		end if
	end if
	if StrPassword<>"" then
		if StrPassword<>StrPwdConfirm then Call Cl.OutMsg("两次输入的密码不一至，请重新输入！","javascript:history.go(-1)")

		if Cl.strLength(StrPwdConfirm)>12 or Cl.strLength(StrPwdConfirm)<6 then
			Call Cl.OutMsg("密码(不能大于12小于6)，请重新输入！","javascript:history.go(-1)")
		else
			if Instr(StrPwdConfirm,chr(32))>0 or Instr(StrPwdConfirm,",")>0 or Instr(StrPwdConfirm,chr(34))>0 or Instr(StrPwdConfirm,chr(9))>0 or Instr(StrPwdConfirm,"")>0 then
				Call Cl.OutMsg("密码中含有非法字符，请重新输入！","javascript:history.go(-1)")
			end if
		end if
		If Trim(Cl.CacheData(10,0))<>"" Then
			Dim RegSplitWords
			RegSplitWords=split(Cl.CacheData(10,0),",")
			For i = 0 to ubound(RegSplitWords)
				If Trim(RegSplitWords(i))<>"" Then
					If instr(StrPwdConfirm,RegSplitWords(i))>0 Then
						ErrMsg=ErrMsg+"<br><li>用户名或者密码中含有非法字符(<font color=red>"&RegSplitWords(i)&"</font>)</li>"
						Call Cl.OutMsg("密码中含有非法字符，请重新输入！","javascript:history.go(-1)")
					End If
				End If 
			next
		End If 
	End if
	if FoundErr=True then Exit Sub
	ErrMsg	= "您的资料已经修改成功！"
	Set Rs = Server.CreateObject("Adodb.recordset")
	SQL = "Select * From "&Db.UserTable&" Where "&Db.UserID&"="&Clng(Cl.User_Info(4))&""
	OpenConn_U : Rs.Open SQL,Conn_U,1,3
	if Rs.Bof and Rs.Eof then
		Rs.Close : Set Rs=Nothing
		Session(Cl.CacheName & "UserID")=Empty
		Response.redirect "Logout.asp"
	End if
	if StrPassword<>"" then
		ErrMsg	= "您的密码和资料已经修改成功，请记住新密码("&StrPassword&")！"
		Rs(Db.UserPassword)=Md5(StrPwdConfirm,16)
	End if
	Rs(Db.UserSex)		= StrSex
	Rs(Db.UserEmail)	= StrEmail
	Rs(Db.UserIM)		= StrIM
	Rs(Db.UserReName)	= UserReName
	Rs(Db.UserTelePhone)= UserTelePhone
	Rs(Db.UserAddRess)	= UserAddRess
	Rs(Db.UserBirthday)	= Birthday
	Rs(Db.IDCard)		= IDCard
	Rs(Db.CityInfo)		= CityInfo
	Rs(Db.ZipCode)		= ZipCode
	Rs(Db.SchoolAge)	= SchoolAge
	Rs(Db.UserWorking)	= UserWorking
	Rs(Db.UserHomePhone)= UserHomePhone
	Rs(Db.UserMobile)	= UserMobile
	Rs.Update
	Rs.Close : Set Rs=Nothing
	Session(Cl.CacheName & "UserID")=Empty
	Call Cl.OutMsg(ErrMsg,"?Action=ShowInfo")
End Sub

Function sRIM(s)
	Dim w
	w=Trim(s)
	If w<>"" and Not IsNull(w) Then 
		w=Replace(w,"|","")
		w=Replace(w,"\","")
	End If
	sRIM=w
End Function

'===================================================
' CreateLive CMS Version 3.1
'							Powered by Aspoo.CoM
'===================================================
' Mail: aspoo@126.com, Info@aspoo.cn
' Q  Q: 3315263, 596197794
' Msn : aspoo@126.com, Clw866@hotmail.com
' Web : http://www.aspoo.com, http://www.aspoo.net
' Bbs : http://bbs.aspoo.com, http://bbs.aspoo.net
' Copyright (C) 2005 Aspoo.CoM All Rights Reserved.
'===================================================
%>
