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

📄 add.cgi

📁 在线播放音乐系统 下载请看readme.txt和install.txt文件
💻 CGI
📖 第 1 页 / 共 3 页
字号:
#!/usr/bin/perl
require "f:/hndns/music/setup.cgi";   # NT系统此处改为绝对径
print"Content-Type:text/html\n\n";

##################读取输入的变量###############
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/\|//g;
$value =~ s/>/&gt;/g;
$value =~ s/</&lt;/g;
$FORM{$name} = $value;
}
#####################获取系统时间##############
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)= localtime(time);
$mon=$mon+1;
$year=$year+1900;
if($mon <10){$mon="0".$mon;}
if($mday<10){$mday="0".$mday;}
$date=$year."-".$mon."-".$mday;
#################取出输入变量###############
$password = $FORM {'password'};
$id = $FORM {'id'};
$menu= $FORM {'menu'};
$screen =$FORM{'screen'};
$tjgsname=$FORM{'tjgsname'};
$tjgs_fl=$FORM{'tjgsfl'};
################判断动作####################
if(($menu eq "")&&($password eq "$super_pass")&&($id eq "$super_admin")){&indexa; exit;}
if(($menu eq "addin")&&($id eq "$super_admin")&&($password eq "$super_pass")){&addin; exit;}
if(($menu eq "tj")&&($password eq "$super_pass")&&($id eq "$super_admin")){&musictj; exit;}
if(($menu eq "modshow")&&($id eq "$super_admin")&&($password eq "$super_pass")){&modshow; exit;}
if(($menu eq "modshow")&&($id eq "$super_admin")&&($password eq "$super_pass")){&modshow; exit;}
if(($menu eq "mod")&&($id eq "$super_admin")&&($password eq "$super_pass")){&mod; exit;}
if(($menu eq "modin")&&($id eq "$super_admin")&&($password eq "$super_pass")){&modin; exit;}
if(($menu eq "delshow")&&($id eq "$super_admin")&&($password eq "$super_pass")){&delshow; exit;}
if(($menu eq "del")&&($id eq "$super_admin")&&($password eq "$super_pass")){&del; exit;}
if(($menu eq "tjgs")&&($password eq "$super_pass")&&($id eq "$super_admin")){&tjgs; exit;}
if(($menu eq "tjgswc")&&($password eq "$super_pass")&&($id eq "$super_admin")){&tjgswc; exit;}

###################################
##################################
print <<EOF;
<HTML><HEAD><TITLE>登录管理系统</TITLE><META content=text/html; charset=gb2312 http-equiv=Content-Type><STYLE type=text/css>TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } SELECT { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } A { COLOR:blue; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; TEXT-DECORATION: none } A:hover { COLOR:red; FONT-FAMILY: 宋体; TEXT-DECORATION: underline; font-site: 9pt --> }</STYLE>
</head>

<body bgcolor=#EDFFFE text=black link=blue vlink=purple alink=red>
<div align=center><br><br><p align=center><font size=4><b>纯蓝音乐在线 V1.00版</b></font></p><br><br><br><table border=0 cellpadding=0 cellspacing=0 width=230>
    <tr>
        <td><form name=form method=post action=$adminurl>
            <p align=center><font size=2><b>站长ID:</b></font><input
             type=text name=id><br><b></b><font size=2><b>密 &nbsp;码:</b></font><input
             type=password name=password><br>
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=reset name=sw value=清除重填><input type=submit
             name=tj value=确定登录></td>
    </tr>
