modifyaccount.pl

这个社区是虚拟社区使用的程序

###############################################################################
# ModifyAccount.pl                                                            #
###############################################################################
# UltraBoard Ver. 1.61 by UltraScripts.com                                    #
# Scripts written by Jacky W.W. Yung, [e-mail]              #
# Available from http://www.UltraScripts.com/UltraBoard/                      #
# --------------------------------------------------------------------------- #
# PROGRAM NAME : UltraBoard                                                   #
# VERSION : 1.61                                                              #
# LAST MODIFIED : 30/06/1999                                                  #
# =========================================================================== #
# COPYRIGHT NOTICE :                                                          #
#                                                                             #
# Copyright (c) 1999 Jacky Yung. All Rights Reserved.                         #
#                                                                             #
# This program is free software; you can change or modify it as you see fit.  #
# However, modified versions cannot be sold or distributed.  You cannot alter #
# the copyright and "powered by" notices throughout the scripts. These        #
# notices must be clearly visible to the end users.                           #
#                                                                             #
# WARRANTY DISCLAIMER:                                                        #
#                                                                             #
# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT WITHOUT #
# ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF MERCHANTABILITY OR       #
# FITNESS FOR A PARTICULAR PURPOSE.                                           #
###############################################################################

###############################################################################
# ModifyAccount                                                               #
###############################################################################
sub ModifyAccount {
	if ($Group eq "Guest") {
        print "Location: UltraBoard.$Ext?Action=SignIn&Ref=ModifyAccount&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}\n\n";
	}
###############################################################################
    $AccountName=uc($MemberData[0]);
	$HTML.=	"<p>".&Form("UltraBoard.$Ext","POST","","").
			&HiddenBox("Action","DoModifyAccount").
            &HiddenBox("Ref",$in{'Ref'}).
            &HiddenBox("Category",$in{'Category'}).
			&HiddenBox("Board",$in{'Board'}).
			&HiddenBox("Post",$in{'Post'}).
			&HiddenBox("ID",$in{'ID'}).
            &HiddenBox("Idle",$in{'Idle'}).
            &HiddenBox("Sort",$in{'Sort'}).
            &HiddenBox("Order",$in{'Order'}).
            &HiddenBox("Page",$in{'Page'}).
			&HiddenBox("Session",$SessionID).
            &HiddenBox("OldEmail",$MemberData[4]).
            &HiddenBox("OldNickName",$MemberData[1]).
			&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$HeaderBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
							"<b>编辑 $AccountName 的个人信息</b>".
						"</font>".
					"</td>".
				"</tr>".
                &Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>新密码</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"密码必须使用英文字母或数字，最多26个，大小写敏感。".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&PasswordBox("MOD_NewPassword","",$TextBoxSize,"26","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>验证密码</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"请再一次输入密码。".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&PasswordBox("MOD_VerfiyNewPassword","",$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".

				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>绰名 (<font color=red>*</font>)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"绰号只能输入为中文名，最多只能输入<font COLOR=red>10个汉字！</font>。".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".

				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("MOD_NickName",$MemberData[1],$TextBoxSize,"20","width:$IETextBoxSize").
					"</td>".
				"</tr>";
		if($MemberData[22] eq ""){
			$HTML.=	&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>性别 (<font color=red>*</font>)</b><br>".
						"</font>".
					"</td>".
				"</tr>".

				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&Radio("REG_Gender","male","",$Gender,checked).
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							" <b>男</b> | ".
						&Radio("REG_Gender","female","",$Gender).
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							" <b>女</b>".						
					"</td>".
				"</tr>";
		}

			$HTML.=	&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>飞鸽传书 (<font color=red>*</font>)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"请输入电子邮件地址。".$EmailMessage.
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("MOD_Email",$MemberData[4],$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>拜帖</b><br>".
							"如果你有主页的话，请输入你的主页网址。".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("MOD_HomePage",$MemberData[8],$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>住址</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("MOD_Location",$MemberData[9],$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>ICQ</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("MOD_ICQ",$MemberData[13],$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>年龄</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("MOD_Age",$MemberData[10],$TextBoxSize,"2","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>职业</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("MOD_Occupation",$MemberData[11],$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>爱好</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("MOD_Interests",$MemberData[12],$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>江湖履历</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextArea("MOD_Comments",$MemberData[14],$TextBoxSize,"3","VIRUAL","width:$IETextBoxSize").
					"</td>".
				"</tr>";
	if ($UseSignatures) {
        $MemberData[15]=&DecodeUBCodes($MemberData[15]);
		$HTML.=	&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>签名</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"您的签名将在你发表的内容最后出现，您可以在签名中使用<font color=red>武林秘技心法</font>，以获得最好的显示效果。".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextArea("MOD_Signature",$MemberData[15],$TextBoxSize,"5","$TextAreaType","width:$IETextBoxSize").
					"</td>".
				"</tr>";
    }
	if ($Cookies{'Idle'} ne "") {
		$in{'Idle'}=$Cookies{'Idle'};
	} else {
		$in{'Idle'}="default";
	}
	if ($Cookies{'Sort'} ne "") {
		$in{'Sort'}=$Cookies{'Sort'};
	} else {
		$in{'Sort'}=$SortTopics;
	}
	if ($Cookies{'Order'} ne "") {
		$in{'Order'}=$Cookies{'Order'};
	} else {
		$in{'Order'}=$SortOrder;
	}
    $HTML.=		&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>默认的显示方式</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&Table("100%","CENTER","0","0","","").
                            &Tr("","","").
                                &Td("","","","","","","","","").
                                    &Select("MOD_Idle","","","",$in{'Idle'},
											"默认 ($ShowTopics days)","default",
											"昨    天的帖子","1",
											"前  2 天的帖子","2",
											"前  5 天的帖子","3",
											"前  7 天的帖子","7",
											"前 10 天的帖子","10",
											"前 20 天的帖子","20",
											"前 30 天的帖子","30",
											"前 45 天的帖子","45",
											"前 60 天的帖子","60",
											"前 75 天的帖子","90",
											"前 100 天的帖子","365",
											"显示所有的帖子","0",
										   ).
                                "</td>".
                                &Td("","","","","","","","","").
                                    &Select("MOD_Order","","","",$in{'Order'},
											"升序","Ascend",
											"降序","Descend",
										   ).
                                "</td>".
								&Td("100%","","","","","","","","").
                                    &Select("MOD_Sort","","width: $IETextBoxSize","",$in{'Sort'},
											"讨论","3",
											"作者","5",
											"回复数","2",
											"最后回复","0",
										   ).
                                "</td>".
                            "</tr>".
                        "</table>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("20","","","","","","","","").
						&Checkbox("MOD_Remember","on","",$Remember).
					"</td>".
					&Td("100%","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							" <b>记住您的密码</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("20","","","","","","","","").
						&Checkbox("MOD_ShowEmail","on","",$MemberData[17]).
					"</td>".
					&Td("100%","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							" <b>显示您的电子邮件地址</b>".
						"</font>".
					"</td>".
				"</tr>".
	            &Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						"<center>".&Submit("","编  辑","width:$IETextBoxSize")."</center>".
					"</td>".
				"</tr>".
				&Tr("","",$MenuBGColor).
					&Td("","","2","","","","","","").
						&PrintVersion().
					"</td>".
				"</tr>".
			"</table></td></tr></table>".
			"</form>";
	&PrintTheme("$UBName - 编辑个人信息",$HTML);
	exit;
}
###############################################################################
1;# End of ModifyAccount Function
###############################################################################