cgi的基本概念问题(30分)

  • 主题发起人 主题发起人 fsivanl
  • 开始时间 开始时间
F

fsivanl

Unregistered / Unconfirmed
GUEST, unregistred user!
在我原来的概念中，cgi是一个执行程序之类的文件放于网站上，由一些语言生成而得。
后来我发现在网站上所用到的cgi文件是一些文本文件（其实就是源代码），请问应怎
样去理解cgi的概念，菜鸟分数不多，请多多包含。[?]
 
Common Gate Intergace
在物理上，CGI是一段程序，它运行在Server上，提供同客户段 Html页面的接口。
看一个实际例子：
现在的个人主页上大部分都有一个留言本。留言本的工作是这样的：先由用户在客户段输入
一些信息，如名字之类的东西。接着用户按一下“留言”（到目前为止工作都在客户端），
浏览器把这些信息传送到服务器的cgi目录下特定的cgi程序中，于是cgi程序在服务器上
按照预定的方法进行处理。在本例中就是把用户提交的信息存入指定的文件中。然后cgi程序
给客户端发送一个信息，表示请求的任务已经结束。此时用户在浏览器里将看到“留言结束”
的字样。整个过程结束。

不知道这样说有没有理解哦～～
 
很多谢“卷起千堆雪tyn”详细回答，你的说法正是我原来的概念，但为什么这些cgi程序在
服务器上是文本文件（我参考过几个网站），是否这么cgi程序在执行时再被解释？由谁来
解释？用什么语言来编写这些cgi文本文件（perl...?）,以下是我在网站拉下来的源程序。
代码: 
<html><body bgcolor=/"#FFFFFF/" text=/"#000000/">#!/usr/local/bin/perl
#####################################################################
$guestbookurl = "http://www.xxxx.com/note/guestbook.htm";
$guestbookreal = "/usr/home/userxxxxxxx/www/note/guestbook.htm";
$guestbook_cgiurl = "http://www.xxxx.com/cgi-bin/guestbook.cgi";
#####################################################################


$date_command = "/bin/date";

#change variable done .. 改变参数到此为止，以下参数不要随便改动


# Set Your Options:
$linkmail = 1;          # 1 = Yes; 0 = No
$separator = 1;         # 1 = <hr>; 0 = <p>
$redirection = 0;       # 1 = Yes; 0 = No
$entry_order = 1;       # 1 = Newest entries added first;
                        # 0 = Newest Entries added last.
$allow_html = 0;        # 1 = Yes; 0 = No
$line_breaks = 0;	# 1 = Yes; 0 = No

# Done
##############################################################################

# Get the Date for Entry
$date = `$date_command +"%A, %B %d, %Y at %T (%Z)"`; chop($date);
$shortdate = `$date_command +"%D %T %Z"`; chop($shortdate);

# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

# Split the name-value pairs
@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);

   # Un-Webify plus signs and %-encoding
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $value =~ s/<!--(.|/n)*-->//g;

   if ($allow_html != 1) {
      $value =~ s/<([^>]|/n)*>//g;
   }

   $FORM{$name} = $value;
}

unless(-w "$guestbookreal")
{
        print "Content-type: text/html/n/n";
        print "留言薄配置错误,不能写文件!<br>/n";
        print "$guestbookurl/n";
        exit;
}

# Print the Blank Response Subroutines
&no_comments unless $FORM{'comments'};
&no_name unless $FORM{'realname'};

# Begin the Editing of the Guestbook File
open (FILE,"$guestbookreal") || die "Can't Open $guestbookreal: $!/n";
@LINES=<FILE>;
close(FILE);
$SIZE=@LINES;

# Open Link File to Output
open (GUEST,">$guestbookreal") || die "Can't Open $guestbookreal: $!/n";

for ($i=0;$i<=$SIZE;$i++) {
   $_=$LINES[$i];
   if (/<!--begin-->/) { 

      if ($entry_order eq '1') {
         print GUEST "<!--begin-->/n";
      }
   
      if ($line_breaks == 1) {
         $FORM{'comments'} =~ s//cM/n/<br>/n/g;
      }

      print GUEST "<b>$FORM{'comments'}</b><br>/n";

      if ($FORM{'url'}) {
         print GUEST "<a href=/"$FORM{'url'}/">$FORM{'realname'}</a>";
      }
      else {
         print GUEST "$FORM{'realname'}";
      }

      if ( $FORM{'username'} ){
         if ($linkmail eq '1') {
            print GUEST " /<<a href=/"mailto:$FORM{'username'}/">";
            print GUEST "$FORM{'username'}</a>/>";
         }
         else {
            print GUEST " <$FORM{'username'}>";
         }
      }

      print GUEST "<br>/n";

      if ( $FORM{'city'} ){
         print GUEST "$FORM{'city'},";
      }
     
      if ( $FORM{'state'} ){
         print GUEST " $FORM{'state'}";
      }

      if ( $FORM{'country'} ){
         print GUEST " $FORM{'country'}";
      }

      if ($separator eq '1') {
         print GUEST " - $date From $ENV{'REMOTE_ADDR'}<hr>/n/n";
      }
      else {
         print GUEST " - $date<p>/n/n";
      }

      if ($entry_order eq '0') {
         print GUEST "<!--begin-->/n";
      }

   }
   else {
      print GUEST $_;
   }
}

close (GUEST);


#########
# Options


# Print Out Initial Output Location Heading
if ($redirection eq '1') {
   print "Location: $guestbookurl/n/n";
}
else {
   &no_redirection;
}

