uploadimage.pl

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

###############################################################################
# UploadImage.pl                                                              #
###############################################################################
# UltraBoard Ver. 1.61 modified by LastSun                                    #
# --------------------------------------------------------------------------- #
# PROGRAM NAME : Image Attachment                                             #
# VERSION : 0.99                                                              #
# LAST MODIFIED : 01/06/2000                                                  #
# Used for UltraBoard v1.61    Info available below                           #
#                                                                             #
# PROGRAM NAME : UltraBoard                                                   #
# VERSION : 1.61                                                              #
# LAST MODIFIED : 01/07/1999                                                  #
###############################################################################

###############################################################################
# UploadImage                                                                 #
###############################################################################
eval {
    require "$VarsPath/System.cfg";
};
$UploadImage = "on";
sub UploadImage {
	$Mark=0;
	if ($in{'Function'} eq "remove") {
		unlink "/vrcdata/UserImages/$MemberData[0].jpg";
		$MemberData[19]="/vrcdata/UserImages/Default";
		&SaveMemberData($MemberData[0],@MemberData);
		$Mark=1;
	}
	if (($UploadImage eq "on")&&($UploadImageMembersOnly eq "on")){
		print "Location: UltraBoard.$Ext?Action=SignIn&Ref=UploadImage&Post=$in{'Post'}&Board=$in{'Board'}&ID=0&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}\n\n";
	}
	if ($UploadImage eq "") {
	&ShowThank(	"",
				"",
				"0",
				"UltraBoard.$Ext?Action=ShowPost&Post=$in{'Post'}&Board=$in{'Board'}&ID=0&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}&Session=$SessionID"
				)
	}
	if (-e "/vrcdata/UserImages/$MemberData[0].jpg") {
		$MemberData[19]="/vrcdata/UserImages/$MemberData[0]";
		&SaveMemberData($MemberData[0],@MemberData);
		$Mark=1;
	}
	my ($HTML);

	if($Mark == 0){
	$HTML.= "<div align=\"center\"><center>".
		"<p><table width=\"$TableWidth\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"$TableBorderColor\">".
		"<tr>".
		"<td><table width=\"100%\" border=\"0\" cellspacing=\"$TableCellSpacing\" cellpadding=\"$TableCellPadding\" align=\"$TableAlign\">".
		"<tr bgcolor=\"$HeaderBGColor\">".
		"<td colspan=\"2\"><font face=\"$FontFace\" size=\"1\" color=\"$HeaderTextColor\"><b>UPLOAD IMAGE</b></font></td></tr><tr bgcolor=\"$RowOddBGColor\">".
		"<td colspan=\"2\"><div align=center><table width=\"60%\" border=\"0\" cellspacing=\"10\" cellpadding=\"10\" align=\"CENTER\">".
		"<tr>".
		"<td><font face=\"$FontFace\" size=\"2\" color=\"$TextColor\">".
		"<font face=\"$FontFace\" size=\"2\"><b>注意：</b>图片文件必须是 <font color=red>你注册ID.jpg</font> ，文件必须得小于<font color=red>15KB</font><br>".
		"<b>举例：</b>用户<font color=navy>龙追日</font>在社区的注册ID是<font color=red>lastsun</font>，那么她的欲上传<font color=FFFFFF>-------</font>的肖像图片文件名就必须是<font color=red>lastsun.jpg</font>。</FONT>".
		"<BR>".
		"<FORM ENCTYPE=\"multipart/form-data\" ACTION=\"$SrcPath/Upload.pl\" METHOD=\"POST\">".
		"<input type=\"hidden\" name=\"uref\" value=\"$SessionID\">".
		"<INPUT TYPE=\"FILE\" NAME=\"file-to-upload-01\" SIZE=\"35\" CLASS=\"TextArea\">".
		"<P>".
		"<INPUT TYPE=\"SUBMIT\" VALUE=\"现 在 就 上 传 图 片\" CLASS=\"Button\"><P>".
		"</font></td></tr></table></td></tr><tr bgcolor=\"$MenuBGColor\">".
		"<td colspan=\"2\"><table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">".
		"<tr>".
		"<td align=\"RIGHT\">".
		&PrintVersion().
		"</td></tr></table></td></tr></table>".
		"</td>".
		"</tr>".
		"</table>";
	}
	else {
	$HTML.= "<div align=\"center\"><center>".
			"<FONT FACE=\"$FontFace\" SIZE=\"2\"><img src=http://www.yourweb.com/$MemberData[19].jpg></FONT><P>";
			}

		&PrintTheme("$UBName - UPLOAD IMAGE",$HTML);
		exit;
}
1;