📄 add.cgi

📁 在线播放音乐系统下载请看readme.txt和install.txt文件
💻 CGI
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
<p>&nbsp;&nbsp;歌曲16：<input type="text" name="name16" value=$moddata_mod[33]>&nbsp;地址：<input type="text" name="link16" size="30" value=$moddata_mod[34]></p>
<p>&nbsp;&nbsp;歌曲17：<input type="text" name="name17" value=$moddata_mod[35]>&nbsp;地址：<input type="text" name="link17" size="30" value=$moddata_mod[36]></p>
<p>&nbsp;&nbsp;歌曲18：<input type="text" name="name18" value=$moddata_mod[37]>&nbsp;地址：<input type="text" name="link18" size="30" value=$moddata_mod[38]></p>

<div align=center> <input type=submit name=Submit value=修改此张专辑记录><input type=hidden value=modin name=menu> <input type=hidden value=$id name=id> <input type=hidden value=$password name=password><input type=hidden value=$mod name=mod></div> </td> </tr> <tr> <td></td> </tr> </table> </form></div>
<div align=center><font color=#0054a8 class=bfont>$bqsm</font></div>
<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==\"\")
{alert(\"请填写至少一首歌曲!\");return false;}if(document.theform.link1.value==\"\")
{alert(\"请填写至少一首歌曲链接地址!\");return false;}}</script></BODY></HTML>
EOF

}
#####################################
sub modin{
$mod=$FORM{'mod'};
@mod = split(/\-/,$mod);open(MODDATA,"$datahead/$mod[0]\-$mod[1]\-$mod[2]\.txt"); @moddata=<MODDATA>; close (MODDATA);
foreach $moddata (@moddata) { $moddata=~ s/\n//g; @moddata_mod = split(/\|/,$moddata);if ($moddata_mod[0] eq $mod) { $outputmod.="$moddata_mod[0]|$FORM{'name'}|$FORM{'imgurl'}|$FORM{'name1'}|$FORM{'link1'}|$FORM{'name2'}|$FORM{'link2'}|$FORM{'name3'}|$FORM{'link3'}|$FORM{'name4'}|$FORM{'link4'}|$FORM{'name5'}|$FORM{'link5'}|$FORM{'name6'}|$FORM{'link6'}|$FORM{'name7'}|$FORM{'link7'}|$FORM{'name8'}|$FORM{'link8'}|$FORM{'name9'}|$FORM{'link9'}|$FORM{'name10'}|$FORM{'link10'}|$FORM{'name11'}|$FORM{'link11'}|$FORM{'name12'}|$FORM{'link12'}|$FORM{'name13'}|$FORM{'link13'}|$FORM{'name14'}|$FORM{'link14'}|$FORM{'name15'}|$FORM{'link15'}|$FORM{'name16'}|$FORM{'link16'}|$FORM{'name17'}|$FORM{'link17'}|$FORM{'name18'}|$FORM{'link18'}\n"; } elsif ($moddata_mod[0] eq ""){$temp=1;}else{$outputmod.="$moddata\n";}
 @mod = split(/\-/,$mod);open(MODDATA,">$datahead/$mod[0]\-$mod[1]\-$mod[2]\.txt"); print MODDATA $outputmod; close (MODDATA);
}
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=5><b>修改动作完成</b></font></p><p align=center><font size=4 ><b>请继续你的操作</b></font></p><br><br><br><br><br><br><br><br><br><div align=center><font color=#0054a8 class=bfont>$bqsm</font></div></body></html>
EOF
exit;
}
############################
sub delshow{
&filelistdel; 
$files=$FORM{'files'};
open(LIST,"$datahead/$files\.txt"); @kindlist=<LIST>; close (LIST);
foreach $one_kindlist (@kindlist) { $one_kindlist=~ s/\n//g;  @one_kindlist = split(/\|/,$one_kindlist); $kingsoftlist.="<br><div align=center><table width=25% border=0 cellspacing=0 cellpadding=0 align=center>  <tr> <td width=25%><div=center><a href=$adminurl?menu=del&del=$one_kindlist[0]&id=$id&password=$password>$one_kindlist[1]</a></div></td></tr></table></div>";}
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\">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+\".location='\"+selObj.options[selObj.selectedIndex].value+\"'\");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body bgcolor=#FFFFdF><p align=center><font size=3 color=red><b>删除记录</b></font><div align=center>
<select name=\"menu1\" onChange=\"MM_jumpMenu(\'parent.frames[\\'main\\']'\,this\,0)\">
<option selected>请选择你欲删除专辑歌手</option>$outjumplist
</select></div>
EOF
print $kingsoftlist;
print "<br><br><br><br><br><br><br><br><br><div align=center><font color=#0054a8 class=bfont>$bqsm</font></div></body></html>";
exit;
}
######################
sub del{
$del=$FORM{'del'};
@del = split(/\-/,$del);open(DELDATA,"$datahead/$del[0]\-$del[1]\-$del[2]\.txt"); @deldata=<DELDATA>; close (DELDATA);
foreach $deldata (@deldata) { $deldata=~ s/\n//g; @deldata_del = split(/\|/,$deldata);if ($deldata_del[0] eq $del) { $temp=1; } elsif ($deldata_del[0] eq ""){$temp=1;}else{$outputdel.="$deldata\n";}
@del = split(/\-/,$del);open(DELDATA,">$datahead/$del[0]\-$del[1]\-$del[2]\.txt"); print DELDATA $outputdel; close (DELDATA);
}$recored="$id|$admin|del|$del|$date\n"; open(SAVERECORED,"$adminhead$recoreddata"); @recoredfix=<SAVERECORED>; close (SAVERECORED);
foreach $recoredfix (@recoredfix){$recoredfix=~ s/\n//g; if ($recoredfix ne ""){$recoreds.="$recoredfix\n";}}$recoreds.=$recored;
open(SAVERECORED,">$adminhead$recoreddata"); print SAVERECORED $recoreds; close (SAVERECORED);

print "<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=5 color=red><b>删除动作完成</b></font></p><p align=center><font size=4 color=red><b>请继续你的操作</b></font></p><br><br><br><br><br><br><br><br><br><div align=center><font color=#0054a8 class=bfont>$bqsm</font></div></body></html>";  
exit;
}


##################
sub filelistdel{ open(JUMPLIST,"$listfile"); @jumplist=<JUMPLIST>; close (JUMPLIST);
foreach $jumplist (@jumplist) { @onejumplist = split(/\#/,$jumplist); 
foreach $onejumplist (@onejumplist) {$onejumplist=~ s/\n//g;  @onejumplisttemp = split(/\|/,$onejumplist);
if($onejumplisttemp[0] =~/^[a-zA-Z]/){$kindin=$onejumplisttemp[0]; $kindtemp=$onejumplisttemp[1]; }
else { $outjumplist.="<option value=$adminurl?files=$kindin\-$onejumplisttemp[0]&menu=delshow&id=$id&password=$password>$kindtemp==>$onejumplisttemp[1]</option>\n"; }
} }
}
###################################
sub addgsname{
@cn=split(/\-/,$kindin);
$name_gs=$cn[2];
@name_fl="$cn[0]\-$cn[1]";
open(GSNAME,"$listfile");
        @gsname=<GSNAME>;
         close (GSNAME);
foreach $gsname (@gsname) {$gsname=~ s/\n//g;
                                       @onegsname =split(/\|/,$gsname);
                                      
if($onegsname[0] =~/^@name_fl/){
@fl_gs=@onegsname;
}}
if($name_gs !=0){
$name_gs=$name_gs*2+1;
}
else{
$name_gs+=1;
}
$gs_name=$fl_gs[$name_gs];
}
#########################
sub tjgs{
open(TJLIST,"$listfile");
@tjlist=<TJLIST>;
close (TJLIST);
foreach $tjlist(@tjlist){
if($tjlist=~/^[a-zA-Z]/){@tjlists=(@tjlists,$tjlist);}}
foreach $tjlists(@tjlists){@tjlists_temp=split(/\|/,$tjlists);
$tjfllist.="<option value=$tjlists_temp[0]>$tjlists_temp[1]</option>";}

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><p align=center><font size=3><b>添加歌手</b></font>
<br><form method=post action=$adminurl>
<input type=hidden name=menu value=tjgswc><input type=hidden name=id value=$id><input type=hidden
 name=password value=$password><select name=tjgsfl>
<option>选择分类</option>$tjfllist</select><br>
<br>
<br>
<br>
<font size=2><b>歌手名字</b></font><br>
<input type=text name=tjgsname size=16><br>
<input type=reset name=qc value=重填> <input type=submit name=Submit
 value=添加></p></form><br><br><br><br><br><br><div align=center><font color=#0054a8 class=bfont>$bqsm</font></div></body></html>
EOF
}
###########
sub tjgswc{
open(TJGSLIST,"$listfile");
@tjgslist=<TJGSLIST>;
close (TJGSLIST);
foreach $tjgslist(@tjgslist){
if($tjgslist=~/^$tjgs_fl/){@tjgs_temp=split(/\#/,$tjgslist);}}
foreach $tjgs_temp(@tjgs_temp){
@tjgss_temp=split(/\|/,$tjgs_temp);
if ($tjgss_temp[0]=~/[0-9]/ and $gspl<=$tjgss_temp[0]){
$gspl=$tjgss_temp[0];
$gspl++;
}
else{$gspl=1;}}
foreach $tjgslist(@tjgslist){
if($tjgslist=~/^$tjgs_fl/){
@tjgslist_temps=split(/\n/,$tjgslist);
$tjgs_tj.="@tjgslist_temps#$gspl|$tjgsname|\n";}
else{
$tjgs_tj.="$tjgslist";}}
open(TJGSLIST,">$listfile");
print TJGSLIST $tjgs_tj;
close (TJGSLIST);
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=5><b>添加歌手动作完成</b></font></p><p align=center><font size=4 ><b>请继续你的操作</b></font></p><br><br><br><br><br><br><br><br><br><div align=center><font color=#0054a8 class=bfont>$bqsm</font></div></body></html>
EOF
exit;
}
上一页 1 23
💿 文件大小 84 K
👤 上传用户 wyly
📂 所属分类网络
🏷️ 相关标签

#txt #install #readme #播放
⌨️ 快捷键说明

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