📄 edit.cgi

📁 [文件说明] cbook.cgi　主文件 (755) edit.cgi　　子程序 (755) admin.cgi　设置面板 (755) setup.cgi　配置文件(666) faces.cgi
💻 CGI
字号:
#!/usr/bin/perl
################                纯洁留言板(chaste)            #####################
# 版权所有: 知秋一叶 (soyos) 
# E-mail　: soyos@sina.com
# OICQ　　: 1831747
# 主页    : http://www.chastelove.com  纯洁的爱  http://www.epiclove.com
##################################################################################
# 【特别感谢】
#   kiu 
#  Email  : yingx@liu.com.cn
#  Oicq   : 1233585
#
# 本留言本参照于kiu编写的 笨小孩留言本.在此十分感谢kiu. 
# 同时在编写留言本的过程中,得到kiu的大力帮助,再此谢谢kiu...
# 【版权声明】
#
# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改，
# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
#=-=-=-=-=-请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作！=-=-=-#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#

require "setup.cgi";
@querys = split(/&/, $ENV{'QUERY_STRING'});
foreach $query (@querys) {
($name, $value) = split(/=/, $query);
$FORM{$name} = $value; 
}
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@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/\|//g;
$value =~ s/>/>/g;
$value =~ s/</</g;
$value =~ s/\r\n/<br>/g;
$value =~ s/\n/<br>/g;
$FORM{$name} = $value;
}
$number=$FORM{'number'};
$admin=$FORM{'admin'};
$pass=$FORM{'pass'};
$yuen=$FORM{'yuen'};

if ($admin eq ""){
	&login;
	exit;
	}
if ($pass eq "" ){
	&error ("密码没填");
	exit;
}elsif ($admin ne $adminname){
	&error ("用户名错误");
	exit;
}elsif ($pass ne $password){
	&error ("密码错误");
	exit;
}

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

if ($FORM{'lei'} ne ""){
$lei = $FORM{'lei'};
}
if ($FORM{'id'} ne ""){
$id = $FORM{'id'};
}
if ($id eq 'del'){
	&del;
	exit;
}
if ($id eq 'reply'){
	&reply;
	exit;
}
if ($id eq 'replys'){
	&replys;
	exit:
}else{
&error('没有工作指示');
exit;
}

sub del {
open (test,"<$data")||die "$!";
@lines=<test>;
close (test);
	open (save, ">$data")||die "$!\n";
foreach $line (@lines){
	$line=~s/\n//g;
	($anum,$name,$tx,$email,$zhuye,$icq,$oicq,$nenrong,$ip,$hf,$htpic,$thistime,$yue)=split (/\|/,$line);
	if ($lei eq "tiao"){
		if ($number ne $anum){
			print save "$line\n";
		}
	}
	if ($lei eq "pi" ){
		if ($yuen ne $yue){
			print save "$line\n";
		}
	}
}
close (save);

&ok;
}
sub replys {
	open (reply,"<$data")||die "$!";
	@lines=<reply>;
	close (reply);
	open (replys,">$data")||die "$!";
	foreach $line (@lines){
	($anum,$name,$tx,$email,$zhuye,$icq,$oicq,$nenrong,$ip,$hf,$htpic,$thistime,$yue)=split (/\|/,$line);
if ($anum eq $number){
	$hf=$FORM{"hf"};
	$hfpic=$FORM{"userface"};
      $line="$anum|$name|$tx|$email|$zhuye|$icq|$oicq|$nenrong|$ip|$hf|$hfpic|$thistime|$yue";
print replys "$line";
}else{
     print replys "$line";
}}
if ($email)  {
   open (MAIL, "|$mailprog $email")|| die "邮件系统错误"; 
   print MAIL "Reply-to:\n";
   print MAIL "From: $mymail\n";
   print MAIL "Subject: 您在$gbook的留言被版主回复了\n\n";
   print MAIL "尊敬的$name您好,非常感谢您在$gbook的留言. \n";
   print MAIL "------------------------------------------------------\n";
   print MAIL "你于$thistime在$gbook发的留言,被版主回复了.\n";
   print MAIL "点击这儿察看回复 $cgi                                 \n";
   print MAIL "                              欢迎再次光临本网站!!\n\n";
   print MAIL "------------------------------------------------------\n";
   print OUTMAIL "免费留言本服务由 $gbook($myhome) 提供　留言本制作:纯洁的爱(http://www.chastelove.com)\n";
   close (MAIL);
     }
close(replys);
&ok;
}


	
sub login {
print "Content-type: text/html\n\n";
print <<eof;

<html>
<head>
<title>验证身份</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<dir><img border="0" src="$gif/bt.gif" ></dir>
<body background="$gif/bg1.gif" bgcolor="#FFFFFF">
<p>&nbsp;</p>
<p>&nbsp;</p>
<form name="login" method="post" action="edit.cgi" >
  <input type="hidden" name="id" value="$FORM{'id'}">
  <input type="hidden" name="lei" value="$FORM{'lei'}">
 <input type="hidden" name="yuen" value="$FORM{'yuan'}">
  <input type="hidden" name="number" value="$FORM{'number'}">
  <table width="300" border="0" cellspacing="2" cellpadding="2" align="center">
    <tr> 
      <td width="63"> 
        <div align="center"><font size="2">用户:</font></div>
      </td>
      <td width="223"> 
        <input type="text" name='admin'>
      </td>
    </tr>
    <tr> 
     <td width="63">
        <div align="center"><font size="2">密码</font>:</div>
      </td>
      <td width="223"> 
        <input type="password" name='pass'>
      </td>
    </tr>
   <tr align="center" valign="middle"> 
      <td colspan="2"> 
        <div align="center"> 
          <input type="submit" name="Submit" value="登录">
       </div>
      </td>
    </tr>
  </table>
</form>
</body>
</html>
eof
exit;
	}
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#	
	
