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

📄 install.cgi

📁 在线播放音乐系统 下载请看readme.txt和install.txt文件
💻 CGI
字号:
🔍 
#!/usr/bin/perl
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;
}
##############
$super_admin=$FORM{'super_admin'};
$super_pass =$FORM{'super_pass'};
$cgidir     =$FORM{'cgidir'};
$homedir    =$FORM{'homedir'};
$images     =$FORM{'images'};
$cgiurl     =$FORM{'cgiurl'};
$liuyan     =$FORM{'liuyan'};
$news       =$FORM{'news'};
$url        =$FORM{'url'};
$dir        =$FORM{'dir'};
$imgl       =$FORM{'imgl'};
$imgdir     =$FORM{'imgdir'};
$data       =$FORM{'data'};
$netname    =$FORM{'netname'};
$neturl     =$FORM{'neturl'};
##############################
if($imgdir ne ""){&cxsz;exit;}
if($super_pass ne ""){&szwc;exit;}
#######################################
sub cz{
$fullurl= "http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}";
$imgl="http://$ENV{'SERVER_NAME'}";
$url=substr($fullurl,0,rindex($fullurl,"/"));
$dirs="$ENV{'DOCUMENT_ROOT'}$ENV{'SCRIPT_NAME'}";
$dirw=substr($dirs,1,rindex($dirs,"/")-1);
$perlos=$^O;
$imgdir=$ENV{'DOCUMENT_ROOT'};
$dir="/$dirw";
}
###########

&cz;
print <<EOF;
<html>
<head>
<title>纯蓝音乐在线试听系统 V1.0版</title>
</head>

<body bgcolor=#FFEBDA text=black link=blue vlink=purple alink=red>

<p align=center><br>
<font color=blue><b>纯蓝音乐在线试听系统 &nbsp;V1.0版</b></font><br>
<br>
<div align=center><table border cellspacing=0 width=60% bgcolor=#0AABFF
 bordercolor=white bordercolordark=silver bordercolorlight=gray>
  <tr>
    <td width=748><table border=0 cellpadding=0 cellspacing=0>
        <tr>
          <td width=49 height=260 valign=top rowspan=12><form
             name=songs method=post action=$url/install.cgi
             div align=center table border cellspacing=0 width=60%
             bgcolor=#0AABFF bordercolor=white bordercolordark=silver
             bordercolorlight=gray tr td width=748 table border=0
             cellpadding=0 cellspacing=0 tr td width=40 height=210
             valign=top rowspan=8 p>
            <p>&nbsp;</td>
          <td width=134 height=27 valign=top><p><font size=2><b>站长ID：</b></font></td>
          <td width=261 height=27 valign=top><p><input type=text
             name=super_admin></td>
        </tr>
        <tr>
          <td width=134 height=27 valign=top><p><font size=2><b>站长密码：</b></font></td>
          <td width=261 height=27 valign=top><p><input type=text
             name=super_pass></td>
        </tr>
        <tr>
          <td width=134 height=27 valign=top><p><font size=2><b>CGI文件绝对路径：</b></font></td>
          <td width=261 height=27 valign=top><p><input type=text
             name=cgidir value=$dir size=30></td>
        </tr>
        <tr>
          <td width=134 height=27 valign=top><p><font size=2><b>CGI文件相对路径：</b></font></td>
          <td width=261 height=27 valign=top><p><input type=text
             name=cgiurl value=$url size=30></td>
        </tr>
        <tr>
          <td width=134 height=27 valign=top><p><font size=2><b>图片绝对路径：</b></font></td>
          <td width=261 height=27 valign=top><p><input type=text
             name=homedir value=$imgdir/images size=30></td>
        </tr>
        <tr>
          <td width=134 height=27 valign=top><p><font size=2><b>图片相对路径：</b></font></td>
          <td width=261 height=27 valign=top><p><input type=text
             name=images value=$imgl/images size=30></td>
        </tr>
        <tr>
          <td width=134 height=27 valign=top><p><font size=2><b>您的留言本路径：</b></font></td>
          <td width=261 height=27 valign=top><p><input type=text
             name=liuyan size=30></td>
        </tr>
        <tr>
          <td width=134 height=27 valign=top><p><font size=2><b>首页调用更新数：</b></font></td>
          <td width=261 height=27 valign=top><p><input type=text
             name=news value=10></td>
        </tr>
        <tr>
          <td width=134 height=27 valign=top><p><font size=2><b>数据文件目录：</b></font></td>
          <td width=261 height=27 valign=top><p><input type=text
             name=data value=data size=30></td>
        </tr>
        <tr>
          <td width=134 height=27 valign=top><p><font size=2><b>网站名称：</b></font></td>
          <td height=6><p><input type=text name=netname size=30></td>
        </tr>
        <tr>
          <td width=134 height=27 valign=top><p><font size=2><b>网站链接：</b></font></td>
          <td height=27><p><input type=text name=neturl size=30></td>
        </tr>
        <tr>
          <td width=134 height=27 valign=top><p>&nbsp;</td>
          <td height=27><p><input type=submit name=tj value=设置完成></td>
        </tr>
      </table></td>
  </tr>
