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

📄 home.pl

📁 这个社区是虚拟社区使用的程序
💻 PL
字号:
🔍 
###############################################################################
# Home.pl                                                                     #
###############################################################################
# Home Ver. 1.61 by LastSun （龙追日）                                        #
# Scripts written by lastsun@netease.com                                      #
# --------------------------------------------------------------------------- #
# PROGRAM NAME : Home for UltraBoard v:1.61                                   #
# VERSION : 0.99                                                              #
# LAST MODIFIED : 30/12/1999                                                  #
# =========================================================================== #
# COPYRIGHT NOTICE :                                                          #
#                                                                             #
# Copyright (c) 1999 龙追日. All Rights Reserved.                             #
###############################################################################

###############################################################################
# Home                                                                        #
###############################################################################
sub Home {
	if ($DisplayFront eq "") {
		print "Location: $URLSite\n\n";
		exit;
	}
	my ($HTML, $Menu, $List);
###############################################################################
	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 ($MemberData[3] eq $Group[0]) {
		   		$StatusUser=$Group[1];
       			last;
			}
		}
	close(GROUP);

	$Rank="一般";
	@MemberInfo23 = &DecodeDBOutput($MemberData[23]);
	open(GROUP,"$MembersPath/$MemberData[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);
	@MemberInfo24 = &DecodeDBOutput($MemberData[24]);
	@MemberInfo25 = &DecodeDBOutput($MemberData[25]);
###############################################################################
	if ($MemberData[1]) {
		$Greet="<b><center><span style=\"letter-spacing: 4\">职能鉴定中心</span></center></b>";
		$Logged="你可以在自己的家里做一些事情。";
	}else{
		$Greet="<b>".$MemberData[1]."</b> <span style=\"letter-spacing: 4\">你已经来到了满载武林豪杰梦的江湖!你的一切将从这里开始……</span>";
		$Logged="<span style=\"letter-spacing: 2\">如果您还不是这里江湖人士！请先通过<a href=\"UltraBoard.$Ext?Action=SignUp\" OnMouseOver=\"window.status='注册新用户';return true;\" OnMouseOut=\"window.status=''\"><ACRONYM TITLE=\"注册新用户\"><u>新人报道</ACRONYM></u></a>注册。<br><font color=FF8800>已经注册的英雄豪杰<a href=\"UltraBoard.$Ext?Action=SignIn\" OnMouseOver=\"window.status='登录';return true;\" OnMouseOut=\"window.status=''\"><ACRONYM TITLE=\"登录\"><u>请由此进入</u></ACRONYM></a>江湖的世界。";
	}
	$HTML.=	"<p>".&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							$Greet.
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","","","","","","","").
						&Table("100%","","0","0","","").
							&Tr("","","").
								&Td("50%","","","","","","","","").
									&Font($FontFace,$CategoryDesTextSize,$CategoryTextColor).
										$Logged.
									"</font>".
								"</td>".
							"</tr>".
						"</table>".
					"</td>".
				"</tr>".	
			"</table></td></tr></table>";
	if ($Group ne "Guest") {
		$USERINFO.=	"<table width=100% border=0 cellspacing=1 bgcolor=999999 cellpadding=0>".
					"<tr>".
					"<td width=20% height=20 bgcolor=#999999 align=center><span style=\"font:9pt\"><font color=EEEEEE><b>用 户 资 料</b></font></td>".
					"<td width=80% height=20 bgcolor=#DDDDDD><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>$MemberData[1]（$MemberData[0]）</font>".
					"</td></tr></table>".
						"</td>".
					"</tr>".
					"<tr>".
					"<td width=20% height=20 bgcolor=#CCCCCC align=center>".
						&Image("$MemberData[19].jpg","133","150","","","3","$MemberData[1]").
					"</td>".
					"<td width=80% height=20 bgcolor=#EEEEEE valign=top>".
					"<table width=100% border=0 cellpadding=5>".
					"<tr><td valign=top><span style=\"font:9pt\"><font color=navy>目前所属：$StatusUser 目前身份：$Rank</font></span></td></tr>".
					"<tr><td valign=top><span style=\"font:9pt\"><font color=FF8800>江湖经验：$MemberInfo23[1] 点 共发帖子数：$MemberData[5] 张</font></span></td></tr>".
					"<tr><td valign=top><span style=\"font:9pt\"><font color=FF0080>虚拟货币：$MemberData[18] 个江湖货币单位 (暂时采用，日后修改)</font></span></td></tr>".
					"<tr><td valign=top><span style=\"font:9pt\"><font color=green>体格：$MemberInfo24[0] 体质：$MemberInfo24[1] 悟性：$MemberInfo24[2] 灵性：$MemberInfo24[3] 附加值：$MemberInfo24[4] 攻击力：+0 防御力：+0</font></span></td></tr>".
					"<tr><td valign=top><span style=\"font:9pt\"><font color=407FBC>气血：$MemberInfo25[2]/$MemberInfo25[3] 内力：$MemberInfo25[4]/$MemberInfo25[5] 精力：$MemberInfo25[6] 心神：$MemberInfo25[7] 食物：$MemberInfo25[0]% 饮水：$MemberInfo25[1]%</font></span></td></tr>".
					"<tr><td valigh=top><span style=\"font:9pt\"><font color=804000>第一次修行：</font>".
					&GetDate($MemberData[16],804000,804000,$TextSize,$TextSize).
					"<font color=black> 上一次修行：</font></span>".
					&GetDate($MemberData[7],black,black,$TextSize,$TextSize).
					"</tr></td>".
					"</table>".
					"</td>".
					"</tr>";

		$ColSpan="2";
		$Title.=&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<center><b>拥有功能</b></center>"."</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>";

		if (!(-e "$UesrHomePath/$MemberData[3]/$MemberInfo23[0].home")) {
			&ShowError("辛苦建设中","请提供你宝贵的意见和建议！");
		}
		open(HOME,"$UesrHomePath/$MemberData[3]/$MemberInfo23[0].home")||&CGIError("Couldn't open/read the $MemberInfo23[0].home file<br>\nReason : $!");
			flock(HOME,1) if ($FLock);
				@HOMEDATA=<HOME>;
		close(GROUP);
		for (my ($i)=1;$i<=$#HOMEDATA;$i++) {
			@HOME_DATA=&DecodeDBOutput($HOMEDATA[$i]);
			$OtherStatus="特殊区域";
			$List.=	&Tr("","",$RowOddBGColor).
						&Td("","","","","","","",$ColumnOddBGColor,"").
							&Table("","","0","0","","").
								&Td("","","","","","","","","").
									$Shop_Image.
								"</td>".
								&Td("","","","","","","","","").
									&Font($FontFace,$BoardNameTextSize,$TextColor).
										&Link("UltraBoard.$Ext?Action=$HOME_DATA[0]&Function=$HOME_DATA[3]$RUMOR_DATA[0]&Category=$in{'Category'}&Session=$SessionID","","",
											"$OtherStatus").
											"<b>".$HOME_DATA[1]."</b>".
										"</a>".													
									"</font>".
								"</td>".
							"</table>".
						"</td>";
			$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
						&Font($FontFace,$TextSize,$TextColor).
							$HOME_DATA[2].
						"</font>".
					"</td>";
		}
	}
	$HTML.=	"<p>".
			&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$HeaderBGColor).
					$Title.
				$List.
				"</tr></table></table><p>".
				$USERINFO.
				&Tr("","",$MenuBGColor).
					&Td("","",$ColSpan,"","","","","","").
						&PrintVersion().
					"</td>".
				"</tr>".
			&CBTable();
	&PrintTheme("$UBName",$HTML);
	exit;
}
###############################################################################
1;# End of Main Function
###############################################################################

⌨️ 快捷键说明

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