📄 xingzuo.cgi

📁 星座配对软件源代码,原理比较简单,或者你可以添加一些功能.有接口.
💻 CGI
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
#!/usr/bin/perl
#--- 以下部分可做相关修改-----
# =======================================================
$title = "☆ 星 座 配 对 ☆";   #--- 程序名称 （可改）
$back = "http://bdmp3.yeah.net/";   #--- 网站地址 （可改）
$img_folder = "./images/";   #--- 图片文件夹相对位置
$body = '<body bgcolor="white" text="black" link="brown" vlink="#0080ff" alink="deeppink"  topmargin="0">';  
# =======================================================

# (警告)为能正常使用，从此处开始请勿作任何修改！！！
$girl_color ="pink";         

$boy_color = "powderblue";   


if($ENV{'REQUEST_METHOD'} eq 'GET'){
	$query_string=$ENV{'QUERY_STRING'};
}else{
	read(STDIN, $query_string,$ENV{'CONTENT_LENGTH'});
}

&qs;

if($qs{'action'} eq "telling"){
	if($qs{'girl'} =~ /\D/){&error('111','222');}
	if($qs{'boy'} =~ /\D/){&error('333','444');}
	if($qs{'girl'} < 0 || $qs{'girl'} > 11){&error('555','666');}
	if($qs{'boy'} < 0 || $qs{'boy'} > 11){&error('777','888');}

	&telling;
	&OutPut;
}else{
	&astro_form;
}


sub qs{
    
	for(split(/&/,$query_string)){
		tr/+//;
		tr/ //;
		s/%([\dA-Fa-f][\dA-Fa-f])/pack("C",hex($1))/ge;
		($key,$value)=split(/=/,$_,2);


		$value=~s/\r\n/\n/g;
		$value=~s/\r/\n/g;
		$value=~s/\n//g;
		
		$qs{$key}=$value;


    }
}


sub astro_form{

print "Content-type: text/html\n\n";
print <<END;

<HTML>
<head>
<title>$title</title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<bgsound src="./song.mid" loop="-1">
<script Language="JavaScript">

<!--
function Form_Validator(theForm){
	var i;
	var radioSelected = false;

	for (i = 0;  i < theForm.girl.length;  i++){
		if (theForm.girl[i].checked){
			radioSelected = true;
		}
	}
	if (!radioSelected){
		alert("错误~~~妳还没有选择星座!!两边都要选");
		return (false);
	}

	radioSelected = false;
	for (i = 0;  i < theForm.boy.length;  i++){
		if (theForm.boy[i].checked){
			radioSelected = true;
		}
	}
	if (!radioSelected){
		alert("错误~~妳还没有选择星座!!两边都要选");
		return (false);
	}
	return (true);
}
//--></script>
<style type="text/css">
<!--
.input1 {
	BORDER-RIGHT: 0px; BORDER-TOP: 0px; FONT-SIZE: 9pt; BORDER-LEFT: 0px; WIDTH: 154px; BORDER-BOTTOM: 0px; FONT-FAMILY: "Tahoma", "Arial", "新宋体", "宋体"
}
.input2 {
	BORDER-RIGHT: 0px; BORDER-TOP: 0px; FONT-SIZE: 9pt; BORDER-LEFT: 0px; WIDTH: 124px; BORDER-BOTTOM: 0px; FONT-FAMILY: "Tahoma", "Arial", "新宋体", "宋体"
}
A:link {
	COLOR: #404040; TEXT-DECORATION: none
}
A:visited {
	COLOR: #404040; TEXT-DECORATION: none
}
A:hover {
	COLOR: #cc0000; TEXT-DECORATION: none
}
p { font-family: "宋体"; font-size: 12px; line-height: 12pt; color: #000000} table 
{ font-family: "宋体"; font-size: 12px; color: #000000} aa { background-color: #FFFFFF} 
a:link { color: #4D4D4D; text-decoration: none} a:visited { color: #4D4D4D; text-decoration: 
none} a:hover { color: #FF6699; border-color: #000000 black; text-decoration: 
none; border-style: dashed; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px} body 
{ font-size: 12px;SCROLLBAR-FACE-COLOR: #EBEBEB;
SCROLLBAR-HIGHLIGHT-COLOR: #EBEBEB;
SCROLLBAR-SHADOW-COLOR: #ffffff;
SCROLLBAR-3DLIGHT-COLOR: #ffffff;
SCROLLBAR-ARROW-COLOR: #000000;
SCROLLBAR-TRACK-COLOR: #EBEBEB;
SCROLLBAR-DARKSHADOW-COLOR: #ffffff;
SCROLLBAR-BASE-COLOR: #EBEBEB} .shadow { height: 1px; clip: rect( ); filter: DropShadow(Color=#000000, 
OffX=1, OffY=1, Positive=1); color: #FFFFFF} .h1 { font-size: 14px; font-weight: 
bold; color: #666666} .green { color: #339900; filter: DropShadow(Color=#000000, 
OffX=1, OffY=1, Positive=1)} .green { height: 1px; clip: rect( ); filter: DropShadow(Color=#cccccc, 
OffX=1, OffY=1, Positive=1); color: #FF9900}
12 3 4 5 下一页
⌨️ 快捷键说明

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