?? edit.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)提供個人網(wǎng)站免費使用，請勿非法修改，
# 轉載，散播，或用于其他圖利行為，并請勿刪除版權聲明。
#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
#=-=-=-=-=-請您尊重我們的勞動和版權，不要刪除以上的版權聲明部分，謝謝合作！=-=-=-#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
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 "郵件系統(tǒng)錯誤";
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發(fā)的留言,被版主回復了.\n";
print MAIL "點擊這兒察看回復 $cgi \n";
print MAIL " 歡迎再次光臨本網(wǎng)站!!\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> </p>
<p> </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"> </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=太極統(tǒng)計 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;
}?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -