sendmessage.pl

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

###############################################################################
# SendMessage.pl                                                              #
###############################################################################
# SendMessage Ver. 1.61 by LastSun （龙追日）                                  #
# Scripts written by [e-mail]                                      #
# --------------------------------------------------------------------------- #
# PROGRAM NAME : SendMessage for UltraBoard v:1.61                            #
# VERSION : 0.99                                                              #
# LAST MODIFIED : 30/12/1999                                                  #
# =========================================================================== #
# COPYRIGHT NOTICE :                                                          #
#                                                                             #
# Copyright (c) 1999 龙追日. All Rights Reserved.                              #
###############################################################################

###############################################################################
# SendMessage                                                                 #
###############################################################################
sub SendMessage {
	$in{'ReName'}=lc($in{'ReName'});
	$SendTo_UserName=$in{'ReName'};
	$HTML.=	"<p>".&Form("UltraBoard.$Ext","POST","","").
			&HiddenBox("Action","DoSendMessage").
			&HiddenBox("Board",$in{'Board'}).
            &HiddenBox("Idle",$in{'Idle'}).
            &HiddenBox("Sort",$in{'Sort'}).
            &HiddenBox("Order",$in{'Order'}).
            &HiddenBox("Page",$in{'Page'}).
            &HiddenBox("Session",$SessionID).
			&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$HeaderBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
							"<b>发送信息</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>对方的用户名 (<font color=red>*</font>)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"必须是对方的英文用户名，而不能是中文绰号！不能有空格，大小写敏感。".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("SendTo_UserName",$SendTo_UserName,$TextBoxSize,"26","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>要传给他的内容 (<font color=red>*</font>)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"内容必须输入！不能传递空内容！！".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextArea("Send_Message","",$TextBoxSize,"3","VIRUAL","width:$IETextBoxSize").
					"</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
###############################################################################