</table></div>
</form>
<p align=center><br>
<br>
<font size=2 color=blue>本程序由 </font><a href=mailto:cndown\@mail.china.com><font
 size=2 color=blue>湖南·衡阳纯蓝工作室</font></a><font size=2 color=blue> 
制作</font><br></p>
</body>
</html>
EOF
###########################
sub szwc{
open(COUNT,">$cgidir/setup.cgi");
print COUNT "\$super_admin=\"$super_admin\"\;\n";
print COUNT "\$super_pass=\"$super_pass\"\;\n";
print COUNT "\$cgidir=\"$cgidir\"\;\n";
print COUNT "\$homedir=\"$homedir\"\;\n";
print COUNT "\$images=\"$images\"\;\n";
print COUNT "\$cgiurl=\"$cgiurl\"\;\n";
print COUNT "\$liuyan=\"$liuyan\"\;\n";
print COUNT "\$news=$news\;\n";
print COUNT "\$adminurl=\"$cgiurl/add.cgi\"\;\n";
print COUNT "\$mingg=\"<a href=gg/index.htm target=_blank><img src=$images/gg120x60.gif ></a>\"\;\n";
print COUNT "\$bqsm=\"<font color=#0054A8>Copyright 
            &copy; </font><a href=$neturl target=_blank><font
             color=#0054A8>$netname </font></a><font color=#0054A8> 2000-2002. 
            All Rights Reserved<br><br>本程序由 <a href=HTTP://wwy.126.com><font color=#0054A8>湖南·衡阳纯蓝工作室</font></a> 制作，纯蓝音乐在线V1.0版。</font><br>\"\;\n";
print COUNT "\$newdata=\"$cgidir/new.txt\"\;\n";
print COUNT "\$txt=\".txt\"\;\n";
print COUNT "\$htmlhead=\"\$cgidir/html\"\;\n";
print COUNT "\$listfile=\"\$cgidir/list.txt\"\;\n";
print COUNT "\$datahead=\"\$cgidir/$data\"\;\n";
print COUNT "\$musiccgi=\"\$cgiurl/music.cgi\"\;\n";
print COUNT "\$searchcgi=\"\$cgiurl/search.cgi\"\;\n";
print COUNT "\$htmlzjxs=\"zjxs.html\"\;\n";
print COUNT "\$indexhtml=\"index.html\"\;\n";
print COUNT "\$playhtml=\"play.html\"\;\n";
print COUNT "\$htmlzjlb=\"zjlb.html\"\;\n";
print COUNT "\$playhtmls=\"plays.html\"\;\n";
print COUNT "\$ext=\"list.rm\"\;\n";
print COUNT "\$flindexhtml=\"flindex.html\"\;\n";
print COUNT "\$errorhtml=\"error.html\"\;\n";
close (COUNT);
chmod(0755,"$cgidir/setup.cgi");
mkdir($data,0777);
mkdir("$homedir",0777);
unlink'install.cgi';
print <<EOF;
<html>
<head>
<title>纯蓝音乐在线试听系统 V1.0版</title>
</head>

<body bgcolor=#FFEBDA text=black link=blue vlink=purple alink=red>

<p align=center><br>
<font color=blue><b>纯蓝音乐在线试听系统 &nbsp;V1.0版</b></font><br>
<br>
<div align=center><table border cellspacing=0 width=30% bgcolor=#0AABFF
 bordercolor=white bordercolordark=silver bordercolorlight=gray>
  <tr>
    <td width=748 height=58><p align=center><font size=2><b>恭喜您！程序安装完成！</b></font></p>
      <p align=center><a href=$cgiurl/add.cgi><b>进入</b></a></td>
  </tr>
</table></div>
<p align=center><br>
<br>
<br>
<font size=2 color=blue>本程序由 </font><a href=mailto:cndown\@mail.china.com><font
 size=2 color=blue>湖南·衡阳纯蓝工作室</font></a><font size=2 color=blue> 
制作</font><br></p>
</body>
</html>
EOF
}

⌨️ 快捷键说明

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