sub reply
{

print <<eof;
<HTML>
<HEAD>
<TITLE>斑竹回复</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type=text/css>
<!--
A:link {text-decoration: none; color: #408080; font-family: 宋体}
A:visited {text-decoration: none; color: #006666; font-family: 宋体}
A:active {text-decoration: none; font-family: 宋体}
A:hover {text-decoration: none; color: #FF0000}
body,table {font-size: 9pt; font-family: 宋体}
input { font-size: 9pt; color: #000000; background-color: #FBFBFF; padding-top: 3px}
.c { font-family: 宋体; font-size: 9pt; font-style: normal; line-height: 12pt; font-weight: normal; font-variant: normal; text-decoration: none}
--></style>
</HEAD>
<dir><img border="0" src="$gif/bt.gif" ></dir>
<BODY bgcolor="#ffffff" text="#000000" link="#000080" vlink="#808000" background="$gif/bg2.gif"> 
<div align="center"><br>
</div>
<form method="post" action="edit.cgi?id=replys"  name=creator>
  <input type="hidden" name="number" value="$FORM{'number'}">
    <input type="hidden" name="admin" value="$FORM{'admin'}">
    <input type="hidden" name="pass" value="$FORM{'pass'}">
  <table width="532" border="1" cellspacing="0" cellpadding="0" align="center"  bordercolor="#FFFFFF" background="$gif/bg1.gif">
    <tr bordercolor="#CCCCFF"> 
      <td colspan="6"> 
        <div align="center">斑 竹 回 复</div>
      </td>
    </tr>


    <tr bordercolor="#CCCCFF"> 
      <td height="131" colspan="3">填写留言;</td>
      <td height="131" colspan="2">&nbsp; </td>
      <td height="131"> 
        <div align="left">
          <textarea name="hf" wrap="VIRTUAL" cols="50" rows="6"></textarea>
          <font color="#FF0000">*</font> </div> 
      </td> 
    </tr> 
  </table> 
  <p align="center">  
    <input type="submit" name="Submit" value="提交"> 
  </p> 
</form> 
<FONT class=c SIZE="2"> </FONT>  
<br>
<table align="center" >
<tr align=middle><td width=533><script>document.write("<a href=http://www.textclick.com/viewmain.asp?name=jitao target=_blank><img src=http://ad.t2t2.com/stat.asp?user=jitao&refer="+escape(document.referrer)+"&cur="+escape(document.URL)+" alt=太极统计 border=0></a>");</script>“纯洁留言本”由 <font color=#ff6633><b><font Helvetica, sans-serif><a href=http://www.epiclove.com target=_blank>纯洁的爱</a></font></b></font> 编写</tr>

    </table>
</BODY>  
</HTML> 
eof
exit;
}
			
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
sub error 
{
print "<html><head></head><body><script>alert('$_[0]');history.back();</script></body></html>";
}
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
sub ok {

print <<eof;

<html>
<meta http-equiv="refresh" content="0; url=$cgi">
<body background="$gif/bg1.gif">
<br>
<font size="2" color="#9999FF">如无法自动转入，<a href="$cgi">请按此进入</a></font>
</body>
</html>
eof
exit;
}
💿 文件大小 99 K
👤 上传用户 cjf0426
📂 所属分类数据库系统
🏷️ 相关标签

#cgi #755 #cbook #admin
⌨️ 快捷键说明

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