⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 douserrumor.pl

📁 这个社区是虚拟社区使用的程序
💻 PL
📖 第 1 页 / 共 2 页
字号:
🔍
12 
								&Td("","",$ColSpan,"","","","","","").
							        &Font($FontFace,$BoardDesTextSize,$TextColor).
										"江湖履历：".$MemberInfo[14].
									"</font>".
								"</td>".
							"</tr>";
				}
		$HTML.=	"</table></td></tr></table><p>".
			&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$HeaderBGColor).
					$Title.
				"</tr>".
				$List.
				&Tr("","",$MenuBGColor).
					&Td("","",$ColSpan,"","","","","","").
						&PrintVersion("YES").
					"</td>".
				"</tr>".
			&CBTable();
		&PrintTheme("$UBName",$HTML);
	}elsif ($in{'Function'} =~/Faction/) {
		$FactionPublic=$in{'Function'}."Public";
		$FactionMaster=$in{'Function'}."Master";
		$ColSpan="5";
		$Title.=&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>玩家名称及ID</b>"."</font>"."</td>".
					&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>目前身份</b>"."</font>"."</td>".
						&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>权限等级</b>"."</font>"."</td>".
							&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>最近金钱</b>"."</font>"."</td>".
								&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>最近经验</b>"."</font>"."</td>";
		open(USERRUMOR,"$Shop_DIRECTORY/BeggarData/UserRumor.Data")||&CGIError("Couldn't open/read the UserRumor.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
			flock(USERRUMOR,1) if ($FLock);
				@USERRUMOR_DATA=<USERRUMOR>;
		close(USERRUMOR);
		for (my ($i)=1;$i<=$#USERRUMOR_DATA;$i++) {
			@RUMOR_DATA=&DecodeDBOutput($USERRUMOR_DATA[$i]);
			if ($in{'Function'} eq $RUMOR_DATA[0]) {
				$SpendVRM=$RUMOR_DATA[6];
				last;
			}
		}
		open(COUNT,"$Shop_DIRECTORY/BeggarData/BeggarMoney.Data")||&CGIError("Couldn't open/read the BeggarMoney.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
			flock(COUNT,1) if ($FLock);
				@COUNT_DATA=&DecodeDBOutput(<COUNT>);
		close(COUNT);
		if (($MemberData[3] ne $FactionMaster)&&($MemberData[3] ne "administrator")){
			if ($MemberData[18] > $SpendVRM) {
				$MemberData[18]-= $SpendVRM;
				&SaveMemberData($MemberData[0],@MemberData);
				$COUNT_DATA[0]+=$SpendVRM;
				open(COUNT,">$Shop_DIRECTORY/BeggarData/BeggarMoney.Data")||&CGIError("Couldn't create/write the BeggarMoney.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
					flock(COUNT,2) if ($FLock);
						print COUNT &EncodeDBInput(@COUNT_DATA);
					flock(COUNT,8) if ($FLock);
				close(COUNT);
				open(COUNT,"$Shop_DIRECTORY/BeggarData/BeggarMoney1.Data")||&CGIError("Couldn't open/read the BeggarMoney1.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
					flock(COUNT,1) if ($FLock);
						@COUNT_DATA1=&DecodeDBOutput(<COUNT>);
				close(COUNT);
				$COUNT_DATA1[0]+=10;
				open(COUNT,">$Shop_DIRECTORY/BeggarData/BeggarMoney1.Data")||&CGIError("Couldn't create/write the BeggarMoney1.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
					flock(COUNT,2) if ($FLock);
						print COUNT &EncodeDBInput(@COUNT_DATA1);
					flock(COUNT,8) if ($FLock);
				close(COUNT);
			}
			else{
				&ShowError("你没有足够的虚拟货币！","丐帮的兄弟也要吃饭，请凑够的钱再来吧，谢谢！");
			}
		}
		open(MASTERDATA,"$MembersPath/$FactionMaster.grp")||&CGIError("Couldn't open/read the $FactionMaster.grp file<br>\nPath: $MembersPath<br>\nReason : $!");
			flock(MASTERDATA,1) if ($FLock);
				@MASTER_DATA=<MASTERDATA>;
		close(MASTERDATA);
		@MASTER_INFO=&DecodeDBOutput($MASTER_DATA[0]);

		open(PUBLICDATA,"$MembersPath/$FactionPublic.grp")||&CGIError("Couldn't open/read the $FactionMaster.grp file<br>\nPath: $MembersPath<br>\nReason : $!");
			flock(PUBLICDATA,1) if ($FLock);
				@PUBLIC_DATA=<PUBLICDATA>;
		close(PUBLICDATA);
		$Total_Member=$#MASTER_DATA+$#PUBLIC_DATA;
		$HTML.=	"<p>".&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
			&Tr("","",$HeaderBGColor).
				&Td("","","","","","","","","").
					&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
						"<center><b>$MASTER_INFO[1]各阶共有<font color=yellow>$Total_Member</font>位玩家</b><center>".
						&Td("","","","","RIGHT","","","","").
							&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
								"丐帮总资产：<font color=orange>$COUNT_DATA[0]</font>".
							"</font>".
						"</font>".
					"</td>".
				"</td>".
			"</tr>";
		printf("<div align=center><table width=700><tr><td>");

		for ($i=1;$i<=$#MASTER_DATA;$i++) {
			@MemberInfo=&GetMemberData(&DecodeDBOutput($MASTER_DATA[$i]));
			$Rank="一般";
			$ChatLevel=1;
			@MemberInfo23 = &DecodeDBOutput($MemberInfo[23]);
			open(GROUP,"$MembersPath/$MemberInfo[3].rank")||&CGIError("Couldn't open/read the $MemberInfo[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];
					$ChatLevel=1 + $Group[2];
	              	last;
				}
			}
			close(GROUP);
			$Message.="<table width=100% border=0 cellspacing=1 cellpadding=3 align=CENTER bgcolor=black>";
			$OtherStatus="显示人物详细资料";
			$GenderColor="<font color=blue>";
			if ($MemberInfo[22] eq "male"){
				$GenderColor="<font color=smalt>";
			}
			elsif ($MemberInfo[22] eq "female"){
				$GenderColor="<font color=claret>";
			}
			$List.=	&Tr("","",$RowOddBGColor).
						&Td("","","","","","","",$ColumnOddBGColor,"").
							&Table("","","0","0","","").
								&Tr("","","").
									&Td("","","","","","","","","").
										&Font($FontFace,$BoardNameTextSize,$TextColor).
											&Link("UltraBoard.$Ext?Action=ShowProfile&ID=$MemberInfo[0]&Category=$in{'Category'}&Session=$SessionID","Profile","",
												"$OtherStatus").
												"<b>".$GenderColor.$MemberInfo[1]."</b>".
											"</a>".
											"</font>".
											" (".
											&Link("UltraBoard.pl?Action=SendMessage&ReName=$MemberInfo[0]&Ref=$in{'Action'}&Category=$in{'Category'}&Board=$in{'Board'}&Post=$in{'Post'}&ID=$in{'ID'}&Session=$SessionID","Call","",
												"即刻联系 $MemberInfo[1]").
											$MemberInfo[0].
											"</a>".
											")".
										"</font>".
									"</td>".
								"</tr>".
							"</table>".
						"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,$TextColor).
									$Rank.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnEvenBGColor,"").
								&Font($FontFace,$TextSize,"maroon").
									$ChatLevel.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,"blue").
									$MemberInfo[18].
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,$TextColor).
									$MemberInfo23[1].
								"</font>".
							"</td>";
		}
		open(GROUP,"$MembersPath/$FactionPublic.rank")||&CGIError("Couldn't open/read the $FactionPublic.rank file<br>\nPath: $MembersPath<br>\nReason : $!");
			flock(GROUP,1) if ($FLock);
				@GROUP_DATA=<GROUP>;
		close(GROUP);
		for ($i=0;$i<=$#GROUP_DATA;$i++) {
			@RankMembers=&DecodeDBOutput($GROUP_DATA[$i]);
			if ($RankMembers[3] ne "") {
			@MemberInfo=&GetMemberData($RankMembers[3]);
			$Rank="一般";
			$ChatLevel=1;
			@MemberInfo23 = &DecodeDBOutput($MemberInfo[23]);
			open(GROUP,"$MembersPath/$MemberInfo[3].rank")||&CGIError("Couldn't open/read the $MemberInfo[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];
					$ChatLevel=1 + $Group[2];
	              	last;
				}
			}
			close(GROUP);
			$Message.="<table width=100% border=0 cellspacing=1 cellpadding=3 align=CENTER bgcolor=black>";
			$OtherStatus="显示人物详细资料";
			$GenderColor="<font color=blue>";
			if ($MemberInfo[22] eq "male"){
				$GenderColor="<font color=smalt>";
			}
			elsif ($MemberInfo[22] eq "female"){
				$GenderColor="<font color=claret>";
			}
			$List.=	&Tr("","",$RowOddBGColor).
						&Td("","","","","","","",$ColumnOddBGColor,"").
							&Table("","","0","0","","").
								&Tr("","","").
									&Td("","","","","","","","","").
										&Font($FontFace,$BoardNameTextSize,$TextColor).
											&Link("UltraBoard.$Ext?Action=ShowProfile&ID=$MemberInfo[0]&Category=$in{'Category'}&Session=$SessionID","Profile","",
												"$OtherStatus").
												"<b>".$GenderColor.$MemberInfo[1]."</b>".
											"</a>".
											"</font>".
											" (".
											&Link("UltraBoard.pl?Action=SendMessage&ReName=$MemberInfo[0]&Ref=$in{'Action'}&Category=$in{'Category'}&Board=$in{'Board'}&Post=$in{'Post'}&ID=$in{'ID'}&Session=$SessionID","Call","",
												"即刻联系 $MemberInfo[1]").
											$MemberInfo[0].
											"</a>".
											")".
										"</font>".
									"</td>".
								"</tr>".
							"</table>".
						"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,$TextColor).
									$Rank.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnEvenBGColor,"").
								&Font($FontFace,$TextSize,"maroon").
									$ChatLevel.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,"blue").
									$MemberInfo[18].
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,$TextColor).
									$MemberInfo23[1].
								"</font>".
							"</td>";
			}
		}
		for ($i=1;$i<=$#PUBLIC_DATA;$i++) {
			@MemberInfo=&GetMemberData(&DecodeDBOutput($PUBLIC_DATA[$i]));
			$Rank="一般";
			$ChatLevel=1;
			@MemberInfo23 = &DecodeDBOutput($MemberInfo[23]);
			open(GROUP,"$MembersPath/$MemberInfo[3].rank")||&CGIError("Couldn't open/read the $MemberInfo[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];
					$ChatLevel=1 + $Group[2];
	              	last;
				}
			}
			close(GROUP);
			if ($ChatLevel <= 3) {
			$Message.="<table width=100% border=0 cellspacing=1 cellpadding=3 align=CENTER bgcolor=black>";
			$OtherStatus="显示人物详细资料";
			$GenderColor="<font color=blue>";
			if ($MemberInfo[22] eq "male"){
				$GenderColor="<font color=smalt>";
			}
			elsif ($MemberInfo[22] eq "female"){
				$GenderColor="<font color=claret>";
			}
			$List.=	&Tr("","",$RowOddBGColor).
						&Td("","","","","","","",$ColumnOddBGColor,"").
							&Table("","","0","0","","").
								&Tr("","","").
									&Td("","","","","","","","","").
										&Font($FontFace,$BoardNameTextSize,$TextColor).
											&Link("UltraBoard.$Ext?Action=ShowProfile&ID=$MemberInfo[0]&Category=$in{'Category'}&Session=$SessionID","Profile","",
												"$OtherStatus").
												"<b>".$GenderColor.$MemberInfo[1]."</b>".
											"</a>".
											"</font>".
											" (".
											&Link("UltraBoard.pl?Action=SendMessage&ReName=$MemberInfo[0]&Ref=$in{'Action'}&Category=$in{'Category'}&Board=$in{'Board'}&Post=$in{'Post'}&ID=$in{'ID'}&Session=$SessionID","Call","",
												"即刻联系 $MemberInfo[1]").
											$MemberInfo[0].
											"</a>".
											")".
										"</font>".
									"</td>".
								"</tr>".
							"</table>".
						"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,$TextColor).
									$Rank.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnEvenBGColor,"").
								&Font($FontFace,$TextSize,"maroon").
									$ChatLevel.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,"blue").
									$MemberInfo[18].
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,$TextColor).
									$MemberInfo23[1].
								"</font>".
							"</td>";
			}
		}
		$HTML.=	"</table></td></tr></table><p>".
			&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$HeaderBGColor).
					$Title.
				"</tr>".
				$List.
				&Tr("","",$MenuBGColor).
					&Td("","",$ColSpan,"","","","","","").
						&PrintVersion("YES").
					"</td>".
				"</tr>".
			&CBTable();
		&PrintTheme("$UBName",$HTML);
	}
	else{
		&ShowError("艰苦建设中！","请各位关注并提供宝贵的意见！");
	}
	exit;
}
###############################################################################
1;# End of ShowProfile Function
###############################################################################
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -