深入研究表单提交方式:GET/POST

大家知道目前表单提交的方式有GET和POST。我在这里不多说什么，给大家看一个以GET方式提交的表单的请求：
GET /cgi-bin/tech/method.cgi?GET=GET HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*
Referer:

http://localhost//other.html
  
Accept-Language: zh-cn
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)
Host: localhost:8080
Connection: Keep-Alive
　　这个请求是我们通过这个HTML代码发出的：




　　这个请求已经超出了我们研究的范围，我们只研究其中的第一行。其中，第一个"GET"说出了提交的方式，是以GET方式提交的；中间的就是提交给服务器上哪个程序，前面一部分"/cgi-bin/tech/method.cgi"就是我们HTML的form中action的内容，而后面的"GET=GET"就是HTML的form中，input的内容：我们发现IE已经把这个表单的内容转换成特定格式了。在Perl中，通过＄GET=＄ENV{'QUERY_STRING'}获得以GET发送的数据。
　　我们再看一个以POST方式提交的表单的请求：
POST /cgi-bin/tech/method.cgi HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-
powerpoint, application/vnd.ms-excel, application/msword, */*
Referer:

http://localhost//other.html
  
Accept-Language: zh-cn
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)
Host: localhost:8080
Content-Length: 9
Connection: Keep-Alive
POST=POST
　　同样给出HTML：




　　我们发现其中的数据跑到了最下面。在Perl中，通过read(STDIN,＄POST,＄ENV{'CONTENT_LENGTH'})获得以POST发送的数据。我记得GET发送数据最多只能1024字节，而POST好像很大很大！
　　思考：如果我有这么一段HTML代码，它将会出现什么问题呢？




　　这个代码在很多程序上可能用到过，但是大多数人不会好好的想一想，究竟哪些内容是以GET发送的，哪些内容是以POST发送的。我们看看它的请求是什么：
POST /cgi-bin/tech/method.cgi?GET=GET HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-
powerpoint, application/vnd.ms-excel, application/msword, */*
Referer:

http://localhost//other.html
  
Accept-Language: zh-cn
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)
Host: localhost:8080
Content-Length: 9
Connection: Keep-Alive
POST=POST
　　哈！原来是以POST发送的。但是，你一定发现了有一部分数据放在了第一行，就是和GET的情况一样的。其实这个例子很典型，是POST和GET混发！
　　不相信你在Perl中，用read(STDIN,＄POST,＄ENV{'CONTENT_LENGTH'})和＄GET=＄ENV{'QUERY_STRING'}看看，到底哪个里面有"GET=GET"这个数据。
　　我给大家提供设备，大家自己去研究研究：
HTML部分：　　


Get-Post






















Perl部分：
#!c:\perl\bin\perl.exe
＄|=1;
print "Content-type:text/html\n\n";
print "发送方式：＄ENV{'REQUEST_METHOD'}
\n";
if(read(STDIN,＄POST,＄ENV{'CONTENT_LENGTH'})){
print "POST得到的数据：＄POST
\n";
}
if(＄GET=＄ENV{'QUERY_STRING'}){
print "GET得到的数据：＄GET
\n";
}
＄METHOD="POST";
for(＄i=0;＄i