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

📄 rank.cgi

📁 挖矿游戏源代码 很好的哦 可以研究
💻 CGI
📖 第 1 页 / 共 2 页
字号:
🔍
12 
		print "<TD>\n";
		print "$kname\n";
		print "</TD>\n";
		print "<TD ALIGN=\"right\">\n";
		print "$kn_2\n";
		print "</TD>\n";
		print "<TD>\n";
		print "$url\n";
		print "</TD>\n";
		print "</TR>\n";
		$i++;
		if($i >10){last;}
	}
	print "</TABLE>\n";



	print "<TABLE BORDER=0>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b2\" COLSPAN=\"5\">\n";
	print "生命力</TD></TR>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b1\"></TD><TD ALIGN=\"center\" CLASS=\"b1\">なまえ</TD><TD ALIGN=\"center\" CLASS=\"b1\">生命力</TD><TD ALIGN=\"center\" CLASS=\"b1\">ホ—ムペ—ジ</TD>\n";

	$i=1;
	foreach(@gp){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite)=split(/<>/);
		$url="<A HREF=\"http\:\/\/$kurl\" TARGET=\"_blank\">$ksite</A>";
		print "<TR><TD ALIGN=\"right\">\n";
		print "<B>$i</B></TD>\n";
		print "<TD>\n";
		print "$kname\n";
		print "</TD>\n";
		print "<TD ALIGN=\"right\">\n";
		print "$kn_3\n";
		print "</TD>\n";
		print "<TD>\n";
		print "$url\n";
		print "</TD>\n";
		print "</TR>\n";
		$i++;
		if($i >10){last;}
	}
	print "</TABLE>\n";



	print "<TABLE BORDER=0>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b2\" COLSPAN=\"5\">\n";
	print "器用さ</TD></TR>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b1\"></TD><TD ALIGN=\"center\" CLASS=\"b1\">なまえ</TD><TD ALIGN=\"center\" CLASS=\"b1\">器用さ</TD><TD ALIGN=\"center\" CLASS=\"b1\">ホ—ムペ—ジ</TD>\n";

	$i=1;
	foreach(@sp){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite)=split(/<>/);
		$url="<A HREF=\"http\:\/\/$kurl\" TARGET=\"_blank\">$ksite</A>";
		print "<TR><TD ALIGN=\"right\">\n";
		print "<B>$i</B></TD>\n";
		print "<TD>\n";
		print "$kname\n";
		print "</TD>\n";
		print "<TD ALIGN=\"right\">\n";
		print "$kn_4\n";
		print "</TD>\n";
		print "<TD>\n";
		print "$url\n";
		print "</TD>\n";
		print "</TR>\n";
		$i++;
		if($i >10){last;}
	}
	print "</TABLE>\n";



	print "<TABLE BORDER=0>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b2\" COLSPAN=\"5\">\n";
	print "速さ</TD></TR>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b1\"></TD><TD ALIGN=\"center\" CLASS=\"b1\">なまえ</TD><TD ALIGN=\"center\" CLASS=\"b1\">速さ</TD><TD ALIGN=\"center\" CLASS=\"b1\">ホ—ムペ—ジ</TD>\n";

	$i=1;
	foreach(@bp){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite)=split(/<>/);
		$url="<A HREF=\"http\:\/\/$kurl\" TARGET=\"_blank\">$ksite</A>";
		print "<TR><TD ALIGN=\"right\">\n";
		print "<B>$i</B></TD>\n";
		print "<TD>\n";
		print "$kname\n";
		print "</TD>\n";
		print "<TD ALIGN=\"right\">\n";
		print "$kn_5\n";
		print "</TD>\n";
		print "<TD>\n";
		print "$url\n";
		print "</TD>\n";
		print "</TR>\n";
		$i++;
		if($i >10){last;}
	}
	print "</TABLE>\n";



	print "<TABLE BORDER=0>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b2\" COLSPAN=\"5\">\n";
	print "魅力</TD></TR>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b1\"></TD><TD ALIGN=\"center\" CLASS=\"b1\">なまえ</TD><TD ALIGN=\"center\" CLASS=\"b1\">魅力</TD><TD ALIGN=\"center\" CLASS=\"b1\">ホ—ムペ—ジ</TD>\n";

	$i=1;
	foreach(@lp){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite)=split(/<>/);
		$url="<A HREF=\"http\:\/\/$kurl\" TARGET=\"_blank\">$ksite</A>";
		print "<TR><TD ALIGN=\"right\">\n";
		print "<B>$i</B></TD>\n";
		print "<TD>\n";
		print "$kname\n";
		print "</TD>\n";
		print "<TD ALIGN=\"right\">\n";
		print "$kn_6\n";
		print "</TD>\n";
		print "<TD>\n";
		print "$url\n";
		print "</TD>\n";
		print "</TR>\n";
		$i++;
		if($i >10){last;}
	}
	print "</TABLE>\n";

	print "<TABLE BORDER=0>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b2\" COLSPAN=\"5\">\n";
	print "运</TD></TR>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b1\"></TD><TD ALIGN=\"center\" CLASS=\"b1\">なまえ</TD><TD ALIGN=\"center\" CLASS=\"b1\">运</TD><TD ALIGN=\"center\" CLASS=\"b1\">ホ—ムペ—ジ</TD>\n";

	$i=1;
	foreach(@yen){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite)=split(/<>/);
		$url="<A HREF=\"http\:\/\/$kurl\" TARGET=\"_blank\">$ksite</A>";
		print "<TR><TD ALIGN=\"right\">\n";
		print "<B>$i</B></TD>\n";
		print "<TD>\n";
		print "$kname\n";
		print "</TD>\n";
		print "<TD ALIGN=\"right\">\n";
		print "$klp\n";
		print "</TD>\n";
		print "<TD>\n";
		print "$url\n";
		print "</TD>\n";
		print "</TR>\n";
		$i++;
		if($i >10){last;}
	}
	print "</TABLE>\n";

	print "<TABLE BORDER=0>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b2\" COLSPAN=\"5\">\n";
	print "お金</TD></TR>\n";
	print "<TR><TD ALIGN=\"center\" CLASS=\"b1\"></TD><TD ALIGN=\"center\" CLASS=\"b1\">なまえ</TD><TD ALIGN=\"center\" CLASS=\"b1\">お金</TD><TD ALIGN=\"center\" CLASS=\"b1\">ホ—ムペ—ジ</TD>\n";

	$i=1;
	foreach(@lyen){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite)=split(/<>/);
		$url="<A HREF=\"http\:\/\/$kurl\" TARGET=\"_blank\">$ksite</A>";
		print "<TR><TD ALIGN=\"right\">\n";
		print "<B>$i</B></TD>\n";
		print "<TD>\n";
		print "$kname\n";
		print "</TD>\n";
		print "<TD ALIGN=\"right\">\n";
		print "$kgold\n";
		print "</TD>\n";
		print "<TD>\n";
		print "$url\n";
		print "</TD>\n";
		print "</TR>\n";
		$i++;
		if($i >10){last;}
	}
	print "</TABLE>\n";

	print "<P><HR SIZE=0>\n";
	print "| <A HREF=\"$scripto\">ＴＯＰペ—ジへ</A>|\n";

	&footer;

	exit;
}
__SUB__

	header => <<'__SUB__',
