Guest-book在网页设计中占有相当重要的地位，以至于可以和记数
器相提并论。留言本可以用许多编程语言来设计，当然使用最多的还是
perl和vb两种。本次cgi教程我们将谈谈在编写Guest-book中最应该注
意的问题，并将给出一个不算很完整的程序代码。
　　
　　 就现在的情况来看，一个标准的guest-book程序一般包括三个文
件。提交表单文件
　　 （form.html)、cgi处理文件(guest-book.cgi)和最后的输出文
件（book.html)。有些vb程序以access数据库为后台存储格式，以方便
用户查找留言。下图给出了guest-book的工作流程。
　　
　　 form.html
＜h1>＜span style="FONT-SIZE: 9pt; LINE-HEIGHT: 15pt">留言本＜/span>＜/h1>
＜form action=/cgi-shl/guest-book.cgi method=post>
＜span style="FONT-SIZE: 9pt; LINE-HEIGHT: 15pt">＜/span>
＜p>＜span style="FONT-SIZE: 9pt; LINE-HEIGHT: 15pt">名字：
＜input name=name>
＜/span>
＜p>＜span style="FONT-SIZE: 9pt; LINE-HEIGHT: 15pt">email:
＜input name=email size=30>
＜/span>
＜p>＜span style="FONT-SIZE: 9pt; LINE-HEIGHT: 15pt">意见：
＜textarea cols=30 name=suggest rows=4>＜/textarea>
＜/span>
＜p>＜span style="FONT-SIZE: 9pt; LINE-HEIGHT: 15pt"> 　　
＜input type=submit value=提交 name="submit">
＜input type=reset value=取消 name="reset">
　　 ＜/span>
＜/form>
　　 将此表单的提交后的动作交给guest-book.cgi程序。
　　
　　 guest-book.cgi
　　 #! perl
　　
　　 print"Content-type:text/htmlnn";
　　 read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'})；
　　 @pairs=split(/&/,$buffer);
　　 foreach $pair(@pairs){
　　 ($name,$value)=split(/=/,$pair);
　　 $value=~tr/+//;
　　 $value=~s/%([a-f A-F 0-9][a-f A-F 0-9])/pack("C",hex($1)
)/eg;
　　 $FORM{$name}=$value;
　　 }
　　 print"";
　　 print" 留言本";
　　
　　 foreach $check(values%FORM){
　　 if($check eq""){
　　 print"----------------------------------------------------------------";
　　 print"请不要留空";
　　 exit(0);
　　 }
　　 }
　　
　　 $FORM{'suggest'}=~s/cMn/n/g;
　　 $filename="c:/website/htdocs/book.html";
　　
　　 open(FILE,">> $filename");
　　 print FILE "名字：$FORM{'name'}n";
　　 print FILE "Email:
　　 print FILE "留言：$FORM{'suggest'}";
　　 close{FILE};
　　
　　 print "谢谢留言";
　　 print"请观看留言本";
　　
　　 exit(0);