#######################
# Subroutines

sub no_comments {
   print "Content-type: text/html/n/n";
   print "<head><title>忘了写留言</title>
<meta http-equiv=/"Content-Type/" content=/"text/html; charset=gb2312/"></head>/n";
   print "<h1>忘了写留言</h1>/n";
print <<E1
><form method="POST" action="$guestbook_cgiurl">
  <p><a name="add_guestbook"></a>添加留言：<br>
  您的姓名：<input type="text" name="realname" size="40" value="$FORM{'realname'}"><br>
  电子邮件：<input type="text" name="username" size="40" value="$FORM{'username'}"><br>
  主页地址：<input type="text" name="url" size="40" value="$FORM{'url'}"><br>
  您来自于：<input type="text" name="city" size="11" value="$FORM{'city'}">市, <input type="text"
  name="state" size="6" value="$FORM{'state'}">省，<input type="text" value="中国" name="country" size="15"></p>
  <p>您的留言：<br>
  <textarea name="comments" COLS="60" ROWS="4" value="$FORM{'comments'}"></textarea></p>
  <p><input type="submit" value="添加留言"> * <input type="reset" value="擦除重写"> </p>
<input type="hidden" value="$FORM{'user'}" name="user">

</form>

<hr>
<p><a href="/">返回主页</a></p>

E1
;

   exit;
}

sub no_name {
   print "Content-type: text/html/n/n";
   print "<head><title>忘了写姓名</title>
<meta http-equiv=/"Content-Type/" content=/"text/html; charset=gb2312/"></head>/n";
   print "<h1>忘了写姓名</h1>/n";
print <<E2
><form method="POST" action="$guestbook_cgiurl">
  <p><a name="add_guestbook"></a>添加留言：<br>
  您的姓名：<input type="text" name="realname" size="40" value="$FORM{'realname'}"><br>
  电子邮件：<input type="text" name="username" size="40" value="$FORM{'username'}"><br>
  主页地址：<input type="text" name="url" size="40" value="$FORM{'url'}"><br>
  您来自于：<input type="text" name="city" size="11" value="$FORM{'city'}">市, <input type="text"
  name="state" size="6" value="$FORM{'state'}">省，<input type="text" value="中国" name="country" size="15"></p>
  <p>您的留言：已被保存，只输入姓名即可，修改留言请到前一页<br>

<input type=hidden name="comments" "value="$FORM{'comments'}">
  <p><input type="submit" value="添加留言"> * <input type="reset" value="擦除重写"> </p>
<input type="hidden" value="$FORM{'user'}" name="user"> 
</form>

<hr>
<p><a href="/">返回主页</a></p>

E2
; 


   exit;
}


# Redirection Option
sub no_redirection {

   # Print Beginning of HTML
   print "Content-Type: text/html/n/n";
   print "<head><title>Thank You</title>
<meta http-equiv=/"Content-Type/" content=/"text/html; charset=gb2312/"></head>/n";
   print "<h1>感谢您的留言</h1>/n";

   # Print Response
   print "感谢您的留言，以下是添加到留言簿的详细信息：/n";
   print "<b>$FORM{'comments'}</b><br>/n";

   if ($FORM{'url'}) {
      print "<a href=/"$FORM{'url'}/">$FORM{'realname'}</a>";
   }
   else {
      print "$FORM{'realname'}";
   }

   if ( $FORM{'username'} ){
      if ($linkmail eq '1') {
         print " <<a href=/"mailto:$FORM{'username'}/">";
         print "$FORM{'username'}</a>>";
      }
      else {
         print " <$FORM{'username'}>";
      }
   }

   print "<br>/n";

   if ( $FORM{'city'} ){
      print "$FORM{'city'},";
   }

   if ( $FORM{'state'} ){
      print " $FORM{'state'}";
   }

   if ( $FORM{'country'} ){
      print " $FORM{'country'}";
   }

   print " - $date<p>/n";

   # Print End of HTML
   print "<hr>/n";
   print "<a href=/"$guestbookurl/">返回到留言薄</a>/n";
   print "- 您需要按览浏器的刷新才能看到您的留言./n";
   print "/n";

   exit;
}

</body>

</html>

 
是可执行程序呀，上面的文件在操作系统环境里也是可执行的。
CGI程序基本是由操作系统解释，只是输出不是标准输出
 
赫赫，你看到的是perl代码。
你去执行的cgi其实是perl.exe（unix下没有exe),然后perl再去解释执行这个文本。
 
例如ASP程序, 是由IIS对其代码解析执行的.再把它生成的HTML输出到WEB页面上.
 
如果你想调试perl,你可以试试www.activestate.com 的activeperl.
 
cgi有编译形式和解释形式的
用delphi做的是编译形式，直接返回结果！
asp,perl:解释形式,解释形式的需要解释器进行解释，返回结果！
asp进行由一个dll进行解释和执行！具体是哪个我忘了！
 
多人接受答案了。asasa
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
L
CGI与SOCKET问题(100分)
回复
0
查看
136
liqinger80
L
L
用NMHTTP如何写一个客户端，向服务器端的CGI发送一个二进制文件（非文本）？(50分)
回复
5
查看
324
loxtln
L
I
怎么学关于CGI的方法？(75分)
回复
4
查看
137
ego
E
D
怎样用cgi写一个网页splash?(300分)
回复
7
查看
169
DelphiFish
D
后退
顶部