一個(gè)沒(méi)有MYSQL數(shù)據(jù)庫(kù)支持的簡(jiǎn)易留言本的編寫(xiě)
更新時(shí)間:2006年10月09日 00:00:00 作者:
由于國(guó)內(nèi)MySQL資源比較緊張,國(guó)外的不是太慢,就是不對(duì)我國(guó)用戶開(kāi)放。因此,在沒(méi)有MYSQL的日子里,我們想做一些方便他人和完善自己站點(diǎn)的事情,那簡(jiǎn)直比登天還難,為了擺脫這種痛苦,niky哭思冥想,閉門(mén)造車(chē),終于,皇天不負(fù)有心人,一個(gè)不需要MYSQL數(shù)據(jù)庫(kù)支持的簡(jiǎn)易留言本就這樣出臺(tái)了,我們暫且叫它gbook.php吧,源程序如下:
<?
if ($message)
{
$message = ereg_replace( "rnrn", "n<P>", $message);
//去除無(wú)效的控制符號(hào)
$date = date( "l, F j Y, h:i a"); //獲取指定的日期時(shí)間格式
$ip=getenv("REMOTE_ADDR");
$message = "<table border="0" cellspacing="0" width="640" cellpadding="0">
<tr>
<td width="25%"><B>$name </B></td>
<td width="25%">$email</td>
<td width="25%">寫(xiě)于--$date</td>
<td width="25%">來(lái)自>>$ip</td>
</tr>
<tr>
<td width="100%" colspan="4">$subject</td>
</tr>
<tr>
<td width="100%" colspan="4">$massage</td>
</tr>
</table><hr>
";
$fp = fopen (basename($PHP_SELF) . ".comment", "a");
fwrite ($fp, $message);
fclose ($fp);
}
@readfile(basename(($PHP_SELF . ".comment")));
//讀出記錄文件內(nèi)容
?>
<form method="POST" >
<p>姓名:<input type="text" name="name" size="20"> E-mail:<input type="text" name="email" size="24"><hr>
主題:<input type="text" name="subject" size="55">
<p>
您想說(shuō)的話:<br><TEXTAREA name="message" rows=10 cols=60 wrap=virtual>
</TEXTAREA><BR><br>
<INPUT name="submit" type="submit" value="發(fā)表!"> <input type="reset" value="重寫(xiě)?" name="B2">
</p>
</form>
──────────────────────────────────────
上面的程序,其原理是:在PHP端首先判斷message變量是否存在,如果不存在,則讀文件。讀文件使用了readfile函數(shù)。至于文件名的提取,這里使用了一個(gè)巧妙的方式(使用$PHP_SELF變量提取文件所在的絕對(duì)位置,然后用basename()函數(shù)提取文件名,再加上指定的文件尾comment.)來(lái)完成的。為了能更好的學(xué)習(xí)PHP&MySQL,特拿來(lái)和大家共享,也希望曾經(jīng)和niky一樣痛苦過(guò)的網(wǎng)路人能有一個(gè)屬于自己的留言本,而不是"xxx留言本由xxx.com提供."而大煞風(fēng)景。還等什么,趕快行動(dòng)吧!
版權(quán)所有,請(qǐng)勿隨便轉(zhuǎn)載!
Copyright ©2000 niky All rights reserved.
【本文版權(quán)歸作者與奧索網(wǎng)共同擁有,如需轉(zhuǎn)載,請(qǐng)注明作者及出處】
<?
if ($message)
{
$message = ereg_replace( "rnrn", "n<P>", $message);
//去除無(wú)效的控制符號(hào)
$date = date( "l, F j Y, h:i a"); //獲取指定的日期時(shí)間格式
$ip=getenv("REMOTE_ADDR");
$message = "<table border="0" cellspacing="0" width="640" cellpadding="0">
<tr>
<td width="25%"><B>$name </B></td>
<td width="25%">$email</td>
<td width="25%">寫(xiě)于--$date</td>
<td width="25%">來(lái)自>>$ip</td>
</tr>
<tr>
<td width="100%" colspan="4">$subject</td>
</tr>
<tr>
<td width="100%" colspan="4">$massage</td>
</tr>
</table><hr>
";
$fp = fopen (basename($PHP_SELF) . ".comment", "a");
fwrite ($fp, $message);
fclose ($fp);
}
@readfile(basename(($PHP_SELF . ".comment")));
//讀出記錄文件內(nèi)容
?>
<form method="POST" >
<p>姓名:<input type="text" name="name" size="20"> E-mail:<input type="text" name="email" size="24"><hr>
主題:<input type="text" name="subject" size="55">
<p>
您想說(shuō)的話:<br><TEXTAREA name="message" rows=10 cols=60 wrap=virtual>
</TEXTAREA><BR><br>
<INPUT name="submit" type="submit" value="發(fā)表!"> <input type="reset" value="重寫(xiě)?" name="B2">
</p>
</form>
──────────────────────────────────────
上面的程序,其原理是:在PHP端首先判斷message變量是否存在,如果不存在,則讀文件。讀文件使用了readfile函數(shù)。至于文件名的提取,這里使用了一個(gè)巧妙的方式(使用$PHP_SELF變量提取文件所在的絕對(duì)位置,然后用basename()函數(shù)提取文件名,再加上指定的文件尾comment.)來(lái)完成的。為了能更好的學(xué)習(xí)PHP&MySQL,特拿來(lái)和大家共享,也希望曾經(jīng)和niky一樣痛苦過(guò)的網(wǎng)路人能有一個(gè)屬于自己的留言本,而不是"xxx留言本由xxx.com提供."而大煞風(fēng)景。還等什么,趕快行動(dòng)吧!
版權(quán)所有,請(qǐng)勿隨便轉(zhuǎn)載!
Copyright ©2000 niky All rights reserved.
【本文版權(quán)歸作者與奧索網(wǎng)共同擁有,如需轉(zhuǎn)載,請(qǐng)注明作者及出處】
相關(guān)文章
html中select語(yǔ)句讀取mysql表中內(nèi)容
html中select語(yǔ)句讀取mysql表中內(nèi)容...2006-10-10
在Zeus Web Server中安裝PHP語(yǔ)言支持
在Zeus Web Server中安裝PHP語(yǔ)言支持...2006-10-10
一個(gè)簡(jiǎn)單的自動(dòng)發(fā)送郵件系統(tǒng)(一)
一個(gè)簡(jiǎn)單的自動(dòng)發(fā)送郵件系統(tǒng)(一)...2006-10-10
一個(gè)沒(méi)有MYSQL數(shù)據(jù)庫(kù)支持的簡(jiǎn)易留言本的編寫(xiě)
一個(gè)沒(méi)有MYSQL數(shù)據(jù)庫(kù)支持的簡(jiǎn)易留言本的編寫(xiě)...2006-10-10
Email+URL的判斷和自動(dòng)轉(zhuǎn)換函數(shù)
Email+URL的判斷和自動(dòng)轉(zhuǎn)換函數(shù)...2006-10-10
NT IIS下用ODBC連接數(shù)據(jù)庫(kù)
NT IIS下用ODBC連接數(shù)據(jù)庫(kù)...2006-10-10

