<!-- #include file=../inc/BBSsetup.asp -->
<!-- #include file=../inc/User_Setup.asp -->
<!-- #include file=../inc/Upload_Setup.asp -->
<!-- #include file=../inc/Board_popfun.asp -->
<!-- #include file=../inc/ubbcode.asp -->
<!-- #include file=../inc/Limit_fun.asp -->
<!-- #include file=inc/User_fun.asp -->
<!-- #include file=inc/UserTopic.asp -->
<!-- #include file=../inc/Constellation2.asp -->
<!--#include file="visual.asp"-->
<!--#include file="xgcity_community_head.asp" -->
<%
dim Assort_id
Assort_id=0
%>
<script>
if(self!=top){top.location=self.location;}
function switchSysBar(){
if (switchPoint.innerText==3){
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}else{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}}
</script>
<table border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
<tbody>
  <tr>
    <td height="100%" align="left" vAlign="top" noWrap id="frmTitle">
    <iframe frameBorder="0" id="carnoc" name="carnoc" scrolling="no" src="../left.asp?Assort_id=<%=Assort_id%>" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 92px; Z-INDEX: 2">
    </iframe>    </td>
    <td style="WIDTH: 9pt" >
    <table border="0" cellPadding="0" cellSpacing="0" height="100%">
	<tbody>
      <tr>
        <td style="HEIGHT: 100%" onclick="switchSysBar()" background="../images/left/bg.gif" style=CURSOR:hand; title=?a??/1?±?×ó±?μ?o?à?>
<font style=COLOR:#ffffff;CURSOR:hand;FONT-FAMILY:Webdings;FONT-SIZE:9pt;>
<SPAN id=switchPoint>3</SPAN></font></td>
      </tr>
	  </tbody>
    </table>
    </td>
    <td align="left" valign="top" style="WIDTH: 100%">
<%
Response.Expires = 0 
Response.ExpiresAbsolute = DEF_Now - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private" 
Response.CacheControl = "no-cache"

DEF_BBS_HomeUrl = "../"
Form_FaceWidth = DEF_AllFaceMaxWidth
Form_FaceHeight = DEF_AllFaceMaxWidth

initDatabase
GBL_CHK_TempStr = ""

SiteHead(DEF_SiteNameString & " - 用户会员区")
UpdateOnlineUserAtInfo GBL_board_ID,"修改用户资料"
GBL_CHK_TempStr=""
If GBL_UserID=0 Then
	GBL_CHK_TempStr = GBL_CHK_TempStr & "未登录或密码错误.<br>" & VbCrLf
End If

Dim Form_RevMessageFlag,Form_UserLimit,Form_uservisual
Form_RevMessageFlag = 0

UserTopicTopInfo
DisplayUserNavigate("用户资料修改")

If GBL_CHK_Flag=1 Then
	If GBL_CHK_TempStr = "" Then
		CheckUserModifyLimit
		If GBL_CHK_TempStr = "" Then
			GetUserData(GBL_UserID)
			If Request.Form("SubmitFlag")="29d98Sasphouseasp8asphnet" Then
				GBL_CHK_TempStr = ""
				checkFormDate
				If GBL_CHK_Flag = 0 Then
					Response.WRite "<p><font color=ff0000 class=RedFont><b>" & GBL_CHK_TempStr & "</b></font>" & VbCrLf
					JoinForm
				Else
					If saveFormData = 1 Then
						displayAccessFull
					Else
						Response.WRite "<p><font color=ff0000 class=RedFont><b>" & GBL_CHK_TempStr & "</b></font>" & VbCrLf
						JoinForm
					End If
				End If
			Else
				JoinForm
			End If
		Else
			Response.WRite "<p><font color=ff0000 class=RedFont><b>" & GBL_CHK_TempStr & "</b></font>" & VbCrLf
		End If
	Else%>
		<table width=96%>
		<tr>
			<td>
				<%
				Response.Write "<br><b>" & GBL_CHK_TempStr
				DisplayLoginForm%>
			</td>
		</tr>
		</table>
	<%End If
Else%>
	<table width=96%>
	<tr>
	<td>
	<%
	If Request("submitflag")="" Then
		Response.Write "<br><b>请先登录</b>"
	Else
		Response.Write "<br><p align=left><font color=ff0000 class=RedFont><b>" & GBL_CHK_TempStr & "</b></font>"
	End If
	DisplayLoginForm
	Response.Write "</p>"%>
	</td>
	</tr>
	</table>
