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

📄 ebadministrator.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
#!/usr/bin/perl

#ver.5
#设定
$SCRIPTNM="ebadministrator.cgi";    #档案名称
$USERDATA="backup/backup.dat";        #使用者资料备分

require 'ebs_sub1.cgi';

&ERROR('请不要直接从此地址进入','安全起见请从您访问的网页进入') if $ENV{'HTTP_REFERER'} !~ m/^$THIS_DIR/ && $DIRECT_LINK && $SUB ne 'MY_LIST' && $SUB ne 'C_LIST';

!$SUB && ($SUB='MAINTE');
&$SUB;

sub MAINTE		{&MAINTENANCE;}
sub MAINTE2		{&MAINTENANCE2;}

sub ebadministrator              {&MASTER2;}
sub SYUSEI		{&SYUSEI2;}
sub TYOUSEI		{&TYOUSEI2;&SYUSEI2;}

sub BACKUP              {&BACKUP2;}
sub DATAUP{&DATAUP2;}
sub HUKUGEN		{&SYUSEI4;}
sub SYUUHUKU		{&TYOUSEI2;&SYUSEI4;}

sub COUNTRY             {&COUNTRY2;}
sub HENSYU		{&HENSYU2;}
sub KAIZAN		{&KAIZAN2;&HENSYU2;}

sub COOKIES              {&COOKIES2;}
sub DEL		{&DEL2;&COOKIES2;}

sub MAINTENANCE{
	&HEADER;
	print << "	-----END-----";
	<table width=100% height=100%><tr><td align=center>
		<table border=0 cellpadding=0 cellspacing=0 bgcolor="#909090" align=center
		 style="border:1px outset #909090;font-size:16px;">
		<form action=$SCRIPTNM method=POST><input type=hidden name="cmd" value="MAINTE2">
		<tr><td style="background-color:#404040;" colspan=2>
		&nbsp;Maintenance Mode</td></tr>
		<tr><td align=center><b style="color:#000000;">PASS</b></td>
		<td><input type=password name="pass" style="height:21px; color:#ffffff; font-size:16px; background:#000000; border:1 inset #c0c0c0;">
		<input type=submit value=Login class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
		</td></tr></form></table>
	<form action=$MAIN_SCRIPT method=POST>
	<input type=submit value=确定 class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
	</form>
	</td></tr></table>
		
	-----END-----
}
sub MAINTENANCE2{
	&ERROR('密码错误！！') if $MASTER_PWD ne "$FORM{'pass'}";
	
	&HEADER;
	print << "	-----END-----";
	<form action=$SCRIPTNM method=POST name=mainte>
	<input type=hidden name="cmd"><input type=hidden name="pass" value="$FORM{'pass'}">
	<table width=100% height=100%><tr><td align=center>

	<table class=font9 cellspacing=2 cellpadding=3 bgcolor="#909090">
		<tr><td bgcolor=#404040 colspan=3><center><b>管理菜单</b></center></td></tr>

        <tr><td bgcolor=#404040 align=center>人物资料修改</td>
        <td style="border:1px solid #404040;font-size:12px;color:#000000;">可以修改人物的资料。</td>
        <td style="border:1px solid #404040;"><input type=submit value="GO" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick="mainte.cmd.value='ebadministrator'"></td>
        </tr>

        <tr><td bgcolor=#404040 align=center>国家资料修改</td>
        <td style="border:1px solid #404040;font-size:12px;color:#000000;">可以修改各国的资料。</td>
        <td style="border:1px solid #404040;"><input type=submit value="GO" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick="mainte.cmd.value='COUNTRY'"></td>
        </tr>

        <tr><td bgcolor=#404040 align=center>档案导出</td>
        <td style="border:1px solid #404040;font-size:12px;color:#000000;">资料导出。</td>
        <td style="border:1px solid #404040;"><input type=submit value="GO" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick="mainte.cmd.value='BACKUP'"></td>
        </tr>
        <tr><td bgcolor=#404040 align=center>档案导入</td>
        <td style="border:1px solid #404040;font-size:12px;color:#000000;">资料导入。</td>
        <td style="border:1px solid #404040;"><input type=submit value="GO" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick="mainte.cmd.value='DATAUP'"></td>
        </tr>

        <tr><td bgcolor=#404040 align=center>玩家管理</td>
        <td style="border:1px solid #404040;font-size:12px;color:#000000;">参加者削除期限和表\示</td>
        <td style="border:1px solid #404040;"><input type=submit value="GO" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\" onClick="mainte.cmd.value='COOKIES'"></td>
        </tr>

	</table></form>
	<form action=$MAIN_SCRIPT method=POST>
	<input type=submit value=返回 class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
	</form>
	</td></tr></table>

	-----END-----
	&FOOTER;

}

sub MASTER2{
&ERROR('密码错误！！') if $MASTER_PWD ne "$FORM{'pass'}";
&HEADER2;
&DBM_INPORT(P);
print << "-----END-----";
	<script language="JavaScript">
		function syusei(nm){
			fm1.plname.value=nm;
			fm1.sbm1.click();
		}
		
	</script>
	<form action=$SCRIPTNM method=POST name=fm1 style="position:absolute;visibility:hidden;">
	<input type=hidden name="cmd" value=SYUSEI>
	<input type=hidden name="plname">
	<input type=hidden name="pass" value="$FORM{'pass'}">
	<input type=submit name="sbm1">
        </form>
<table width=100% height=100%><tr><td align=left>
《检索机能\:<a href="http://www12.big.or.jp/~kazu777/">kazu777</a>》
<form onSubmit="return seek_str(this.strings.value);">
输入要搜索的内容。
<input name=strings type=text size=15 onChange="n = 0;">
<input type=submit value="检索">
</form>
<table cellspacing=2 cellpadding=3 bgcolor="#909090" style="font-size:16px;" border=1>
<tr><td bgcolor=#404040 colspan=35><b>人物资料修改</b></td></tr>
<tr><td>编号</td><td>$c </td><td>帐号</td><td>阶级</td><td>战历</td><td>PASS</td><td>MS型</td><td>成长型</td><td>所属国</td><td>国内</td><td>发言</td><td>资金</td><td>武器</td><td>\预\备1</td><td>\预\备2</td><td>性格</td><td>色</td><td>武器经验</td><td>HP</td><td>MAXHP</td><td>EN</td><td>MAXEN</td><td>攻击力</td><td>防御力</td><td>敏捷度</td><td>命中率</td><td>改造回数</td><td>熟练</td><td>修理状态</td><td>时间</td><td>画像</td><td>部队</td><td>等级</td><td>经验</td><td>选择</td></tr>

-----END-----
while (my($key,$val) = each %P){
@VALS = split(/\s/,$val);$ET++;
print "<tr><td>$ET</td><td>$c </td><td>$key</td><td>$VALS[0]</td><td>$VALS[1]</td><td>$VALS[2]</td><td>$VALS[3]</td><td>$VALS[4]</td><td>$VALS[5]</td><td>$VALS[6]</td><td>$VALS[7]</td><td>$VALS[8]</td><td>$VALS[9]</td><td>$VALS[10]</td><td>$VALS[11]</td><td>$VALS[12]</td><td>$VALS[13]</td><td>$VALS[14]</td><td>$VALS[15]</td><td>$VALS[16]</td><td>$VALS[17]</td><td>$VALS[18]</td><td>$VALS[19]</td><td>$VALS[20]</td><td>$VALS[21]</td><td>$VALS[22]</td><td>$VALS[23]</td><td>$VALS[24]</td><td>$VALS[25]</td><td>$VALS[26]</td><td>$VALS[27]</td><td>$VALS[28]</td><td>$VALS[29]</td><td>$VALS[30]</td><td><a href=javascript:syusei(\"$key\")>修正</a></td></tr>";
}

print << "-----END-----";

<form action=$SCRIPTNM method=POST>
<input type=hidden name="cmd" value="MAINTE2">
<input type=hidden name="pass" value=\"$FORM{'pass'}\"><tr><td colspan=35>
<input type=submit value=返回 class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
</td></tr></table>
-----END-----
&FOOTER;
print "</td></tr></table></form></body>";
}

