showprofile.pl

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

###############################################################################
# ShowProfile.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.                                           #
###############################################################################

###############################################################################
# ShowProfile                                                                 #
###############################################################################
sub ShowProfile {
    $in{'ID'}=lc($in{'ID'});
    unless (-e "$MembersPath/$in{'ID'}.info") {
        &ShowError("FILE PROBLEM","The \"$in{'ID'}\" Profile is not found.<br>Please contact the webmaster (".&Link("mailto:$EmailAddress","","").$EmailAddress."</a>".") for more information.");
    }
    @MemberInfo=&GetMemberData($in{'ID'});
    $AccountName=uc($MemberInfo[0]);
    $NickName=uc($MemberInfo[1]);
    open(GROUP,"$MembersPath/Groups.db")||&CGIError("Couldn't open/read the Groups.db file<br>\nPath: $MembersPath<br>\nReason : $!");
		flock(GROUP,1) if ($FLock);
		while (<GROUP>) {
            @Group=&DecodeDBOutput($_);
            if ($MemberInfo[3] eq $Group[0]) {
                $Status=$Group[1];
                last;
            }
		}
	close(GROUP);
	$Rank="";
	@MemberInfo23 = split(/\|\^\|/, $MemberInfo[23]);
	open(GROUP,"$MembersPath/$MemberInfo[3].rank")||&CGIError("Couldn't open/read the $MemberData[3].rank file<br>\nPath: $MembersPath<br>\nReason : $!");
		flock(GROUP,1) if ($FLock);
		while (<GROUP>) {
			@Group=&DecodeDBOutput($_);
			if ($MemberInfo23[0] eq $Group[0]) {
	           	$Rank=$Group[1];
              	last;
			}
		}
	close(GROUP);
###############################################################################
	$HTML.=	"<p>".&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$HeaderBGColor).
					"<td width=20% height=20 bgcolor=$HeaderBGColor align=center>".
						&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
							"<b>用 户 档 案</b></font>".
					"<td width=80% height=20 bgcolor=$MenuBGColor>".
						"<table width=300><tr><td width=15>".
						&Image("$URLImages/Tongue.gif","","","","","0","用户档案资料").
						"</td><td width=285 valign=bottom><span style=\"font:9pt\">".
						"<font color=green>$NickName（$MemberInfo[0]）</font>".
						"</td></tr></table>".
					"</td>".
				"</tr>".
				"<tr>".
					"<td width=20% height=20 bgcolor=$CategoryBGColor align=center>".
					&Image("$MemberInfo[19].jpg","133","150","","","1","$MemberInfo[1]").
					"</td>".
					"<td width=80% height=20 bgcolor=$HeaderTextColor valign=top>".
					"<table width=100% border=0 cellpadding=5>".
					"<tr><td valign=top><span style=\"font:9pt\"><font color=navy>目前所属：$Status".
					" 目前身份：$Rank</font></span></td></tr>".
					"<tr><td valign=top><span style=\"font:9pt\"><font color=FF0080>虚拟货币：$MemberInfo[18] 个江湖货币单位 (暂时采用，日后修改)</font></span></td></tr>".
					"<tr><td valign=top><span style=\"font:9pt\"><font color=FF8800>江湖经验：$MemberInfo23[1] 点".
					" 共发帖子数：$MemberInfo[5] 张</font></span></td></tr>".
					"<tr><td valigh=top><span style=\"font:9pt\"><font color=804000>第一次修行：</font>".
					&GetDate($MemberInfo[16],804000,804000,$TextSize,$TextSize).
					"<font color=black> 上一次修行：</font></span>".
					&GetDate($MemberInfo[7],black,black,$TextSize,$TextSize).
					"<tr><td valign=top><span style=\"font:9pt\"><font color=FFFFFF>HP：MP：Food：Water：</font></span></td></tr>".
					"</tr></td>".
						"</table>".
					"</td>".
				"</tr>";

	$HTML.=	"<p>".&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$HeaderBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
							"<b>$NickName ($AccountName) 的个人信息</b>".
						"</font>".
					"</td>".
				"</tr>".
	            &Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>绰号</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$TextSize,$TextColor).
							$MemberInfo[1]."&nbsp;".
						"</font>".
					"</td>".
				"</tr>".
                &Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>目前所属</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$TextSize,$TextColor).
							$Status." (".$MemberInfo[6].")".
						"</font>".
					"</td>".
				"</tr>".
                &Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>目前身份</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$TextSize,$TextColor).
							$Rank."&nbsp;".
						"</font>".
					"</td>".
				"</tr>".

				&Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>初入江湖</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$TextSize,$TextColor).
                            &GetDate($MemberInfo[16],$TextColor,$TextColor,$TextSize,$TextSize)."&nbsp;".
						"</font>".
					"</td>".
				"</tr>".
                &Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>江湖经验</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$TextSize,$TextColor).
							$MemberInfo23[1]."&nbsp;".
						"</font>".
					"</td>".
				"</tr>".
                &Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>最后一次修炼</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$TextSize,$TextColor).
							 &GetDate($MemberInfo[7],$TextColor,$TextColor,$TextSize,$TextSize)."&nbsp;".
						"</font>".
					"</td>".
				"</tr>";
	if ($MemberInfo[17] ne "") {
		$HTML.= &Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>飞鸽传书</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$TextSize,$TextColor).
                            &Link("mailto:$MemberInfo[4]","","").
                                $MemberInfo[4].
                            "</a>"."&nbsp;".
                        "</font>".
					"</td>".
				"</tr>";
	}
	$HTML.=     &Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>拜帖</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$TextSize,$TextColor).
							&Link($MemberInfo[8],"","").
                                $MemberInfo[8].
                            "</a>"."&nbsp;".
						"</font>".
					"</td>".
				"</tr>".
                &Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>住址</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$TextSize,$TextColor).
                            $MemberInfo[9]."&nbsp;".
						"</font>".
					"</td>".
				"</tr>".
                &Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>ICQ</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","");
    if (length($MemberInfo[13]) > 0) {
        $HTML.=	        &Table("100%","CENTER","0","0","","").
                            &Tr("","","").
                                &Td("10","","","","","","","","").
                                    &Image("http://online.mirabilis.com/scripts/online.dll?icq=$MemberInfo[13]&img=5","","","","","","$MemberInfo[13]").
                                "</td>".
                                &Td("100%","","","","","","","","").
                                    &Font($FontFace,$TextSize,$TextColor).
                                        $MemberInfo[13].
                                    "</font>".
                                "</td>".
                            "</tr>".
                        "</table>";
    }else{
		$HTML.= "&nbsp;";
	}
		$HTML.=		"</td>".
				"</tr>".
                &Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>年龄</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$TextSize,$TextColor).
                            $MemberInfo[10]."&nbsp;".
						"</font>".
					"</td>".
				"</tr>".
                &Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>职业</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$TextSize,$TextColor).
                            $MemberInfo[11]."&nbsp;".
    					"</font>".
					"</td>".
				"</tr>".
                &Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>爱好</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$TextSize,$TextColor).
                            $MemberInfo[12]."&nbsp;".
						"</font>".
					"</td>".
				"</tr>".
                &Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>江湖履历</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$TextSize,$TextColor).
                            $MemberInfo[14]."&nbsp;".
						"</font>".
					"</td>".
				"</tr>";
#    if ($UseSignatures) {
#        $HTML.= &Tr("","",$CategoryBGColor).
#					&Td("","","","","","","","","").
#						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
#							"<b>签名</b>".
#						"</font>".
#					"</td>".
#				"</tr>".
#				&Tr("","",$RowOddBGColor).
#					&Td("","","","","","","","","").
#						&Font($FontFace,$TextSize,$TextColor).
#                           $MemberInfo[15]."&nbsp;";
#						"</font>".
#					"</td>".
#				"</tr>";
#    }
    $HTML.=     &Tr("","",$MenuBGColor).
					&Td("","","","","","","","","").
						&PrintVersion("YES").
					"</td>".
				"</tr>";
	$HTML.=		&CBTable();
    &PrintTheme("$UBName",$HTML);
	exit;
}
###############################################################################
1;# End of ShowProfile Function
###############################################################################