<%End If
UserTopicBottomInfo
closeDataBase
SiteBottom
If GBL_ShowBottomSure = 1 Then Response.Write GBL_SiteBottomString

Function GetUserData(ID)

	Dim Rs
	Set Rs = Con.ExeCute("Select top 1 * from LeadBBS_User where id=" & ID)
	GBL_DBNum = GBL_DBNum + 1
	If Rs.Eof Then
		GetUserData = 0
		GBL_CHK_Flag = 0
		Rs.Close
		Set Rs = Nothing
		Exit Function
	End If
	Form_UserName = Rs("UserName")
	Form_Mail = Rs("Mail")
	Form_Address = Rs("Address")
	Form_Sex = Rs("Sex")
	Form_ICQ = Rs("ICQ")
	Form_OICQ = Rs("OICQ")
	Form_Userphoto = Rs("Userphoto")
	Form_Homepage = Rs("Homepage")
	Form_Underwrite = Rs("Underwrite")
	Form_Pass = Rs("Pass")
	'Form_Password1 = Rs("Pass")
	'Form_Password2 = Form_Password1
	Form_birthday = Rs("birthday")
	If len(Form_birthday)=14 Then
		Form_ApplyTime = RestoreTime(Rs("birthday"))
		Form_bday = day(Form_ApplyTime)
		Form_byear = year(Form_ApplyTime)
		Form_bmonth = month(Form_ApplyTime)
	End If

	REM 特殊数据
	Form_ApplyTime = Rs("ApplyTime")
	Form_IP = Rs("IP")
	Form_UserLevel = Rs("UserLevel")
	Form_Officer = Rs("Officer")
	Form_Points = Rs("Points")
	Form_Sessionid = Rs("Sessionid")
	Form_Online = Rs("Online")
	Form_Prevtime = Rs("Prevtime")
	Form_ShowFlag = Rs("ShowFlag")
	Form_uservisual = Rs("uservisual")
	
	If Form_ShowFlag = 1 or Form_ShowFlag = True Then
		Form_ShowFlag = "1"
	Else
		Form_ShowFlag = "0"
	End If
	Form_NotSecret = Rs("NotSecret")
	If Form_NotSecret = 1 or Form_NotSecret = True Then
		Form_NotSecret = "1"
	Else
		Form_NotSecret = "0"
	End If
	
	If DEF_AllDefineFace = 1 Then
		Form_FaceUrl = Rs("FaceUrl")
		Form_FaceWidth = Rs("FaceWidth")
		Form_FaceHeight = Rs("FaceHeight")
	End If
	Form_UserTitle = Rs("UserTitle")
	Form_UserLimit = Rs("UserLimit")
	Form_RevMessageFlag = GetBinaryBit(Form_UserLimit,13)
	Rs.Close
	Set Rs = Nothing
	GetUserData = 1
	GBL_CHK_Flag = 1

End Function

