signup.pl

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

					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("REG_Email","",$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>拜帖</b><br>".
							"如果你有主页的话，请输入你的主页网址。".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("REG_HomePage","",$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>住址</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("REG_Location","",$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>ICQ</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("REG_ICQ","",$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>年龄</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("REG_Age","",$TextBoxSize,"2","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>职业</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("REG_Occupation","",$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>爱好</b>".
						"</font>".
					"</td>".
				"</tr>".
#				&Tr("","",$RowOddBGColor).
#					&Td("","","2","","","","","","").
#						&TextBox("REG_Interests","",$TextBoxSize,"","width:$IETextBoxSize").
#					"</td>".
#				"</tr>".
				
#				&Tr("","",$CategoryBGColor).
#					&Td("","","2","","","","","","").
#						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
#							"<b>江湖履历</b>".
#						"</font>".
#					"</td>".
#				"</tr>".

				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextArea("REG_Comments","",$TextBoxSize,"3","VIRUAL","width:$IETextBoxSize").
					"</td>".
				"</tr>";
	if ($UseSignatures) {
		$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("REG_Signature","",$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("REG_Idle","","","",$in{'Idle'},
											"缺省 ($ShowTopics days)","default",
											"昨    天的帖子","1",
											"前  2 天的帖子","2",
											"前  3 天的帖子","3",
											"前  7 天的帖子","7",
											"前 10 天的帖子","10",
											"前 20 天的帖子","20",
											"前 30 天的帖子","30",
											"前 45 天的帖子","45",
											"前 60 天的帖子","60",
											"前 90 天的帖子","90",
											"前一年  的帖子","365",
											"显示所有的帖子","0",
										   ).
                                &CTd().
                                &Td("","","","","","","","","").
                                    &Select("REG_Order","","","",$in{'Order'},
											"按升序排列","Ascend",
											"按降序排列","Descend",
										   ).
                                &CTd().
								&Td("100%","","","","","","","","").
                                    &Select("REG_Sort","","width: $IETextBoxSize","",$in{'Sort'},
											"按讨论主题排列","3",
											"作者排列","5",
											"复帖子数排列","2",
											"按最后回复时间排列","0",
										   ).
                                "</td>".
                            "</tr>".
                        "</table>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("20","","","","","","","","").
						&Checkbox("REG_Remember","on","",$Remember).
					"</td>".
					&Td("100%","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							" <b>记住您的密码</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("20","","","","","","","","").
						&Checkbox("REG_ShowEmail","on","",$ShowEmail).
					"</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 SignUp Function
###############################################################################