</table></div></form><br><br><br><br><br><br><br><br><br><br><br><div align=center><font color=#0054a8 class=bfont>$bqsm</font></div></body></BODY></HTML>
EOF
exit;
######################
sub indexa{
if($screen eq ""){
print <<EOF;
<HTML><HEAD><TITLE>欢迎管理员登录管理系统</TITLE><META content=text/html; charset=gb2312 http-equiv=Content-Type><STYLE type=text/css>TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } SELECT { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } A { COLOR:blue; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; TEXT-DECORATION: none } A:hover { COLOR:red; FONT-FAMILY: 宋体; TEXT-DECORATION: underline; font-site: 9pt --> }</STYLE>
<SCRIPT language=JavaScript>
 var boodschap = '感谢您使用本系统 http://wwy.126.com 【新视听音乐网】';
 function dgstatus()
 {
 window.status = boodschap;
 timerID= setTimeout("dgstatus()", 60);
 }
 </SCRIPT>
 
 <SCRIPT language=JavaScript>
 <!--
 dgstatus();
 //-->
 </SCRIPT><head>
<frameset rows=30,881*  frameborder=NO border=0 framespacing=0 rows=*>
    <frame src=$adminurl?id=$id&password=$password&screen=header name=header marginwidth=0 marginheight=0 scrolling=AUTO>
    
    <frame src=$adminurl?id=$id&password=$password&screen=main name=main scrolling=AUTO>
    <body bgcolor=white text=black link=blue vlink=purple alink=red>

</body>

</noframes>
</frameset>
</html>
EOF
}
#########
elsif($screen eq "header"){
print <<EOF;
<HTML><HEAD><TITLE>欢迎管理员登录管理系统</TITLE><META content=text/html; charset=gb2312 http-equiv=Content-Type><STYLE type=text/css>TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } SELECT { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } A { COLOR:blue; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; TEXT-DECORATION: none } A:hover { COLOR:red; FONT-FAMILY: 宋体; TEXT-DECORATION: underline; font-site: 9pt --> }</STYLE>
<base target=main></HEAD><BODY bgColor=#ffffdf leftMargin=4 topMargin=5 onLoad=>
<div id="layer1" style="position:absolute; left:0px; top:3px; width:100%; height:100%; z-index:1;  border-width:1px; border-style:none";>
<table width=100% border=0 cellspacing=0 cellpadding=0 align=center bgColor=#ffffdf> <tr> <td> <div align=center>$bannershow</div></td></tr><tr bgcolor=#FFFFDF><td><p align=center><img src=$images/add/tjgs.gif width=16 height=16><a href=$adminurl?menu=tjgs&amp;id=$id&amp;password=$password target=main>添加歌手</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src=$images/add/add.gif width=16 height=16><a href=$adminurl?menu=tj&amp;id=$id&amp;password=$password target=main>添加专辑</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src=$images/add/mordiff.gif width=16 height=16><a href=$adminurl?menu=modshow&amp;id=$id&amp;password=$password target=main>修改专辑</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src=$images/add/recycle.gif width=16 height=16><a href=$adminurl?menu=delshow&amp;id=$id&amp;password=$password target=main>删除专辑</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src=$images/add/home.gif width=16 height=16><a href=$cgiurl/music.cgi target=_top>退出管理平台</a></div>
</body></html>
EOF
}
########
elsif($screen eq "main"){
print <<EOF;
<HTML><HEAD><TITLE>欢迎管理员登录管理系统</TITLE><META content=text/html; charset=gb2312 http-equiv=Content-Type><STYLE type=text/css>TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } SELECT { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } A { COLOR:blue; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; TEXT-DECORATION: none } A:hover { COLOR:red; FONT-FAMILY: 宋体; TEXT-DECORATION: underline; font-site: 9pt --> }</STYLE>
</head><BODY bgColor=#ffffdf leftMargin=4 topMargin=5 onLoad=>
<br><br><br><br><p align=center><font size=4 ><b>欢迎管理员登录管理系统</b></font></p><p align=center><font size=4 ><b>请选择你想进行的操作</b></font></p><br><br><br><br><br><br><br><br><br><br><br><br><br><br><div align=center><font color=#0054a8 class=bfont>$bqsm</font></div></body></html>
EOF
}
}
#########
sub musictj{
&jumplist;
print <<EOF;
<HTML><HEAD><TITLE>添加专辑</TITLE><META content=text/html; charset=gb2312 http-equiv=Content-Type><STYLE type=text/css>TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } SELECT { FONT-FAMILY: 宋体; FONT-SIZE: 9pt } A { COLOR:blue; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; TEXT-DECORATION: none } A:hover { COLOR:red; FONT-FAMILY: 宋体; TEXT-DECORATION: underline; font-site: 9pt --> }</STYLE></HEAD><BODY bgColor=#ffffdf leftMargin=4 topMargin=5 onLoad=><p align=center><font size=3><b>添加专辑</b></font>
<div align=center><br>
<table width=100% border=0 cellspacing=0 cellpadding=0 align=center> <tr> <td> <div align=center>$bannershow</div> </td> </tr> <tr bgcolor=#FFFFDF> <td>
  </td> </tr> <tr> <td> <table width=100% border=0 cellspacing=0 cellpadding=0 align=center> <tr bgcolor=#FFFFDF> <td> 
