📄 cgiclass9.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>CGI简明教程第九章</title>
</head>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="85%"><font face="宋体"><small><strong>CGI简明教程第九章</strong><br>
Guest-book在网页设计中占有相当重要的地位，以至于可以和记数器相提并论。留言本可以用许多编程语言来设计，当然使用最多的还是perl和vb两种。本次cgi教程我们将谈谈在编写Guest-book中最应该注意的问题，并将给出一个不算很完整的程序代码。同时提供一个C语言的win-cgi程序供大家下载。<br>
<br>
就现在的情况来看，一个标准的guest-book程序一般包括三个文件。提交表单文件<br>
（form.html)、cgi处理文件(guest-book.cgi)和最后的输出文件（book.html)。有些vb程序以access数据库为后台存储格式，以方便用户查找留言。下图给出了guest-book的工作流程。<br>
<br>
form.html<br>
首先我们来看看form.html的文件内容：<br>
<html><br>
<title>guest-book.html</title><br>
<h1>留言本</h1><br>
<form method="post" action="/cgi-shl/guest-book.cgi"><br>
<p>名字：<input name="name" size="20"><br>
<p>email:<input name="email" size="30"><br>
<p>意见：<textarea name="suggest" cols=30
rows=4></textarea><br>
</textarea><p><br>
<input type="submit" value="提交"><br>
<input type="reset" value="取消"><br>
</form></html><br>
<br>
<form method="post" action="/cgi-shl/guest-book.cgi"><br>
将此表单的提交后的动作交给guest-book.cgi程序。<br>
<br>
guest-book.cgi<br>
#! perl<br>
<br>
print"Content-type:text/html\n\n";<br>
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'})；<br>
@pairs=split(/&/,$buffer);<br>
foreach $pair(@pairs){<br>
($name,$value)=split(/=/,$pair);<br>
$value=~tr/+//;<br>
$value=~s/%([a-f A-F 0-9][a-f A-F 0-9])/pack("C",hex($1))/eg;<br>
$FORM{$name}=$value;<br>
}<br>
print"<title>留言本</title>";<br>
print"<h1>留言本</h1>";<br>
<br>
foreach $check(values%FORM){<br>
if($check eq""){<br>
print"<hr size=3>";<br>
print"<h2>请不要留空";<br>
exit(0);<br>
}<br>
}<br>
<br>
$FORM{'suggest'}=~s/cM\n/<br>\n/g;<br>
<br>
$filename="c:/website/htdocs/book.html";<br>
<br>
open(FILE,">> $filename");<br>
print FILE "名字：$FORM{'name'}<br>\n";<br>
print FILE "Email:<a
href="mailto:$FORM{'email'}>$FORM{'email'}</a><br>\n"}";<br>
print FILE "留言：$FORM{'suggest'}";<br>
close{FILE};<br>
<br>
print "<h2>谢谢留言</h2>";<br>
<br>
print"<a href=\"book.html\">请观看留言本</a>";<br>
<br>
<br>
exit(0);<br>
<br>
这个程序相当简陋，但它具有了所有的CGI-Guest程序的特点，我们一一分析如下：<br>
首先，<br>
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'})；<br>
@pairs=split(/&/,$buffer);<br>
foreach $pair(@pairs){<br>
($name,$value)=split(/=/,$pair);<br>
$value=~tr/+//;<br>
$value=~s/%([a-f A-F 0-9][a-f A-F 0-9])/pack("C",hex($1))/eg;<br>
$FORM{$name}=$value;<br>
}<br>
这是一段表单分析的语句，在前面的程序里，估计大家也都见过了。<br>
<br>
其次：<br>
foreach $check(values%FORM){<br>
if($check eq""){<br>
print"<hr size=3>";<br>
print"<h2>请不要留空";<br>
exit(0);<br>
}<br>
}<br>
做输入字段的检查，看看是否有留空的现象。从前这种任务都是要CGI程序来验证的，比如email是否输入的是mail地址等检查。不过现在我们可以通过javascript来做这样的检查，这样服务器的负担将大大减轻。<br>
<br>
最后：<br>
$filename="c:/website/htdocs/book.html";<br>
<br>
open(FILE,">> $filename");<br>
print FILE "名字：$FORM{'name'}<br>\n";<br>
print FILE "Email:<a
href="mailto:$FORM{'email'}>$FORM{'email'}</a><br>\n"}";<br>
print FILE "留言：$FORM{'suggest'}";<br>
close{FILE};<br>
<br>
print "<h2>谢谢留言</h2>";<br>
<br>
print"<a href=\"book.html\">请观看留言本</a>";<br>
<br>
<br>
exit(0);<br>
输出内容到文件和屏幕上。完成留言的程序。<br>
<br>
book.html:<br>
这个程序中book.html没有什么特别的要求，可以不用写，就让程序自动生成。<br>
现在有的cgi程序，对book.html也有设定，比如在<head></head>之间就写上注释<br>
<!--这是流言开始--!><br>
<!--这是流言结束--!><br>
这样，在程序对留言数据操作的时候，就可以忽略掉文件内的其他内容。<br>
<br>
最后，我为各位找到一个用C写的guestbook程序，它是在win平台上运行的，具有非常好的兼容性。同时它采用了临时文件的方式来传递信息。所以你需要设定.ini文件。好了，这课到此为止。<br>
</small></font></td>
</tr>
<tr>
<td width="15%"></td>
<td width="85%"><font face="宋体"><small>在这里下载<a
href="../../tppmsgs/msgs0.htm#42" tppabs="http://202.96.217.5/~xiaoyi/CGI-Guestbook_english.zip">guestbook</a>程序，安装请参考readme文件</small></font></td>
</tr>
</table>
回<a href="default.html" tppabs="http://202.96.217.5/~xiaoyi/default.html">CGI教程目录</a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -