📄 ebs_sub7.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 2 页
字号:
上一页 12
	</script>
	<form action=$MAIN_SCRIPT method=POST name=fm1 style="position:absolute;visibility:hidden;">
	<input type=hidden name="cmd" value=CNSYUSEI>
	<input type=hidden name="coname">
	<input type=hidden name="pass" value="$FORM{'pass'}">
	<input type=submit name="sbm1">
	</form>
	<table width=100% height=100%><tr><td align=center>
	<table class=font9 cellspacing=3 cellpadding=3 bgcolor="#909090">
		<tr><td bgcolor=#404040 colspan=3><b>国家资料修正选项</b></td></tr>
-----END-----
	while (my($key,$val) = each %C){
		@VALS = split(/\s/,$val);$ER='';
		$ER.= "&nbsp;[Color Undefined]" if $VALS[0] eq '';
		$ER.= "&nbsp;[Money Undefined]" if $VALS[1] eq '';
		$ER.= "&nbsp;[YOUSAI DATA Undefined]" if $VALS[11] eq '' || $VALS[12] eq '';
		if ($ER){$c++;$c = sprintf("%03d", $c);
			print "<tr><td nowrap>$c <b>$key</b></td><td nowrap>$ER</td><td><a href=\"javascript:syusei('$key')\">修正</a></td></tr>";
		}
	}
print "<tr><td colspan=3><br><br>资料修正<br><br></td></tr>" if !$c;
print "<tr><td colspan=3 style=\"font-size:12px;color:#000000;\">未定义（Undefined）的项目<br>不正确（Incorrect）的数值和项目一览<br>按修正後这些内容将被系统自动修正。
	<form action=$MAIN_SCRIPT method=POST>
	<input type=hidden name=\"cmd\" value=\"MAINTE2\">
	<input type=hidden name=\"pass\" value=\"$FORM{'pass'}\">
	<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>";
	&FOOTER;
	print "</td></tr></table></body>";


}
sub CNSYUSEI2{
		dbmopen (%C,"$DBM_C",0666);
		@VALS = split(/\s/,$C{"$FORM{'coname'}"});
		$VALS[0]='ffffff' if $VALS[0] eq '';
		$VALS[1]='0' if $VALS[1] eq '';
		$VALS[11]="$YOUSAI_HP!$YOUSAI_HP!$DATE"  if $VALS[11] eq '';
		$VALS[12]="1!1!1!$FORM{'coname'}防卫要塞"  if $VALS[12] eq '';
		$C{"$FORM{'coname'}"}="@VALS";
	dbmclose %C;
}

sub HISTORY_EDIT2{
	$c=0;
	&HEADER;
print << "-----END-----";
	<script language="JavaScript">
		function syusei(nm,his){
		com=prompt('历史的更改',his);
		if(com != null){
			if (com.length > 100){alert('五十个文字'+com.length+'文字');return false;}
			fm1.hiskey.value=nm;
			fm1.hisval.value=com;
			fm1.sbm1.click();
		}
		}

	</script>
	<form action=$MAIN_SCRIPT method=POST name=fm1 style="position:absolute;visibility:hidden;">
	<input type=hidden name="cmd" value=HISTORY_EDIT2>
	<input type=hidden name="hiskey">
	<input type=hidden name="hisval">
	<input type=hidden name="pass" value="$FORM{'pass'}">
	<input type=submit name="sbm1">
	</form>
	<table width=100% height=100%><tr><td align=center>
	<table class=font9 cellspacing=3 cellpadding=3 bgcolor="#909090">
		<tr><td bgcolor=#404040 colspan=3><b>机战在线的历史编撰</b></td></tr>
-----END-----
	dbmopen (%H,"$DBM_H",0666);
		foreach $Key (sort {$b <=> $a} keys %H){$c++;
			print "<tr><td style=\"color:#000000;\"><b>".&DATE_DECORD($Key)."</b></td><td>$H{$Key}</td><td><a href=\"javascript:syusei('$Key','$H{$Key}')\">修正</a></td></tr>\n";
		}
	dbmclose %H;
print << "-----END-----";
	<form action=$MAIN_SCRIPT method=POST>
	<input type=hidden name=\"cmd\" value=\"MAINTE2\">
	<input type=hidden name=\"pass\" value=\"$FORM{'pass'}\"><tr><td colspan=3>
	<input type=submit value=完成 class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
	</td></tr></form></table>

-----END-----
	&FOOTER;
	print "</td></tr></table></body>";
}
sub HISTORY_EDIT3{
	dbmopen (%H,"$DBM_H",0666);
		$H{"$FORM{'hiskey'}"}="$FORM{'hisval'}";
	dbmclose %H;
}
sub PL_DEL2{
	&HEADER;
	print << "	-----END-----";
	<script language="JavaScript">
		function checkRiyou (){
			if (document.del.pname.value == '') {window.alert("ID没有输入");return false
			}else if(document.del.pass.value == '') {window.alert("PASS没有输入");return false
			}else {if (confirm('消除此条记录\\n必须注意的是消除後将无法恢复') == true){return true;}else{return false}	}
		}
	</script>
		<table width=100% height=100%><tr><td align=center>
		<table bgcolor="#909090" border=0 style="font-size:12px;">
			<tr><td colspan=2 bgcolor=#646464 align=center><img src=\"$IMG_FOLDER1/w.gif\"></td></tr>
			<tr><td colspan=2 style="color:#000000;">登录者的id删除<br>
			删除该条记录後将无法恢复<br><br></td></tr>
			<tr><td align=right style="height:21px; color:#ffffff; font-size:16px;">指定删除的对象<br>
					管理者专用密码</td>
				<td style="height:21px; color:#ffffff; font-size:16px;">
					<form action=$MAIN_SCRIPT method=POST target=_top name=del onSubmit="return checkRiyou()">
					<input type=hidden name=cmd value=PL_DEL2>
					<input type=text size=20 name=pname $STYLE_L><br>
					<input type=password size=15 name=pass $STYLE_L>
					</td></tr>
			<tr><td colspan=3 align=center>
				<input type=submit value=\"消除\" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\"></div></form>
	<form action=$MAIN_SCRIPT method=POST>
	<input type=hidden name=\"cmd\" value=\"MAINTE2\">
	<input type=hidden name=\"pass\" value=\"$FORM{'pass'}\"><tr><td colspan=3>
	<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 PL_DEL3{
	&ERROR('请输入正确的密码！') if $MASTER_PWD ne "$FORM{'pass'}";
	dbmopen (%P,"$DBM_P",0666);
		delete $P{"$FORM{'pname'}"};
	dbmclose %H;
}
### add for del co
sub CO_DEL2{
	&HEADER;
	print << "	-----END-----";
	<script language="JavaScript">
		function checkRiyou (){
			if (document.del.pname.value == '') {window.alert("ID没有输入");return false
			}else if(document.del.pass.value == '') {window.alert("PASS没有输入");return false
			}else {if (confirm('消除此条记录\\n必须注意的是消除後将无法恢复') == true){return true;}else{return false}	}
		}
	</script>
		<table width=100% height=100%><tr><td align=center>
		<table bgcolor="#909090" border=0 style="font-size:12px;">
			<tr><td colspan=2 bgcolor=#646464 align=center><img src=\"$IMG_FOLDER1/w.gif\"></td></tr>
			<tr><td colspan=2 style="color:#000000;">国家删除<br>
			删除该条记录後将无法恢复<br><br></td></tr>
			<tr><td align=right style="height:21px; color:#ffffff; font-size:16px;">指定删除的对象<br>
					管理者专用密码</td>
				<td style="height:21px; color:#ffffff; font-size:16px;">
					<form action=$MAIN_SCRIPT method=POST target=_top name=del onSubmit="return checkRiyou()">
					<input type=hidden name=cmd value=CO_DEL2>
					<input type=text size=20 name=cname $STYLE_L><br>
					<input type=password size=15 name=pass $STYLE_L>
					</td></tr>
			<tr><td colspan=3 align=center>
				<input type=submit value=\"消除\" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\"></div></form>
	<form action=$MAIN_SCRIPT method=POST>
	<input type=hidden name=\"cmd\" value=\"MAINTE2\">
	<input type=hidden name=\"pass\" value=\"$FORM{'pass'}\"><tr><td colspan=3>
	<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 CO_DEL3{
	&ERROR('请输入正确的密码！') if $MASTER_PWD ne "$FORM{'pass'}";
	dbmopen (%C,"$DBM_C",0666);
		delete $C{"$FORM{'cname'}"};
	dbmclose %C;
}
### add end

1;
上一页 12
⌨️ 快捷键说明

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