一個php作的文本留言本的例子(二)

上一次我們研究瞭guest.php(做為現在的主流開發語言)文件.具體的問題還要求讀者朋友自己深入的去實踐,而且需要一些工具書來學習,如果您一點php(做為現在的主流開發語言)的知識都沒有,筆者奉勸您就不要想下看瞭,筆者沒有太多的時間和篇幅去逐句探究一個php(做為現在的主流開發語言)文件的用途和意義.好的,接下來我們來作edit.php(做為現在的主流開發語言)這個文件.
———–
//edit.php(做為現在的主流開發語言)

<?
   if ($Submit)
   {
if ($SavePassword==”on”)
{setcookie(“TxtPassword”,”$TxtPassword”,time()+30*24*3600);}
else
{setcookie(“TxtPassword”);}
   }
?>
<html>
<style type=text/css>
Td {FONT-SIZE: 10pt;}
TEXTAREA
{
FONT-FAMILY: “宋體”;
FONT-SIZE: 10pt;
}

</style>
<head>
<meta http-equiv=”Content-Language” content=”zh-cn”>
<meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″>
<title>修改留言</title>
<?
require(“sys.php(做為現在的主流開發語言)“);
function readvalue($tags,$tage)
{
global $message,$long,$reply;
$StrStart=strlen(strstr($message,$tags))-strlen($tags);//去除標記後變量所在字串的起始位置.
$StrEnd=strlen(strstr($message,$tage));
$len=$StrStart-$StrEnd;
$StrStart=$long-$StrStart;//起始字符.
$StrString=substr($message,$StrStart,$len);
return $StrString;
}

function save($record)
{
global $TxtContent,$TxtEmail,$TxtHomepage,$TxtEmail,$TxtName,$TxtFrom,$TxtReply,$REMOTE_ADDR,$guestfile;
$content=file($guestfile,”r”);
$space = “&nbsp;”;
$time = date(Y年m月d日H小時i分);
$ip=$REMOTE_ADDR;
$TxtReply=StripSlashes($TxtReply);
$TxtContent=StripSlashes($TxtContent);
$TxtContent=htmlspecialchars($TxtContent);
$TxtContent=check_strlen_long($TxtContent);
$TxtContent=nl2br($TxtContent);
$Wcontent = “<tr><td><font color=#AB00E1>留言內容:</font><br><!–content>$TxtContent<!–endcontent> “;
$Wcontent=$Wcontent.”<br><font color=#6633FF>留言人大名:</font><!–name>$TxtName<!–endname> “;
if ($TxtEmail !=””)
{$Wcontent=$Wcontent.”<br><font color=#9900CC>電子信箱</font><a href=”mailto:$TxtEmail”><!–email>$TxtEmail<!–endemail></a>”.”$space”;}
if ($TxtHomepage !=”https://”)
{$Wcontent=$Wcontent.”<font color=#9900CC>主頁:</font>$TxtHompage<a href=”$TxtHomepage” target=new><!–homepage>$TxtHomepage<!–endhomepage></a>”;}
$Wcontent=$Wcontent.”<br><font color=#0000FF>時間:$time 來自:<!–from>$TxtFrom<!–endfrom> “.$ip.”</font>”;
$Wcontent=ereg_replace(chr(10),””,$Wcontent);
$Wcontent=$Wcontent.”<hr size=1></td></tr>”;
$TxtReply=ereg_replace(chr(10),””,$TxtReply);
$WContent=$Wcontent.$TxtReply.”n”;
$count=count($content);
$fp=fopen($guestfile,”w”);
for ($i=0;$i<$count;$i++)
{
if ($i==$record-1)
  {$content[$i]=$WContent;}
fputs($fp,$content[$i]);
}
fclose($fp);
}

$content=file($guestfile,”r”);
$message=$content[$record-1];
$long=strlen($message);
$txtcontent=readvalue(<!–content>,<!–endcontent>);
$txtname=readvalue(<!–name>,<!–endname>);
$txtfrom=readvalue(<!–from>,<!–endfrom>);
$txtemail=readvalue(<!–email>,<!–endemail>);
$txthomepage=readvalue(<!–homepage>,<!–endhomepage>);
$txtcontent=strip_tags($txtcontent);
$tags=”<!–reply>”;
$txtreply=strstr($message,$tags);

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。