Function JoinForm%>
<script LANGUAGE="JavaScript" TYPE="text/javascript">
		function setface() 
		{
			window.open('facelist.asp','','width=250,height=450 scrollbars=auto,status=no');
		}
	</script>
	<script language=JavaScript>
	<!--
	ValidationPassed = true;
	function isnum(str)
	{
		rset="";
		for(i=0;i<str.length;i++)
		{
			if(str.charAt(i)>="0" && str.charAt(i)<="9")
			{
			}
			else
			{
				return 0;
			}
		}
		return 1;
	}

	function changeface()
	{
		var temp;
		temp=document.LeadBBSFm.Form_userphoto.value;
		if (temp!="" && isnum(temp)==1 && temp.length==4)
		{
			if (temp > 0 && temp <= <%=DEF_faceMaxNum%>)
			{
				document.faceimg.src='<%=DEF_BBS_HomeUrl%>images/face/'+temp+'.gif';
			}
			else
			{
				alert("错误!此图像代号不存在!");
				document.faceimg.src='<%=DEF_BBS_HomeUrl%>images/null.gif';
				document.LeadBBSFm.Form_userphoto.value='';
				ValidationPassed = false;
			}
		}
		else
		{
			alert("错误!此图像代号不存在!\n图像代号必须是4位数<%if len(Cstr(DEF_faceMaxNum))>4 then Response.Write "或以上"%>,比如 0001 ,最大为<%=DEF_faceMaxNum%>");
			document.faceimg.src='<%=DEF_BBS_HomeUrl%>images/null.gif';
			document.LeadBBSFm.Form_userphoto.value='';
			ValidationPassed = false;
		}
	}
	<%If DEF_AllDefineFace = 1 Then%>
	function changeface2()
	{
		var temp,obj;
		obj=document.LeadBBSFm;
		if(obj.Form_FaceWidth.value!="")
		{
			if (! isnum(obj.Form_FaceWidth.value))
			{
				alert("自定义头像宽度必须是数字！\n");
				obj.Form_FaceWidth.focus();
				return;
			}
			else
			{
				if(obj.Form_FaceWidth.value<20 || obj.Form_FaceWidth.value><%=DEF_AllFaceMaxWidth%>)
				{
					alert("自定义头像宽度必须在20-<%=DEF_AllFaceMaxWidth%>之间！\n");
					obj.Form_FaceWidth.focus();
					return;
				}
			}
		}

		if(obj.Form_FaceHeight.value!="")
		{
			if (! isnum(obj.Form_FaceHeight.value))
			{
				alert("自定义头像高度必须是数字！\n");
				obj.Form_FaceHeight.focus();
				return;
			}
			else
			{
				if(obj.Form_FaceHeight.value<20 || obj.Form_FaceHeight.value><%=DEF_AllFaceMaxWidth%>)
				{
					alert("自定义头像高度必须在20-<%=DEF_AllFaceMaxWidth%>之间！\n");
					obj.Form_FaceHeight.focus();
					return;
				}
			}
		}

		temp=document.LeadBBSFm.Form_FaceUrl.value;
		if (temp!="")
		{
			document.faceimg.src=temp;
			document.faceimg.width=obj.Form_FaceWidth.value;
			document.faceimg.height=obj.Form_FaceHeight.value;
		}
	}
	<%End If%>

	function form_onsubmit(obj)
	{
		if(obj.oldpass.value=="")
		{
			alert("必须填写旧的密码!\n");
			ValidationPassed = false;
			obj.oldpass.focus();
			return;
		}

		//if(obj.Form_password1.value=="")
		//{
		//	alert("请输入你的密码!\n");
		//	ValidationPassed = false;
		//	obj.Form_password1.focus();
		//	return;
		//}

		//if(obj.Form_password2.value=="")
		//{
		//	alert("请输入你的验证密码！\n");
		//	ValidationPassed = false;
		//	obj.Form_password2.focus();
		//	return;
		//}

		if(obj.Form_password1.value!=obj.Form_password2.value)
		{
			alert("你的两次密码输入不相同！\n");
			ValidationPassed = false;
			obj.Form_password1.focus();
			return;
		}

		if(obj.Form_icq.value!="")
		{
			if (! isnum(obj.Form_icq.value))
			{
				alert("喂,你填入了ICQ框中填入了东西,但你的ICQ号码怎么不是数字！\n");
				ValidationPassed = false;
				obj.Form_icq.focus();
				return;
			}
		}

		if(obj.Form_oicq.value!="")
		{
			if (! isnum(obj.Form_oicq.value))
			{
				alert("喂,你填入了ＱＱ框中填入了东西,但你的ＱＱ号码怎么不是数字?\n");
				ValidationPassed = false;
				obj.Form_oicq.focus();
				return;
			}
		}

		if(obj.Form_byear.value!="")
		{
			if (! isnum(obj.Form_byear.value))
			{
				alert("喂,你填入了你的出生年,但你的年份怎么不是数字！\n");
				ValidationPassed = false;
				obj.Form_byear.focus();
				return;
			}
		}

		if(obj.Form_bmonth.value!="")
		{
			if (! isnum(obj.Form_bmonth.value))
			{
				alert("喂,你填入了你的出生月,但你的月份怎么不是数字！\n");
				ValidationPassed = false;
				obj.Form_bmonth.focus();
				return;
			}
		}

		if(obj.Form_bday.value!="")
		{
			if (! isnum(obj.Form_bday.value))
			{
				alert("喂,你填入了你的出生日,但你的出生日怎么不是数字！\n");
				ValidationPassed = false;
				obj.Form_bday.focus();
				return;
			}
		}

		if(obj.Form_userphoto.value!="")
		{
			if (! isnum(obj.Form_bday.value))
			{
				alert("用户图像,只能是0001-0318之间的数字！\n");
				ValidationPassed = false;
				obj.Form_bday.focus();
				return;
			}
		}
		
		if(obj.Form_Underwrite.value.length>255)
		{
			alert("用户签名内容要小于255个字符!\n");
			ValidationPassed = false;
			obj.Form_Underwrite.focus();
			return;
		}
		
		<%If DEF_AllDefineFace = 1 Then%>
		if(obj.Form_FaceWidth.value!="")
		{
			if (! isnum(obj.Form_FaceWidth.value))
			{
				alert("自定义头像宽度必须是数字！\n");
				ValidationPassed = false;
				obj.Form_FaceWidth.focus();
				return;
			}
			else
			{
				if(obj.Form_FaceWidth.value<20 || obj.Form_FaceWidth.value><%=DEF_AllFaceMaxWidth%>)
				{
					alert("自定义头像宽度必须在20-<%=DEF_AllFaceMaxWidth%>之间！\n");
					ValidationPassed = false;
					obj.Form_FaceWidth.focus();
					return;
				}
			}
		}

		if(obj.Form_FaceHeight.value!="")
		{
			if (! isnum(obj.Form_FaceHeight.value))
			{
				alert("自定义头像高度必须是数字！\n");
				ValidationPassed = false;
				obj.Form_FaceHeight.focus();
				return;
			}
			else
			{
				if(obj.Form_FaceHeight.value<20 || obj.Form_FaceHeight.value><%=DEF_AllFaceMaxWidth%>)
				{
					alert("自定义头像高度必须在20-<%=DEF_AllFaceMaxWidth%>之间！\n");
					ValidationPassed = false;
					obj.Form_FaceHeight.focus();
					return;
				}
			}
		}<%End if%>
		
		ValidationPassed = true;
		return true;
	}

	function submitonce(theform)
	{
		if(ValidationPassed == false)return;
		if (document.all||document.getElementById)
		{
			for (i=0;i<theform.length;i++)
			{
				var tempobj=theform.elements[i];
				if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
				tempobj.disabled=true;
			}
		}
	}
	-->
	</script>

<FORM action=UserModify.asp method=post name=LeadBBSFm onSubmit="submitonce(this);return ValidationPassed">
	<p><b>用户资料修改</b><br>
	<br>
	</p>
	<TABLE border=0 cellpadding="0" cellspacing="0">
	<TR align=middle>
		<TD colspan="2">
			<TABLE border=0 class=font width="100%" cellpadding="0" cellspacing="0">
			<TR>
				<TD width="20%" height=2 bgcolor="#ececff" class=TBBG1><img src="<%=DEF_BBS_HomeUrl%>images/null.GIF" height=1></TD>
				<TD height=2 colspan="2" bgcolor="#ececff" class=TBBG1><img src="<%=DEF_BBS_HomeUrl%>images/null.GIF" height=1></TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>*用户名称： 
				</TD>
				<TD height="25" colspan="2">
					<p><%
					'Response.Write "<INPUT maxLength=20 name=Form_username size=36 class=fminpt Value=" & chr(34)
					'If Form_username<>"" Then Response.Write Server.HtmlEncode(Form_Username)
					'Response.Write chr(34) & ">"
					Response.Write Server.HtmlEncode(Form_Username)
					%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>*旧的密码： 
				</TD>
				<TD height="25" colspan="2">
					<input class=fminpt maxLength=20 name="oldpass" size=14 type=password> 必须正确填写
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>新的密码： 
				</TD>
				<TD height="25" colspan="2">
					<input class=fminpt name=SubmitFlag type=hidden value="29d98Sasphouseasp8asphnet">
					<input class=fminpt maxLength=20 name="Form_password1" size=14 type=password Value="<% If Form_password1<>"" Then Response.Write Server.HtmlEncode(Form_password1)%>"> 不修改密码不必填写
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>验证密码： 
				</TD>
				<TD height="25" colspan="2">
					<input class=fminpt maxlength=20 name="Form_password2" size=14 type=password Value="<% If Form_password2<>"" Then Response.Write Server.HtmlEncode(Form_password2)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>电子邮件： 
				</TD>
				<TD height="25" colspan="2">
					<input class=fminpt maxLength=60 name=Form_mail size=36 Value="<% If Form_mail<>"" Then Response.Write Server.HtmlEncode(Form_mail)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>主页地址：
				</TD>
				<TD height="25" colspan="2">
					<input class=fminpt maxlength=250 name=Form_homepage size=36 Value="<% If Form_homepage<>"" Then Response.Write Server.HtmlEncode(Form_homepage)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>ICQ 号码：
				</TD>
				<TD height="25" colspan="2">
					<input class=fminpt maxlength=10 name=Form_icq size=14 Value="<% If Form_icq<>"" and Form_icq <> "0" Then Response.Write Server.HtmlEncode(Form_icq)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>ＱＱ号码：
				</TD>
				<TD height="25" colspan="2">
					<input class=fminpt maxlength=10 name=Form_oicq size=14 Value="<% If Form_oicq<>"" and Form_oicq <> "0" Then Response.Write Server.HtmlEncode(Form_oicq)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>你的地址：
				</TD>
				<TD height="25" colspan="2">
					<input class=fminpt maxlength=150 name=Form_address size=36 Value="<% If Form_address<>"" Then Response.Write Server.HtmlEncode(Form_address)%>">
				</TD>
			</TR><%If DEF_UserEnableUserTitle = 1 and Form_UserLevel >= DEF_UserUserTitleNeedLevel Then%>
			<TR>
				<TD height="25" align=center>
					<p>用户头衔：
				</TD>
				<TD height="25" colspan="2">
					<input maxlength=14 name=Form_UserTitle size=36 class=fminpt Value="<% If Form_UserTitle<>"" Then Response.Write Server.HtmlEncode(Form_UserTitle)%>">
				</TD>
			</TR><%End If%>
			<TR>
				<TD height="25" align=center>
					<p>你的性别：
				</TD>
				<TD height="12" colspan="2">
					<select name="Form_sex">
						<option value="密">保密</option>
						<option value="男" <% If Form_sex = "男" Then Response.Write "selected"%>>男</option>
						<option value="女" <% If Form_sex = "女" Then Response.Write "selected"%>>女</option>
					</select>
				</TD>
			</TR>
						<TR>
				<TD height="25" align=center>
					<p>头像设置：
				</TD>
				<TD height="12" colspan="2">
					<select name="Form_uservisual">
						<option value="0" <% If Form_uservisual = 0 Then Response.Write "selected"%>>虚拟形象</option>
						<option value="1" <% If Form_uservisual = 1 Then Response.Write "selected"%>>图片头像</option>
					</select>
					设置成我的默认头像</TD>
			</TR>
			<TR>
			  <TD height="25" align=center>虚拟形象：</TD>
			  <TD width="36%" align="left" valign="middle"><%
call ShowUserVisual(Server.HtmlEncode(Form_Username),120,"TBBG9",false)
%>
		      &nbsp;&nbsp;</TD>
			  <TD width="44%" align="left" valign="middle"><a href="../Service/visual/z_visual.asp" target="_blank">我要去改变形象</a></TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>图片头像：
				</TD>
				<TD height="25" colspan="2">
					<input class=fminpt onchange="javascript:changeface();" maxlength=4 name=Form_userphoto size=4 Value="<% If Form_userphoto<>"" Then Response.Write Server.HtmlEncode(string(4-len(cstr(Form_userphoto)),"0")&Form_userphoto)%>">
					<span style='cursor:hand' title='查看头像代号' onclick="setface();">查看头像代号</span>
					<%If DEF_AllDefineFace = 0 or Form_FaceUrl & "" = "" Then%>
						<%If Form_userphoto<>"" and isNumeric(Form_userphoto) Then%><img name=faceimg id=faceimg src=<%=DEF_BBS_HomeUrl%>images/face/<%=string(4-len(cstr(Form_userphoto)),"0")&Form_userphoto%>.gif align=absmiddle width=62 height=62><%Else%><img name=faceimg id=faceimg src=<%=DEF_BBS_HomeUrl%>images/null.gif align=absmiddle><%End If%>
					<%Else%>
						<img name=faceimg id=faceimg src="<%=htmlencode(Form_FaceUrl)%>" align=absmiddle width=<%=Form_FaceWidth%> height=<%=Form_FaceHeight%>>
					<%End If%>
				</TD>
			</TR><%
		If DEF_AllDefineFace = 1 Then%>
			<TR>
				<TD height="25" align=center>
					<p>自定头像：</TD>
				<TD height="25" colspan="2">
					<input class=fminpt onchange="javascript:changeface2();" maxlength=250 name=Form_FaceUrl size=36 Value="<%=HtmlEncode(Form_FaceUrl)%>">
				</TD>
			</TR>
			<%
			If DEF_UploadFaceNeedPoints > 0 and DEF_UploadFaceNeedPoints > GBL_CHK_Points Then
			Else
				If DEF_FaceMaxBytes > 0 and (GBL_CHK_OnlineTime >= DEF_NeedOnlineTime or DEF_NeedOnlineTime = 0) Then%>
			<tr>
				<td align="center">图象上传：</td>
				<td colspan="2">
					<iframe name="ad" frameborder=0 width=100% height=25 scrolling=no src=uploadFile.asp?UserID=<%=GBL_UserID%>&BoardID=<%=GBL_Board_ID%>></iframe>
				</td>
			</tr><%End If
				End If%>
			<TR>
				<TD height="25" align=center>
					<p>头像大小
				</TD>
				<TD height="25" colspan="2">
					宽: <input class=fminpt onchange="javascript:changeface2();" maxlength=<%=len(DEF_AllFaceMaxWidth)%> name=Form_FaceWidth size=3 Value="<%=HtmlEncode(Form_FaceWidth)%>">(20-<%=DEF_AllFaceMaxWidth%>)
					高: <input class=fminpt onchange="javascript:changeface2();" maxlength=<%=len(DEF_AllFaceMaxWidth)%> name=Form_FaceHeight size=3 Value="<%=HtmlEncode(Form_FaceHeight)%>">(20-<%=DEF_AllFaceMaxWidth%>)
				</TD>
			</TR><%
		End If%>
			<TR>
				<TD height="25" align=center>
					<p>你的生日： 
				</TD>
				<TD height="25" colspan="2" align="left">
					<p>
					<input class=fminpt maxlength=4 name=Form_byear size=4 Value="<% If Form_byear<>"" Then
						Response.Write Server.HtmlEncode(Form_byear)
					Else
						Response.Write "19"
					End If%>"> 年 
					<input class=fminpt maxlength=2 name=Form_bmonth size=2 Value="<% If Form_bmonth<>"" Then Response.Write Server.HtmlEncode(Form_bmonth)%>">
					月 <input class=fminpt maxlength=2 name=Form_bday size=2 Value="<% If Form_bday<>"" Then Response.Write Server.HtmlEncode(Form_bday)%>">
					日</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>签名-UBB：
				</TD>
				<TD height="25" colspan="2">
					<textarea class=fmtxtra name=Form_Underwrite rows=5 cols=34><%If Form_Underwrite <> "" Then Response.Write VbCrLf & htmlEncode(Form_Underwrite)%></textarea>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>是否隐身：
				</TD>
				<TD height="25" colspan="2">
					<select name="Form_ShowFlag">
						<option value="0" <% If Form_ShowFlag = "0" Then Response.Write "selected"%>>正常上线</option>
						<option value="1" <% If Form_ShowFlag = "1" Then Response.Write "selected"%>>隐身</option>
					</select>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>是否保密：
				</TD>
				<TD height="25" colspan="2">
					<select name="Form_NotSecret">
						<option value="0" <% If Form_NotSecret = "0" Then Response.Write "selected"%>>信息保密</option>
						<option value="1" <% If Form_NotSecret = "1" Then Response.Write "selected"%>>信息公开</option>
					</select>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>短 消 息：
				</TD>
				<TD height="25" colspan="2">
					<select name="Form_RevMessageFlag">
						<option value="0" <% If Form_RevMessageFlag = "0" Then Response.Write "selected"%>>接受所有</option>
						<option value="1" <% If Form_RevMessageFlag = "1" Then Response.Write "selected"%>>仅限好友</option>
					</select>
				</TD>
			</TR>
			</TABLE>
		</TD>
	</TR>
	<TR>
		<TD>&nbsp;</TD>
		<TD height="30" align="center">
			<input name=submit type=submit value=" 修 改 " onclick="form_onsubmit(this.form)" class=fmbtn>
			<input name=b1 type=reset value=" 重 写 " class=fmbtn>
		</TD>
	</TR>
	<TR>
		<TD colspan="2" height=2 bgcolor="ececff" class=TBBG1><img src="../images/null.GIF" height=1></TD>
	</TR>
	</TABLE>
</FORM>
<p><b>说明：</b>
<p>1.是否保密选择设为保密，可以隐藏自己的地址，生日，ＱＱ，邮箱<br>
&nbsp; 资料，并且不显示最后登录的具体时间，IP地址始终保密，不出现<br>
&nbsp; 在生日会员一栏
<br>2.设为隐身状态，每次登录上线后便是隐身会员
<br>3.达到<%=DEF_UserUserTitleNeedLevel%>级的注册用户允许自定义头衔，允许随意修改
<%

End Function

Function displayAccessFull
	
	GetUserData(GBL_UserID)%>
	<p><b>修改成功，资料如下：</b><br>
	<br>
	</p>
	<TABLE border=0 cellpadding="0" cellspacing="0" width=400>
	<TR align=middle>
		<TD colspan="2">
			<TABLE border=0 class=font width="100%" cellpadding="0" cellspacing="0">
			<TR>
				<TD height=2 bgcolor="#ececff" width=75 class=TBBG1><img src="<%=DEF_BBS_HomeUrl%>images/null.GIF" width=1 height=1></TD>
				<TD height=2 bgcolor="#ececff" class=TBBG1><img src="<%=DEF_BBS_HomeUrl%>images/null.GIF" width=1 height=1></TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>*用户名称： 
				</TD>
				<TD height="25">
					<%=Server.HtmlEncode(Form_Username)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>*你的密码： 
				</TD>
				<TD height="25">
					********
				</TD>
			</TR>
			<TR style="WORD-BREAK: break-all;">
				<TD height="25" align=center>
					<p>电子邮件： 
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_mail)%>
				</TD>
			</TR>
			<TR style="WORD-BREAK: break-all;">
				<TD height="25" align=center>
					<p>主页地址：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_homepage)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>ICQ 号码：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_icq)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>ＱＱ号码：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_oicq)%>
				</TD>
			</TR>
			<TR style="WORD-BREAK: break-all;">
				<TD height="25" align=center>
					<p>你的地址：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_address)%>
				</TD>
			</TR><%If DEF_UserEnableUserTitle = 1 and Form_UserLevel >= DEF_UserUserTitleNeedLevel Then%>
			<TR>
				<TD height="25" align=center>
					<p>用户头衔：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_UserTitle)%>
				</TD>
			</TR><%End If%>
			<TR>
				<TD height="25" align=center>
					<p>你的性别：
				</TD>
				<TD height="25">
					<%=Form_sex%>
				</TD>
			</TR>
						<TR>
				<TD height="25" align=center>
					<p>虚拟形象：
				</TD>
				<TD height="25">
					<%
call ShowUserVisual(Server.HtmlEncode(Form_Username),120,"TBBG9",false)
%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>图片头像：
				</TD>
				<TD height="25">
					<%If DEF_AllDefineFace = 0 or Form_FaceUrl = "" Then%>
					<img src=<%=DEF_BBS_HomeUrl%>images/face/<%=string(4-len(cstr(Form_userphoto)),"0")&Form_userphoto%>.gif align=absmiddle width=62 height=62>
					<%Else%>
						<img src="<%=htmlencode(Form_FaceUrl)%>" align=absmiddle width=<%=Form_FaceWidth%> height=<%=Form_FaceHeight%>>
					<%End If%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>你的生日： 
				</TD>
				<TD height="25" align="left">
					<%If len(Form_birthday)=14 Then%>
					<%=RestoreTime(Left(Form_birthday,8))%></TD>
					<%End If%>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>签名-UBB：
				</TD>
				<TD height="25">
					<table style="table-layout:fixed; word-break:break-all" width=332 border="0" cellspacing="0" cellpadding="0"><tr><td>
					<%=Form_PrintUnderwrite%></td></tr></table></TD>
				</TD>
			</TR>
			<tr>
				<td colspan=2 bgcolor=<%=DEF_BBS_LightColor%> align=center height=25 class=TBBG1>
					:::::::::::特殊资料:::::::::::</td>
			</tr>
			<TR>
				<TD height="25" align=center>
					<p>申请时间：
				</TD>
				<TD height="25">
					<%=RestoreTime(Form_ApplyTime)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>最后登录：
				</TD>
				<TD height="25">
					<%=RestoreTime(Form_Prevtime)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户等级：
				</TD>
				<TD height="25">
					<%=DEF_UserLevelString(Form_UserLevel)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户<%=DEF_PointsName%>：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_Points)%>
				</TD>
			</TR>
			</TABLE>
		</TD>
	</TR>
	<TR>
		<TD colspan="2" height=2 bgcolor="ececff" class=TBBG1><img src="<%=DEF_BBS_HomeUrl%>images/null.GIF" width=1 height=1></TD>
	</TR>
	</TABLE>
<%End Function

Function saveFormData

	Form_RevMessageFlag = Request.Form("Form_RevMessageFlag")
	If Form_RevMessageFlag = "1" Then
		Form_RevMessageFlag = 1
	Else
		Form_RevMessageFlag = 0
	End If
	
	Form_UserLimit = SetBinaryBit(Form_UserLimit,13,Form_RevMessageFlag)

	Dim Rs,temp
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.Open "Select top 1 * from LeadBBS_User where id=" & GBL_UserID,con,1,3
	GBL_DBNum = GBL_DBNum + 1
	If Rs.Eof Then
		Rs.Close
		Set Rs = Nothing
		GBL_CHK_TempStr = GBL_CHK_TempStr & "发生意外错误<br>" & VbCrLf
		saveFormData = 0
		Exit Function
	End If
	'Rs("UserName") = Form_UserName
	Rs("Mail") = Form_Mail
	Rs("Address") = Form_Address
	Rs("Sex") = Form_Sex
	If Form_ICQ = "" Then
		Rs("ICQ") = Null
	Else
		Rs("ICQ") = Form_ICQ
	End If
	If Form_OICQ = "" Then
		Rs("OICQ") = Null
	Else
		Rs("OICQ") = Form_OICQ
	End If
	Rs("Userphoto") = Form_Userphoto
	Rs("Homepage") = Form_Homepage
	Rs("Underwrite") = Form_Underwrite
	Rs("PrintUnderwrite") = Form_PrintUnderwrite
	Rs("uservisual") = Form_uservisual
	Form_Password2 = MD5(Form_Password1)
	If Form_Password1 <> "" Then Rs("Pass") = Form_Password2
	If Len(Form_birthday)=14 Then
		Rs("birthday") = Form_birthday
		temp = cCur(Left(Form_birthday,4))
		If temp > 1950 and temp < 2050 Then
			Rs("NongLiBirth") = GetTimeValue(ConvertToNongLi(RestoreTime(Form_birthday)))
		Else
			'其它出生年作了略处理
			Rs("NongLiBirth") = GetTimeValue(DateAdd("m",-1,RestoreTime(Form_birthday)))
		End If
	Else
		Rs("birthday") = Null
	End If

	If DEF_AllDefineFace = 1 Then
		Rs("FaceUrl") = Form_FaceUrl
		Rs("FaceWidth") = Form_FaceWidth
		Rs("FaceHeight") = Form_FaceHeight
	End If
	
	Rs("ShowFlag") = Form_ShowFlag
	Rs("NotSecret") = Form_NotSecret
	Rs("LastWriteTime") = GetTimeValue(DEF_Now)
	Rs("UserLimit") = Form_UserLimit
	
	If DEF_UserEnableUserTitle = 1 and Form_UserLevel >= DEF_UserUserTitleNeedLevel Then Rs("UserTitle") = Form_UserTitle

	Rs.Update
	Rs.Close
	Set Rs = Nothing

	Response.Cookies(DEF_MasterCookies)("user") = Form_UserName
	If Form_Password1 = "" Then
		Response.Cookies(DEF_MasterCookies)("pass") = GBL_CHK_Pass
	Else
		Response.Cookies(DEF_MasterCookies)("pass") = Form_Password1
	End If

	Dim TA
	TA = Session(DEF_MasterCookies & "UDT")
	If isArray(TA) Then
		TA(0) = GBL_UserID
		TA(1) = GBL_CHK_User
		TA(2) = GBL_CHK_UserLimit
		If Form_ShowFlag = "0" Then
			TA(3) = 0
		Else
			TA(3) = 1
		End If
		If Form_Password1 <> "" Then TA(9) = Form_Password2
		Session(DEF_MasterCookies & "UDT") = TA
	End If
	saveFormData = 1

End Function%>
 </td>
  </tr>
  </tbody>
</table>
<script>
if(window.screen.width<'1024'){switchSysBar()}
</script>
