📄 ebs_sub2.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 2 页
字号:
12 下一页
sub LOGIN2{
		@pair = split(/;/, $ENV{'HTTP_COOKIE'});
		foreach (@pair) {my($key, $value) = split(/=/, $_);$DUMMY{$key} = $value;}
	@pairs = split(/,/, $DUMMY{EB});
		foreach (@pairs) {my($key, $value) = split(/:/, $_);$COOKIE{$key} = $value;}

	print "Content-type: text/html\n\n";
	print "<LINK href=miuler.css rel=stylesheet>";
	print << "	-----END-----";
	<html><head>
	<SCRIPT language=JavaScript1.2>
	function high(which2){
	theobject=which2
	highlighting=setInterval("highlightit(theobject)",50)
	}
	function low(which2){
	clearInterval(highlighting)
	which2.filters.alpha.opacity=30
	}
	function highlightit(cur2){
	if (cur2.filters.alpha.opacity<100)
	cur2.filters.alpha.opacity+=10
	else if (window.highlighting)
	clearInterval(highlighting)
	}

	</SCRIPT>
	<script language="JavaScript">
		function showform(){login.style.visibility='visible';}
		function hideform(){login.style.visibility='hidden';}
		function showdata(){data.style.visibility='visible';}
		function hidedata(){data.style.visibility='hidden';}
	</script>
	<style type="text/css">
		a:link    {font-size: 17px; text-decoration:none; color:#707070; }
		a:visited {font-size: 17px; text-decoration:none; color:#707070; }
		a:active  {font-size: 17px; text-decoration:none; color:#707070; }
		a:hover   {font-size: 17px; text-decoration:none; color:#dcdcdc; }
	</style>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<body background=$IMG_FOLDER4/star_bg.jpg bgproperties="fixed" text=#00FF00 topmargin=0 oncontextmenu="return false;">
<style>
<!--
BODY {SCROLLBAR-FACE-COLOR: #000000; SCROLLBAR-HIGHLIGHT-COLOR: #000000; SCROLLBAR-SHADOW-COLOR: #808000; SCROLLBAR-3DLIGHT-COLOR: #FFFFFF; SCROLLBAR-ARROW-COLOR:  #FF6600; SCROLLBAR-TRACK-COLOR: #333333; SCROLLBAR-DARKSHADOW-COLOR: #000000; }
-->
</style>
<LINK href=miuler.css type=text/css rel=stylesheet>

	<a name=#top>
	<table width=100% height=100% id="login" style="position:absolute;visibility:hidden;"><tr><td align=center>
		<table border=0 cellpadding=0 cellspacing=0 $center>
		<form action=$MAIN_SCRIPT method=POST name=frm1 style=\"margin:0px 0px 0px 0px;\">
		<tr><td $center $bg_top><input type=hidden name="cmd" value="MAIN_FRAME">
		<input type=hidden name="login" value="$DATE">
		<b>用户名</b></td>
		<td>&nbsp;<input type=text name="pname" value="$COOKIE{'pname'}" style="height:16px; color:#00ff00; font-size:12px; background:#000000; border:1 inset #c0c0c0;"></td><td>&nbsp;&nbsp;<a href="Javascript:hideform();"><img src=$IMG_FOLDER4/out.gif border=0></A></td></tr>
		<tr><td $center $bg_top><b>密&nbsp;&nbsp;码</b></td>
		<td>&nbsp;<input type=password name="pass" value="$COOKIE{'pass'}" style="height:16px; color:#00ff00; font-size:12px; background:#000000; border:1 inset #c0c0c0;">
		</td><td>&nbsp;&nbsp;<input type=image src="http://localhost/seb2/images/log.gif" name=lgn>
		</td></tr></form></table>
	</td></tr></table>
	<table width=100% height=100% id="data" style="position:absolute;visibility:hidden;"><tr><td align=center>
		<table border=0 cellpadding=0 cellspacing=0 $center style="border:0px solid;">
		<tr><td $bg_top $center $middle><font><a href="info.htm" target="_top">新手说明</a></td><td><a href="Javascript:hidedata();"><img src=$IMG_FOLDER4/close.gif border=0></td>
		</tr>
		<tr><td $bg_top $center><a href="$MAIN_SCRIPT?DELETE2" target="_top">用户自杀</a></td>
			</tr>
	-----END-----
	print << "	-----END-----"if $SATELLITE_FLAG;
		<tr><td $bg_top $center $middle><a href="$MAIN_SCRIPT?EXPORT" target="_top">资料导出</a></td>
			</tr>
		<tr><td $bg_top $center $middle><a href="$MAIN_SCRIPT?INPORT" target="_top">资料导入</a></td>
			</tr>
	-----END-----
	print << "	-----END-----";
		<tr><td $bg_top $center $middle><a href="$MAIN_SCRIPT?WEAPON" target="_blank">武器资料</a></td>
			</tr>
		<tr><td $bg_top $center $middle><a href="$MAIN_SCRIPT?ICON" target="_blank">战士图库</a></td>
			</tr>
		<tr><td $bg_top $center $middle><a href="weaponlist.cgi" target="_blank">详细武器列表</a></td>
			</tr>
		<tr><td $bg_top $center $middle><a href="name.cgi" target="_blank">玩家账号查询</a></td>
			</tr>
		</table>
	</td></tr></table>

	<table border=0 width=100% height=100%>
	<tr><td $center $middle>
	<img src=$IMG_FOLDER4/logo.gif><br>
	-----END-----
	$js1="";
	print "<a href=\"Javascript:showform();\"><img border=\"0\" src=\"$IMG_FOLDER4/star_03h.gif\" onMouseOver=high(this) onMouseOut=low(this) style='filter: alpha(opacity=30); border-style: solid; border-width: 0'></a>";

	if (!$COOKIE{'pname'} && !$COOKIE{'pass'}){
	print "&nbsp;<a href=\"ebs.cgi?ENTRY\" target=\"_top\"><img border=\"0\" src=\"$IMG_FOLDER4/star_05h.gif\" onMouseOver=high(this) onMouseOut=low(this) style='filter: alpha(opacity=30); border-style: solid; border-width: 0'></a>";
	}
	print "&nbsp;<a href=\"Javascript:showdata();\"><img border=\"0\" src=\"$IMG_FOLDER4/star_07h.gif\" onMouseOver=high(this) onMouseOut=low(this) style='filter: alpha(opacity=30); border-style: solid; border-width: 0'></a>";
	print "</td></tr></table></body></html>";

	print "<script language=\"JavaScript\">location.href='#top';\n</script>\n" if $BANNER_DISPLAY;

}
#########################
#     下框架设置        #
#########################
sub LOG01{
	&HEADER2;
if ($CONFIG_DISPLAY){
	print "<LINK href=htmlcn.css rel=stylesheet>";
	print "<table border=0 cellspacing=0 cellpadding=0>";
	print "<tr><td colspan=2><img src=http://localhost/seb2/images/linkbarleft.gif><br><img src=http://localhost/seb2/images/lt_star.gif></td>";
	print "<td rowspan=8 $top width=500 $center>";
	print "<br><iframe src=history.cgi name=history width=95% height=210 marginheight=0 marginwidth=0 frameborder=0 scrolling=NO></iframe>";
	print << "	-----END-----";
	<br><center>版本$VER官方网站:<a href="http://www.ngcoms.net/" target=_blank>NET GAME.</a>中文化改造:<a href=\http://web.gameside.net/\ target=_blank>繆拉</a>
	-----END-----
	print "<br>站長: <a href=$THIS_DIR target=_blank>$OWNER_NAME </a> ;</center>" if $OWNER_NAME;
       print "<center><a href=\http://web.gameside.net/\ target=_blank><img src=webgamelogo.gif></a>";
	print "</span>";
	print "</td><td colspan=2 $right><img src=http://localhost/seb2/images/linkbarright.gif><br><img src=http://localhost/seb2/images/rt_star.gif></td></tr><tr>";
	print "<td $buttonl $middle>$left_c管理人员</td><td $right><a href=\"mailto:$OWNER_EMAIL?subject=EBS在线信息\">$OWNER_NAME</a></td>";
	print "<td $bottom>\$$MAKE_COUNTRY</td>";
        print "<td $buttonr $middle $right>建国费用$left_b</td></tr>";

	print "<tr><td $buttonl $middle>$left_c机甲图片</td><td $right>$ICON";
	print "" if $SPECIAL_ICON;print "</td>";
	dbmopen (%P,"$DBM_P",0666);	@ENTRy=keys %P;	dbmclose %L;
	$ENTRYS=@ENTRy;
	print "<td $middle>\$$MAKE_TEAM</td>";
	print "<td $buttonr $middle $right>部队编成$left_b</td></tr>";
	print "<tr><td $buttonl $middle>$left_c登录上限 (人)</td><td $right>$ENTRY_MAX</td>";
	print "<td $middle>$COUNTRY_MAX</td>";
	print "<td $buttonr $middle $right>国家数目$left_b</td></tr>";
	print "<tr><td $buttonl valign=\"middle\">$left_c现有人数 (人)</td><td $right>$ENTRYS</td>";
	print "<td></td>";
	print "<td $buttonr $middle $right><a href=$BBS_DIR target=_blank>游戏论坛</a>$left_b</td></tr>";
	print "<tr><td $buttonl $middle>$left_c档案保留 (日)</td><td $right>$COOKIE_KEEP</td>";
	print "<td></td>";
	print "<td $buttonr $middle $right><a href=info.htm target=_blank>游戏说明</a>$left_b</td></tr>";
	print "<tr><td $buttonl $middle>$left_c HP回复 (每秒)</td><td $right>$HP_REPAIR</td>";
	print "<td></td>";
	print "<td $buttonr $middle $right><a href=http://web.gameside.net target=_blank>遊戲邊緣</a>$left_b</td></tr>";
	print "<tr><td $buttonl $middle>$left_c EN回复 (每秒)</td><td $right>$EN_REPAIR</td>";
	print "<td></td>";
	print "<td $buttonr $middle $right><a href=#>版权信息</a>$left_b</td></tr>";
	print "</table>";
}
	print "$COMMENT_2" if $COMMENT_2;

}
sub LOGO2{
	&HEADER;
	print "$COMMENT_3" if $COMMENT_3;
	&FOOTER;
}
sub MY_LIST2{
	@pair = split(/\;/, $ENV{'HTTP_COOKIE'});
		foreach (@pair) {my($key, $value) = split(/=/, $_);$DUMMY{$key} = $value;}
	@pairs = split(/\,/, $DUMMY{'EB'});
		foreach (@pairs) {my($key, $value) = split(/\:/, $_);$COOKIE{"$key"} = $value;}

	&ERROR('COOKIE已经过期') if !$COOKIE{'pname'};
	&HEADER;
	&DBM_INPORT(P);
	@PL_VALUES = split(/\s/,$P{"$COOKIE{'pname'}"});
	&DBM_CONVERT('C',"$PL_VALUES[5]");

	sub TR {$VALUES[7]='No-Comment'if !$VALUES[7];"<tr><td nowrap style=\"color:$VALUES[13];\">$Key</td><td>".&RANK($VALUES[0],$VALUES[5],$VALUES[6])."</td><td><img src=$IMG_FOLDER2/$VALUES[27].gif width=32 height=32></td><td style=\"color:$VALUES[13];\">$VALUES[7]</td></tr>"}

	print "<table $center border=8 cellspacing=0 style=\"font-size:15px;border:8px outset $CL_VALUES[0];\">";
	print "<tr><td colspan=4 bgcolor=$CL_VALUES[0] style=\"color:red;font-size:20px;\">$PL_VALUES[5]";
	print "<span style=\"font-size:15px;\">&nbsp;&nbsp;国费&nbsp;<b>\$$CL_VALUES[1]</b></span>"if $PL_VALUES[5];
	print "<span style=\"font-size:15px;\">  要塞状态 <b>\装甲$Y_HP[1] 威力$Y_ST[0] 防御$Y_ST[1] 命中$Y_ST[2]</b></span>"if $PL_VALUES[5];
	print "</td></tr>";
	foreach $Key (sort {$P{$b} <=> $P{$a}} keys %P){
		@VALUES = split(/\s/,$P{$Key});
		if (!$PL_VALUES[5] && !$VALUES[5]){print &TR;}
		if ($PL_VALUES[5] && $PL_VALUES[5] eq $VALUES[5] && !$VALUES[28] && ($VALUES[6] == 1 || $VALUES[6] == 0)){print &TR;}
12 下一页
💿 文件大小 5847 K
👤 上传用户 piaoxue061906
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#WEBGAME #WIN2K #EBS #机器人
⌨️ 快捷键说明

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