注册
登录
| 关键词： POST GET method application image 数据 方式 Perl localhost Content |
by:Hackfan 本文平台：Windows 2000 Professional + Apache 1.3.17 + Perl 5.6.1 + Internet Explorer 5.00.2920.0000 大家知道目前表单提交的方式有GET和POST。我在这里不多说什么，给大家看一个以GET方式提交的表单的请求： GET /cgi-bin/tech/method.cgi?GET=GET HTTP/1.1Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*Referer: http://localhost//other.htmlAccept-Language: zh-cnAccept-Encoding: gzip, deflateUser-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)Host: localhost:8080Connection: 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.1Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*Referer: http://localhost//other.htmlAccept-Language: zh-cnContent-Type: application/x-www-form-urlencodedAccept-Encoding: gzip, deflateUser-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)Host: localhost:8080Content-Length: 9Connection: 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.1Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*Referer: http://localhost//other.htmlAccept-Language: zh-cnContent-Type: application/x-www-form-urlencodedAccept-Encoding: gzip, deflateUser-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)Host: localhost:8080Content-Length: 9Connection: Keep-Alive POST=POST 哈！原来是以POST发送的。但是，你一定发现了有一部分数据放在了第一行，就是和GET的情况一样的。其实这个例子很典型，是POST和GET混发！ 不相信你在Perl中，用read(STDIN,$POST,$ENV{'CONTENT_LENGTH'})和$GET=$ENV{'QUERY_STRING'}看看，到底哪个里面有"GET=GET"这个数据。 我给大家提供设备，大家自己去研究研究： HTML部分： action="/cgi-bin/tech/method.cgi?name=Hackfan&age=16&[email protected]" method="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<=1;$i++){?foreach(split(/&/,$$METHOD)){??$=~s/\+//g;??($name,$value)=split(/=/,$);??$name=~s/%([a-fA-f0-9][a-fA-f0-9])/pack("C",hex($1))/eg;??$value=~s/%([a-fA-f0-9][a-fA-f0-9])/pack("C",hex($1))/eg;??$$METHOD{$name}=$value;?}?$METHOD="GET";} $METHOD="POST"; for($i=0;$i<=1;$i++){?print "Hash形式的$METHOD数据遍历：\n";?foreach(keys %{$METHOD}){??print "\$".$METHOD."{".$."}=$$METHOD{$}\n";?}?print "\n";?$METHOD="GET";} exit; ####代码结束#### 好了，我要说的是，搞这个研究究竟有什么意义呢？ 意义是：让你知道，用户提交的数据哪些是用POST方式，哪些使用GET方式的！ 其实我上面那段Perl代码已经包括了很多的技术。你通过阅读就可以知道%GET里面放的是用GET方式提交的，%POST同理！ 如果你对我编写的Perl代码感兴趣，欢迎切磋：QQ:106814。至于我如何获得IE发送来的请求的，我要说我是用Perl编的一个Server监听8080端口，我是不是像欧姆一样搞研究大多东西都自己编写（当然，让我编写一个操作系统就有点难度了，不过WebServer凑合）？开玩笑呢！ QQ:106814Email:[email protected] Page:http://www.msger.net/hackfan |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
