21,886
社区成员
发帖
与我相关
我的任务
分享我的留言本程序,请高手指点!
<-HTML头部分
<?
if($name!="")
{
if(!($fg=fopen("cgi-bin/guests.dat","a")))
{
echo "<html><head><title>文件打开错误</titile></head>";
echo "<body><p align=\"center\">文件打开错误 请联系<a href=\"mailto:gdsnail@sina.com\">穷人</a></p>";
echo "</body></html>";
exit();
}
else {
$dtime=date("Y M d");
fputs($fg,$name."\t");
fputs($fg,$email."\t");
fputs($fg,$dtime."\t");
fputs($fg,$memo."\t");
fclose($fg);
}
}
?>
<? //phpstart...
function readline($filehandle,$tag)
{
if($filehandle)
{
while(!feof($filehandle))
{
$c=fgetc($filehandle);
if($c!=$tag)$str.=$c;
else return($str);
}
}
}
$tdname="<table width=\"100%\" border=\"1\" cellspacing=\"3\" cellpadding=\"0\" bordercolor=\"#FFFFFF\">
<tr valign=\"top\" align=\"left\" bordercolor=\"#000000\">
<td width=\"26%\"><b> □大名:";
$tdmail="</b></td>
<td width=\"43%\"><b> □邮件:";
$tdtime="</b></td>
<td width=\"31%\"><b> □时间:";
$tdmain="</b></td>
</tr>
<tr align=\"left\" valign=\"top\" bordercolor=\"#ffffff\">
<td colspan=\"3\" class=\"text\"> 内容:<br>";
$tdend="</td></tr></table>";
if(file_exists("cgi-bin/guests.dat")&&($fg=fopen("cgi-bin/guests.dat","r")))
{
while(!feof($fg))
{
$nm=readline($fg,"\t");
$em=readline($fg,"\t");
$tm=readline($fg,"\t");
$mm=readline($fg,"\t");
print($tdname);
print($nm);
print($tdmail);
$em="<a href=\"mailto:".$em."\">".$em."</a>";
print($em);
print($tdtime);
print($tm);
print($tdmain);
print($mm);
print($tdend);
if(feof($fg))break;
}
}
else echo "<p align=\"center\">文件打开错误 请联系<a href=\"mailto:gdsnail@sina.com\">穷人</a></p>";
//phpstop...
?>
<-HTML结尾部分
(有一个问题,就是它会多输出一个空纪录,请指点!)
<?
if($name!="")
{
if(!($fg=fopen("cgi-bin/guests.dat","a")))
{
echo "<html><head><title>文件打开错误</titile></head>";
echo "<body><p align=\"center\">文件打开错误 请联系<a href=\"mailto:gdsnail@sina.com\">穷人</a></p>";
echo "</body></html>";
exit();
}
else {
$dtime=date("Y M d");
fputs($fg,$name."\t");
fputs($fg,$email."\t");
fputs($fg,$dtime."\t");
fputs($fg,$memo."\t");
fclose($fg);
}
}
?>
<? //phpstart...
function readline($filehandle,$tag)
{
if($filehandle)
{
while(!feof($filehandle))
{
$c=fgetc($filehandle);
if($c!=$tag)$str.=$c;
else return($str);
}
}
}
$tdname="<table width=\"100%\" border=\"1\" cellspacing=\"3\" cellpadding=\"0\" bordercolor=\"#FFFFFF\">
<tr valign=\"top\" align=\"left\" bordercolor=\"#000000\">
<td width=\"26%\"><b> □大名:";
$tdmail="</b></td>
<td width=\"43%\"><b> □邮件:";
$tdtime="</b></td>
<td width=\"31%\"><b> □时间:";
$tdmain="</b></td>
</tr>
<tr align=\"left\" valign=\"top\" bordercolor=\"#ffffff\">
<td colspan=\"3\" class=\"text\"> 内容:<br>";
$tdend="</td></tr></table>";
if(file_exists("cgi-bin/guests.dat")&&($fg=fopen("cgi-bin/guests.dat","r")))
{
while(!feof($fg))
{
$nm=readline($fg,"\t");
$em=readline($fg,"\t");
$tm=readline($fg,"\t");
$mm=readline($fg,"\t");
print($tdname);
print($nm);
print($tdmail);
$em="<a href=\"mailto:".$em."\">".$em."</a>";
print($em);
print($tdtime);
print($tm);
print($tdmain);
print($mm);
print($tdend);
if(feof($fg))break;
}
}
else echo "<p align=\"center\">文件打开错误 请联系<a href=\"mailto:gdsnail@sina.com\">穷人</a></p>";
//phpstop...
?>
<-HTML结尾部分
(有一个问题,就是它会多输出一个空纪录,请指点!)
...全文
请发表友善的回复…
发表回复
