cgi学习简明教程


第九章: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文件。好了,这课到此为止。

[数据挖掘专家] [数据挖掘研究院] [数据挖掘论坛] [数据挖掘实验室]
上一篇:cgi学习简明教程
下一篇:cgi学习简明教程
最新评论共有 0 位网友发表了评论 , 查看所有评论
发表评论( 不能超过250字,需审核,请自觉遵守互联网相关政策法规。 )
匿名?
数据挖掘网站导航 数据挖掘论坛导航
  • 数据挖掘工具
  • 数据挖掘论坛
  • DataCruncher - Cognos
  • MineSet - MathSoft
  • Intelligent Miner - GainSmarts
  • Sqlserver - SAS - Clementine
  • CART - Weka - WizSoft
  • NeuroShell - ModelQuest
  • data mining tools - Darwin
  • 数据挖掘交友
  • 数据挖掘博客
  • 数据挖掘工具
  • 数据挖掘资源
  • 数据挖掘技术算法
  • 数据挖掘相关期刊、会议
  • 研究院联盟合作专区
  • 数据挖掘基础与相关技术
  • 数据挖掘厂商与就业
  • 数据挖掘研究者乐园
  • 知名厂商数据挖掘工具资料
  • 国内数据挖掘实验室
  • Foreign Data Mining Lab
  • 热点关注
  • Perl 常用函数
  • Perl直接入门详尽指南
  • 用Perl生成随机密码
  • When perl is not quite fast enough
  • Perl简单模块指南
  • Perl DBI连接MySQL数据库
  • 我对 Catalyst 的理解和介绍
  • cgi学习简明教程
  • 我对 Catalyst 的理解和介绍
  • 如何使用strict和warnings
  • 论坛最新话题
  • Foundations of Statistical Natural Langu
  • Game Theory meet Data Mining: A Recent P
  • System Building: How does it help or hin
  • 数据挖掘与Clementine培训
  • 新手报到
  • 求 SASEM 客户流失预测分析
  • 数据挖掘工程师/搜索研究院—北京——无线
  • 数据挖掘入门介绍(如何着手数据挖掘)
  • Information Overload Survey Results
  • The INEX 2005 Workshop on Element Retrie
  • 相关资讯
    数据挖掘实验室资料
  • 数据挖掘博客地址
  • 数据挖掘实验室网站地址
  • Prepare for Medicare audits by using dat
  • 注册成为SAS用户与爱好者俱乐部会员
  • 水南梅
  • 明日烟
  • 新人报道
  • 下载
  • 厦门服务器托管,450元/月—0592-5177319 高
  • 买空间送域名--0592-5177319 高静