📄 wea.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 3 页
字号:
elsif($VALS[11] eq ""){$dasimode = "dasi3";}
elsif($VALS[35] eq ""){$dasimode = "dasi8";}
elsif($VALS[36] eq ""){$dasimode = "dasi9";}
else{$bukimoti = 1;}

if($noout ne 1 && $FORM{'pname'} eq $COOKIE{'pname'}){

print "<tr><td align=center bgcolor=$TABLE_COLOR2>出库</td>";

if($WEP[0] ne ''){
print<<"PUSHINPUT";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="$dasimode" value="$WEP[0]">
<input type=hidden name="wepnum" value="1">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$COOKIE{'pname'}">
<input type=hidden name="pass" value=\"$COOKIE{'pass'}\">
<input type=submit value=領出 $STYLE_B1>
</td>
</form>
PUSHINPUT
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[1] ne ''){
print<<"PUSHINPUT";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="$dasimode" value="$WEP[1]">
<input type=hidden name="wepnum" value="2">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$COOKIE{'pname'}">
<input type=hidden name="pass" value=\"$COOKIE{'pass'}\">
<input type=submit value=領出 $STYLE_B1>
</td>
</form>
PUSHINPUT
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[2] ne ''){
print<<"PUSHINPUT";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="$dasimode" value="$WEP[2]">
<input type=hidden name="wepnum" value="3">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$COOKIE{'pname'}">
<input type=hidden name="pass" value=\"$COOKIE{'pass'}\">
<input type=submit value=領出 $STYLE_B1>
</td>
</form>
PUSHINPUT
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[3] ne ''){
print<<"PUSHINPUT";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="$dasimode" value="$WEP[3]">
<input type=hidden name="wepnum" value="4">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$COOKIE{'pname'}">
<input type=hidden name="pass" value=\"$COOKIE{'pass'}\">
<input type=submit value=領出 $STYLE_B1>
</td>
</form>
PUSHINPUT
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[4] ne ''){
print<<"PUSHINPUT";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="$dasimode" value="$WEP[4]">
<input type=hidden name="wepnum" value="5">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$COOKIE{'pname'}">
<input type=hidden name="pass" value=\"$COOKIE{'pass'}\">
<input type=submit value=領出 $STYLE_B1>
</td>
</form>
PUSHINPUT
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}
print "</tr>";

}

if($FORM{'pname'} eq $COOKIE{'pname'}){

print "<tr><td align=center bgcolor=$TABLE_COLOR2>废弃</td>";

if($WEP[0] ne ''){
print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi4" value="0">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=submit value=废弃 $STYLE_B1>
</td>
</form>
-----END-----
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[1] ne ''){
print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi4" value="1">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=submit value=废弃 $STYLE_B1>
</td>
</form>
-----END-----
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[2] ne ''){
print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi4" value="2">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=submit value=废弃 $STYLE_B1>
</td>
</form>
-----END-----
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[3] ne ''){
print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi4" value="3">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=submit value=废弃 $STYLE_B1>
</td>
</form>
-----END-----
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[4] ne ''){
print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi4" value="4">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=submit value=废弃 $STYLE_B1>
</td></form></tr>
-----END-----
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td></tr>";}

print "<tr><td align=center bgcolor=$TABLE_COLOR2>价格设定</td>";

print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi6" value="1">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=text name="uri1" size=12 value=$WEP[5]>
<input type=submit value=设定 $STYLE_B2>
</td>
</form>
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi6" value="2">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=text name="uri2" size=12 value=$WEP[6]>
<input type=submit value=设定 $STYLE_B2>
</td>
</form>
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi6" value="3">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=text name="uri3" size=12 value=$WEP[7]>
<input type=submit value=设定 $STYLE_B2>
</td>
</form>
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi6" value="4">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=text name="uri4" size=12 value=$WEP[8]>
<input type=submit value=设定 $STYLE_B2>
</td>
</form>
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi6" value="5">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=text name="uri5" size=12 value=$WEP[9]>
<input type=submit value=设定 $STYLE_B2>
</td></form></tr>
-----END-----
}

if($FORM{'pname'} ne $COOKIE{'pname'} && $noout ne 1){

print "<tr><td align=center bgcolor=$TABLE_COLOR2>贩卖价格</td>\n";

if($WEP[5] ne '' && $WEP[0] ne ""){print "<td align=center bgcolor=$TABLE_COLOR1><font size=5 color=red><b>$WEP[5]</b></font>Ｇ</td>\n";}
elsif($WEP[0] ne ""){print"<td align=center bgcolor=$TABLE_COLOR1><font color=blue>非卖品</font></td>\n";}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>\n";}

if($WEP[6] ne '' && $WEP[1] ne ""){print "<td align=center bgcolor=$TABLE_COLOR1><font size=5 color=red><b>$WEP[6]</b></font>Ｇ</td>\n";}
elsif($WEP[1] ne ""){print"<td align=center bgcolor=$TABLE_COLOR1><font color=blue>非卖品</font></td>\n";}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>\n";}

if($WEP[7] ne '' && $WEP[2] ne ""){print "<td align=center bgcolor=$TABLE_COLOR1><font size=5 color=red><b>$WEP[7]</b></font>Ｇ</td>\n";}
elsif($WEP[2] ne ""){print"<td align=center bgcolor=$TABLE_COLOR1><font color=blue>非卖品</font></td>\n";}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>\n";}


if($WEP[8] ne '' && $WEP[3] ne ""){print "<td align=center bgcolor=$TABLE_COLOR1><font size=5 color=red><b>$WEP[8]</b></font>Ｇ</td>\n";}
elsif($WEP[3] ne ""){print"<td align=center bgcolor=$TABLE_COLOR1><font color=blue>非卖品</font></td>\n";}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>\n";}

if($WEP[9] ne '' && $WEP[4] ne ""){print "<td align=center bgcolor=$TABLE_COLOR1><font size=5 color=red><b>$WEP[9]</b></font>Ｇ</td></tr>\n";}
elsif($WEP[4] ne ""){print"<td align=center bgcolor=$TABLE_COLOR1><font color=blue>非卖品</font></td></tr>\n";}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td></tr>\n";}

print "<tr><td align=center bgcolor=$TABLE_COLOR2>购入</td>";


if($WEP[5] ne '' && $WEP[0] ne ""){
print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi5" value="1">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="money" value="$WEP[5]">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=submit value=购入 $STYLE_B1>
</td>
</form>
-----END-----
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[6] ne '' && $WEP[1] ne ""){
print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
<form action=$SCRIPTNM method=POST>
<input type=hidden name="dasi5" value="2">
<input type=hidden name="cmd" value="DASU">
<input type=hidden name="money" value="$WEP[6]">
<input type=hidden name="pname" value="$FORM{'pname'}">
<input type=hidden name="pass" value=\"$FORM{'pass'}\">
<input type=submit value=购入 $STYLE_B1>
</td>
</form>
-----END-----
}
else{print"<td align=center bgcolor=$TABLE_COLOR1>　</td>";}

if($WEP[7] ne '' && $WEP[2] ne ""){
print << "-----END-----";
<td align=center bgcolor=$TABLE_COLOR1>
⌨️ 快捷键说明

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