名字：

email：

意见：

    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"

请不要留空"；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 "

谢谢留言

    print"请观看留言本"；

    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"

请不要留空"；exit（0）；}做输入字段的检查，看看是否有留空的现象。从前这种任务都是要CGI程序来验证的，比如

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

    这样服务器的负担将大大减轻。

    最后：$filename="c：/website/htdocs/book.html"；

    open（FILE，">> $filename"）；print FILE "名字：$FORM{'name'}
n"；print FILE "Email：

    print "

谢谢留言

    print"请观看留言本"；

    exit（0）；输出内容到文件和屏幕上。完成留言的程序。

    book.html：这个程序中book.html没有什么特别的要求，可以不用写，就让程序自动生成。

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

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

上一页  [1] [2] [3] 下一页