#------------#
#  ヘッダ—  #
#------------#
sub header {
	print "Content-type: text/html\n\n";
	print <<"EOM";
<html>
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<SCRIPT LANGUAGE="JavaScript">
<!---新しいウィンドウを开く
function wopen(){
window.open("rommode.html","hpmff","toolbar=0,menubar=0,scrollbars=0,width=370,height=400")
}
//end --->
</SCRIPT>
<style type="text/css">
<!--
a {  color: #333366; text-decoration: none}
body {  font-size: 10pt; color: #333333}
table {  font-size: 12pt; color: #333333}
a:hover {  color: #FF6633; text-decoration: underline}
.b1 {background: #9ac;border-color: #ccf #669 #669 #ccf;color:#fff; border-style: solid; border-width: 1px;}
.b2 {background: #669;border-color: #99c #336 #336 #99c;color:#fff; border-style: solid; border-width: 1px;}
.b3 {background: #fff;border-color: #ccf #669 #669 #ccf;}
-->
</style>
<TITLE>$main_title</TITLE>
</head>
<body background="$backgif" bgcolor="$bgcolor" text="$text" link="$link" vlink="$vlink" alink="$alink">
EOM
}
__SUB__

	footer => <<'__SUB__',
#------------#
#　フッタ—　#
#------------#
sub footer {
	print "<HR SIZE=0 WIDTH=\"100%\"><DIV align=right>\n";
	print "$verr edit by <a href=\"http://www.gun-online.com/\" target=\"_top\">ＧＵＮ</a><br>\n";
	print "$verg remodeling by <a href=\"http://www.gun-online.com/\" target=\"_top\">ＧＵＮ</a><br>\n";
	print "$ver <a href=\"http://cgi.members.interq.or.jp/sun/cumro/mm/\">CUMRO</a><br>\n";
	print "</DIV></body></html>\n";
}
__SUB__
);
}
12

⌨️ 快捷键说明

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