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

📄 master.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
&ERROR('密码错误！！') if $MASTER_PWD ne "$FORM{'pass'}";
&HEADER;
&DBM_INPORT(C);

@VALS = split(/\s/,$C{"$FORM{'cname'}"});
print << "-----END-----";
	<script language="JavaScript">
		function kaizan(nm){
			fm1.cname.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=KAIZAN>
	<input type=hidden name="cname">
	<input type=hidden name="pass" value="$FORM{'pass'}">
	<input type=submit name="sbm1">
</td><td>
<tr><td bgcolor=#404040 colspan=17><b>国家资料修改</b></td></tr>
<tr><td>编号</td><td>$c </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>要塞（HP）</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></form><td>↓</td></tr>
        
-----END-----

print "<tr><td>☆</td><td>$c </td><td>$FORM{'cname'}</td><td bgcolor=$VALS[0]>$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><a href=\"javascript:kaizan('$FORM{'cname'}')\">确定</a></td></tr>";


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

<form action=$SCRIPTNM method=POST>
<input type=hidden name="cmd" value="COUNTRY">
<input type=hidden name="pass" value=\"$FORM{'pass'}\"><tr><td colspan=17>
<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 KAIZAN2{
&LOCK;
	dbmopen (%C,"$DBM_C",0666);
		@VALS = split(/\s/,$C{"$FORM{'cname'}"});
                $VALS[0]=$FORM{'para0'};
                $VALS[1]=$FORM{'para1'};
                $VALS[2]=$FORM{'para2'};
                $VALS[3]=$FORM{'para3'};
                $VALS[4]=$FORM{'para4'};
                $VALS[5]=$FORM{'para5'};
                $VALS[6]=$FORM{'para6'};
                $VALS[7]=$FORM{'para7'};
                $VALS[8]=$FORM{'para8'};
                $VALS[9]=$FORM{'para9'};
                $VALS[10]=$FORM{'para10'};
                $VALS[11]=$FORM{'para11'};
                $VALS[12]=$FORM{'para12'};
		$C{"$FORM{'cname'}"}="@VALS";
	dbmclose %C;
&UNLOCK;
}

sub COOKIES2{

&HEADER2;
&DBM_INPORT(P);
print << "-----END-----";
	<script language="JavaScript">
		function del(nm){
			fm1.plname.value=nm;
			fm1.sbm1.click();
                        alert('删除目前的资料吗？');
		}
		
	</script>
	<form action=$SCRIPTNM method=POST name=fm1 style="position:absolute;visibility:hidden;">
	<input type=hidden name="cmd" value=DEL>
	<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=center>
《检索机能\:<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="复原" class=button2 onMouseOver=\"style.color='#000000';style.background='#adff2f';\" onMouseOut=\"this.style.color='#adff2f';style.background='#00550c';\">
</form>
<table cellspacing=2 cellpadding=3 bgcolor="#909090" style="font-size:16px;" border=1>
<tr><td bgcolor=#404040 colspan=5><center><b>削除期限</b></center></td></tr>
<tr><td>编号</td><td>帐号</td><td>削除期限</td><td>最後登录时间</td><td>　</td></tr>

-----END-----
$i=0;@tmp1 =();
while (my($key,$val) = each %P){
@VALS = split(/\s/,$val);
push(@tmp1, $VALS[26]);
$PNAME[$i]=$key;

$PLIMIT[$i]=int(($COOKIE_KEEP*24*60*60-(time-$VALS[26]))/(24*60*60));
$PTIME[$i]=$VALS[26];

$i++;
}

@PNAME = @PNAME[sort {$tmp1[$a] <=> $tmp1[$b]} 0 .. $#tmp1];
@PLIMIT = @PLIMIT[sort {$tmp1[$a] <=> $tmp1[$b]} 0 .. $#tmp1];
@PTIME = @PTIME[sort {$tmp1[$a] <=> $tmp1[$b]} 0 .. $#tmp1];

$j=0;$count=$i-1;
foreach(0..$count) {
     $k=$j+1;
print "<tr><td>$k</td><td><font>$PNAME[$j]</font></td><td><font color=BLACK>【$PLIMIT[$j]日】</font></td>";
print "<td>".&DATE_DECORD($PTIME[$j]);
print "</td><td><a href=\"javascript:del('$PNAME[$j]')\">削除</a></td>";

print "</tr>";
$j++;
}

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=5>
<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 DEL2{
	&ERROR('密码错误！！') if $MASTER_PWD ne "$FORM{'pass'}";
&LOCK;
	dbmopen (%P,"$DBM_P",0666);
		delete $P{"$FORM{'plname'}"};
	dbmclose %H;
&UNLOCK;
}

sub HEADER2 {
	$BG_MAIN="bgcolor=\"$BG_MAIN\"" if $BG_MAIN !~ /\./;
	$BG_MAIN="background=\"$BG_MAIN\"" if $BG_MAIN =~ /\./;
	print "Content-type: text/html\n\n";
	print << "	-----END-----";
	<!DOCTYPE HTML PUBLIC -//IETF//DTD HTML//EN>
	<html><head>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
	<title>ENDLESS BATTLE</title>
<SCRIPT LANGUAGE="JavaScript">
<!--
var Nsc4 = (document.layers);
var Ie4 = (document.all);

var win = this;
var n   = 0;

function seek_str(str) {
var txt, i, found;
  if (str == ""){
    alert("检查的文字不在我们的  围之内");
    return false;
  }
  if (Nsc4) {
    if (!win.find(str)){
      while(win.find(str, false, true)){
        n++;
      }
    }else{
      n++;
    }
    if (n == 0){alert(str + "太多日文番不出来。");}
  }
  if (Ie4) {
    txt = win.document.body.createTextRange();
    for (i = 0; i <= n && (found = txt.findText(str)) != false; i++) {
      txt.moveStart("character", 1);
      txt.moveEnd("textedit");
    }
    if (found) {
      txt.moveStart("character", -1);
      txt.findText(str);
      txt.select();
      txt.scrollIntoView();
      n++;
    }else{
      if (n > 0) {
        n = 0;
        seek_str(str);
      }else{
        alert(str + "太多日文番不出来。");
      }
    }
  }
  return false;
}
//-->
</script>
        </head>
	<body $BG_MAIN text="$FONT_COLOR" style=\"margin:0px 0px 0px 0px;\" oncontextmenu="return false;">
	-----END-----
}
123

⌨️ 快捷键说明

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