<table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td>
<form method=post action=$adminurl name=theform onsubmit=\"return formCheck()\"> <table width=500 border=0 cellspacing=5 cellpadding=0><p>专辑名称:<input type="text" name="name">&nbsp;图片:<input type="text" name="imgurl" value="$images/no.jpg" size="30"></p>
<p>&nbsp;&nbsp;歌曲 1:<input type="text" name="name1">&nbsp;地址:<input type="text" name="link1" size="30"></p>
<p>&nbsp;&nbsp;歌曲 2:<input type="text" name="name2">&nbsp;地址:<input type="text" name="link2" size="30"></p>
<p>&nbsp;&nbsp;歌曲 3:<input type="text" name="name3">&nbsp;地址:<input type="text" name="link3" size="30"></p>
<p>&nbsp;&nbsp;歌曲 4:<input type="text" name="name4">&nbsp;地址:<input type="text" name="link4" size="30"></p>
<p>&nbsp;&nbsp;歌曲 5:<input type="text" name="name5">&nbsp;地址:<input type="text" name="link5" size="30"></p>
<p>&nbsp;&nbsp;歌曲 6:<input type="text" name="name6">&nbsp;地址:<input type="text" name="link6" size="30"></p>
<p>&nbsp;&nbsp;歌曲 7:<input type="text" name="name7">&nbsp;地址:<input type="text" name="link7" size="30"></p>
<p>&nbsp;&nbsp;歌曲 8:<input type="text" name="name8">&nbsp;地址:<input type="text" name="link8" size="30"></p>
<p>&nbsp;&nbsp;歌曲 9:<input type="text" name="name9">&nbsp;地址:<input type="text" name="link9" size="30"></p>
<p>&nbsp;&nbsp;歌曲10:<input type="text" name="name10">&nbsp;地址:<input type="text" name="link10" size="30"></p>
<p>&nbsp;&nbsp;歌曲11:<input type="text" name="name11">&nbsp;地址:<input type="text" name="link11" size="30"></p>
<p>&nbsp;&nbsp;歌曲12:<input type="text" name="name12">&nbsp;地址:<input type="text" name="link12" size="30"></p>
<p>&nbsp;&nbsp;歌曲13:<input type="text" name="name13">&nbsp;地址:<input type="text" name="link13" size="30"></p>
<p>&nbsp;&nbsp;歌曲14:<input type="text" name="name14">&nbsp;地址:<input type="text" name="link14" size="30"></p>
<p>&nbsp;&nbsp;歌曲15:<input type="text" name="name15">&nbsp;地址:<input type="text" name="link15" size="30"></p>
<p>&nbsp;&nbsp;歌曲16:<input type="text" name="name16">&nbsp;地址:<input type="text" name="link16" size="30"></p>
<p>&nbsp;&nbsp;歌曲17:<input type="text" name="name17">&nbsp;地址:<input type="text" name="link17" size="30"></p>
<p>&nbsp;&nbsp;歌曲18:<input type="text" name="name18">&nbsp;地址:<input type="text" name="link18" size="30"></p>

<div align=center> <input type=submit name=Submit value=将此电影歌曲添加进库记录><input type=hidden value=addin name=menu><input type=hidden value=$id name=id><input type=hidden value=$password name=password> </div> </td> </tr> <tr> <td><p>$upload_html</p></td> </tr> </table> 
 
</td><td valign=top><select name=kindin size=30><option>选择类型</option>$kindsigno</select></td></tr></table></form>
</td> </tr> </table> </td> </tr> <tr> <td></td> </tr> <tr> <td> <div align=center><font color=#0054a8 class=bfont>$bqsm</font></div> </td> </tr> <tr> <td> <div align=right></div> <div align=center></div> </td> </tr></table><script language=\"JavaScript\">
function formCheck()
{if(document.theform.name.value==\"\")
{alert(\"请填写专辑名称!\");return false;}if(document.theform.imgurl.value==\"\")
{alert(\"请填写图片链接地址!\");return false;}if(document.theform.name1.value==\"\")

⌨️ 快捷键说明

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