sub SYUSEI2{
&ERROR('密码错误！！') if $MASTER_PWD ne "$FORM{'pass'}";
&HEADER;
&DBM_INPORT(P);

@VALS = split(/\s/,$P{"$FORM{'plname'}"});

print << "-----END-----";
	<script language="JavaScript">
		function tyousei(nm){
			fm1.plname.value=nm;
			fm1.sbm1.click();
		}
		
	</script>

<table width=100% height=100%><tr><td align=center>
<table cellspacing=2 cellpadding=3 bgcolor="#909090" style="font-size:16px;" border=1>

<tr><td bgcolor=#404040 colspan=35>

<form action=$SCRIPTNM method=POST name=fm1 style="visibility:hidden;">
	<input type=hidden name="cmd" value=TYOUSEI>
	<input type=hidden name="plname">
	<input type=hidden name="pass" value="$FORM{'pass'}">
	<input type=submit name="sbm1">
</td></tr>
<tr><td bgcolor=#404040 colspan=35><b>国家资料修改</b></td></tr>
<tr><td>编号</td><td>$c </td><td>名前</td><td>阶级</td><td>战历</td><td>PASS</td><td>MS型</td><td>成长</td><td>所属国</td><td>国内</td><td>发言</td><td>资金</td><td>武器</td><td>\预\备1</td><td>\预\备2</td><td>性格</td><td>色</td><td>武器经验</td><td>H P</td><td>MAXHP</td><td>E N</td><td>MAXEN</td><td>攻击力</td><td>防御力</td><td>敏捷度</td><td>命中率</td><td>改造回数</td><td>熟练</td><td>修理状态</td><td>时间</td><td>画像</td><td>部队</td><td>等级</td><td>经验</td><td>修正</td></tr>
	
<tr><td>NO.</td><td>$c </td><td>

</td><td>
<input type=text name="para0" value="$VALS[0]"></td><td><input type=text name="para1" value="$VALS[1]"></td><td><input type=text name="para2" value="$VALS[2]"></td><td><input type=text name="para3" value="$VALS[3]"></td><td><input type=text name="para4" value="$VALS[4]"></td><td><input type=text name="para5" value="$VALS[5]"></td><td><input type=text name="para6" value="$VALS[6]"></td><td><input type=text name="para7" value="$VALS[7]"></td><td><input type=text name="para8" value="$VALS[8]"></td><td><input type=text name="para9" value="$VALS[9]"></td><td><input type=text name="para10" value="$VALS[10]"></td>
<td><input type=text name="para11" value="$VALS[11]"></td><td><input type=text name="para12" value="$VALS[12]"></td><td><input type=text name="para13" value="$VALS[13]"></td><td><input type=text name="para14" value="$VALS[14]"></td><td><input type=text name="para15" value="$VALS[15]"></td><td><input type=text name="para16" value="$VALS[16]"></td><td><input type=text name="para17" value="$VALS[17]"></td><td><input type=text name="para18" value="$VALS[18]"></td><td><input type=text name="para19" value="$VALS[19]"></td><td><input type=text name="para20" value="$VALS[20]"></td>
<td><input type=text name="para21" value="$VALS[21]"></td><td><input type=text name="para22" value="$VALS[22]"></td><td><input type=text name="para23" value="$VALS[23]"></td><td><input type=text name="para24" value="$VALS[24]"></td><td><input type=text name="para25" value="$VALS[25]"></td><td><input type=text name="para26" value="$VALS[26]"></td><td><input type=text name="para27" value="$VALS[27]"></td><td><input type=text name="para28" value="$VALS[28]"></td><td><input type=text name="para29" value="$VALS[29]"></td><td><input type=text name="para30" value="$VALS[30]">
</td></form><td>↓</td></tr>
        
-----END-----

print "<tr><td>☆</td><td>$c </td><td>$FORM{'plname'}</td><td>$VALS[0]</td><td>$VALS[1]</td><td>$VALS[2]</td><td>$VALS[3]</td><td>$VALS[4]</td><td>$VALS[5]</td><td>$VALS[6]</td><td>$VALS[7]</td><td>$VALS[8]</td><td>$VALS[9]</td><td>$VALS[10]</td><td>$VALS[11]</td><td>$VALS[12]</td><td>$VALS[13]</td><td>$VALS[14]</td><td>$VALS[15]</td><td>$VALS[16]</td><td>$VALS[17]</td><td>$VALS[18]</td><td>$VALS[19]</td><td>$VALS[20]</td><td>$VALS[21]</td><td>$VALS[22]</td><td>$VALS[23]</td><td>$VALS[24]</td><td>$VALS[25]</td><td>$VALS[26]</td><td>$VALS[27]</td><td>$VALS[28]</td><td>$VALS[29]</td><td>$VALS[30]</td><td><a href=javascript:tyousei(\"$FORM{plname}\")>确定</a></td></tr>";


print << "-----END-----";

<form action=$SCRIPTNM method=POST>
<input type=hidden name="cmd" value="MASTER2">
<input type=hidden name="pass" value=\"$FORM{'pass'}\"><tr><td colspan=35>
<input type=submit value=返回 class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
</td></tr></table>
-----END-----
&FOOTER;
print "</td></tr></table></form></body>";
}
sub SYUSEI4{
&ERROR('密码错误！！') if $MASTER_PWD ne "$FORM{'pass'}";
&HEADER;
&DBM_INPORT(P);
	open(IN,"$USERDATA/$FORM{'plname'}.cgi")|| &error('              ','指定                          。');
	@PLVALS=<IN>;
	close(IN);
    foreach(@PLVALS){($NAME,$PLVALS2[0],$PLVALS2[1],$PLVALS2[2],$PLVALS2[3],$PLVALS2[4],$PLVALS2[5],$PLVALS2[6],$PLVALS2[7],$PLVALS2[8],$PLVALS2[9],$PLVALS2[10],$PLVALS2[11],$PLVALS2[12],$PLVALS2[13],$PLVALS2[14],$PLVALS2[15],$PLVALS2[16],$PLVALS2[17],$PLVALS2[18],$PLVALS2[19],$PLVALS2[20],$PLVALS2[21],$PLVALS2[22],$PLVALS2[23],$PLVALS2[24],$PLVALS2[25],$PLVALS2[26],$PLVALS2[27],$PLVALS2[28],$PLVALS2[29],$PLVALS2[30])=split(/<>/);
    &ERROR('      ！！') if $NAME ne "$FORM{'plname'}";
}

 @VALS = split(/\s/,$P{"$FORM{'plname'}"});

print << "-----END-----";
	<script language="JavaScript">
		function syuuhuku(nm){
			fm1.plname.value=nm;
			fm1.sbm1.click();
123

⌨️ 快捷键说明

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