📄 main.pl
字号:
#########################################################################################################################################################
if ($CATEGORY_INFO[6] eq "Protected" ){
$CATEGORY_INFO_CHINESE="非公共区域";
}else{
$CATEGORY_INFO_CHINESE="公共区域";
}
#########################################################################################################################################################
$WindowStatus=$CATEGORY_INFO_CHINESE." 此区域您 (".$AccessStatus."), $UnRead";
$List.= &Tr("","",$RowOddBGColor).
&Td("","","","","","","",$ColumnOddBGColor,"").
&Table("","","0","0","","").
&Tr("","","").
&Td("20","","","","","","","","").
$MessageIcon.
"</td>".
&Td("","","","","","","","","").
&Font($FontFace,$BoardNameTextSize,$TextColor).
&Link("UltraBoard.$Ext?Action=ShowBoard&Board=$CATEGORY_INFO[0]&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Session=$SessionID","","",
"$WindowStatus").
"<b>".$CATEGORY_INFO[1]."</b>".
"</a>".
"</font>".
"</td>".
"</tr>".
"</table>".
"</td>".
&Td("","","","","","","",$ColumnEvenBGColor,"").
&Font($FontFace,$TextSize,$TextColor);
if ($CATEGORY_INFO[4]) {
open(GROUP,"$MembersPath/$CATEGORY_INFO[4].grp")||&CGIError("Couldn't open/read the $CATEGORY_INFO[4].grp file<br>\nPath: $MembersPath<br>\nReason : $!");
flock(GROUP,1) if ($FLock);
@GROUP_DATA=<GROUP>;
close(GROUP);
@GroupInfo=&DecodeDBOutput($GROUP_DATA[0]);
$List.= $GroupInfo[1];
}else{
$List.= "N/A";
}
$List.= "</font>".
"</td>";
if (($ShowTotal eq "Both")||($ShowTotal eq "Topics")) {
$List.= &Td("","","","","","","",$ColumnOddBGColor,"").
&Font($FontFace,$TextSize,$TextColor).
"<center>".$BOARD_INFO[1]."</center>".
"</font>".
"</td>";
}
if (($ShowTotal eq "Both")||($ShowTotal eq "Posts")) {
$List.= &Td("","","","","","","",$ColumnEvenBGColor,"").
&Font($FontFace,$TextSize,$TextColor).
"<center>".$BOARD_INFO[2]."</center>".
"</font>".
"</td>";
}
$List.= &Td("","","","","","","",$ColumnOddBGColor,"").
&Font($FontFace,$DateTextSize,$DateTextColor).
&GetDate($BOARD_INFO[3],$DateTextColor,$TimeTextColor,$DateTextSize,$TimeTextSize).
"</font>".
"</td>".
"</tr>";
if (($DisplayBoardDes)&&($CATEGORY_INFO[2])) {
$List.= &Tr("","",$RowEvenBGColor).
&Td("","",$ColSpan,"","","","","","").
&Font($FontFace,$BoardDesTextSize,$TextColor).
$CATEGORY_INFO[2].
"</font>".
"<p>".
"</td>".
"</tr>";
}
%Access={}; # Clean Member List in Private Board
}
}
}
}
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 ($Group ne "Guest") {
if ((!defined ($MemberStatus))||($MemberStatus ne "ReadOnly")) {
$HTML.= "<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>";
}
}
if ($MemberData[1]) {
$Greet="<b><span style=\"letter-spacing: 4\">开始闯荡江湖!一抹寒剑笑冷月，半壶热酒走江湖！</span></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>江湖的世界。";
}
if ($ShowNumberMembers) {
open(DB,"$MembersPath/Members.total")||&CGIError("Couldn't open/read the Members.total file<br>\nPath: $MembersPath<br>\nReason : $!");
flock(DB,1) if ($FLock);
$TotalMembers=<DB>;
close(DB);
$NumberMembers="已经有 <font color=red>$TotalMembers</font> 个用户注册";
}
$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>".
&Td("50%","","","","RIGHT","","","","").
&Font($FontFace,$CategoryDesTextSize,$CategoryTextColor).
$NumberMembers.
"</font>".
"</td>".
"</tr>".
"</table>".
"</td>".
"</tr>".
"</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);
exit;
}
###############################################################################
1;# End of Main Function
###############################################################################⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -