php HTTP REFERER模仿代码

　　<?php  
　　if (!isset($_server["http_referer"]))  
　　echo "no referer";  
　　else  
　　echo $_server["http_referer"];  
　　?>
　　如果直接点击上面的链接,那么页面会显示referer页面的链接.代码如下:
 
　　set http = createobject("msxml2.xmlhttp")  
　　http.open "get","http://www.Cuoxin.com/test/referer.php",false  
　　http.setrequestheader "referer","http://www.Cuoxin.com"  
　　http.send  
　　wscript.echo http.responsetext
　　但是如果我用vbs调用msxml2.xmlhttp组件访问这个页面,返回的却是no referer,实在匪夷所思,难道我的代码写错了？
 
　　于是google了一下“vbs伪造http referer”,发现搜出来的内容大部分和这篇文章一样,不用看又是复制粘贴,你抄我的,我抄你的,抄来抄去不知道到底是谁的,而且还是错的！
 
　　那篇文章第一个例子是asp教程的,代码如下:
 
　　dim http  
　　set http=server.createobject("msxml2.xmlhttp")  
　　http.open "get",url,false  
　　http.setrequestheader "referer","http://www.fromdomain.cn/"  
　　http.send()
　　开始我还以为asp下的vbs和我直接双击运行的vbs不一样,asp下的比较牛逼,可以改referer,为此我还专门装了iis测试,发现返回的照样是no referer,后来才看到下面的留言,“原谅我对asp不熟,给不了你什么帮助,自己查点其他资料参考一下吧”,“这我没怎么玩asp了,代码只是参考来的,asp的没测试过”.
 
　　
　　怒了,既然xmlhttp组件不行,我用socket来写总行了吧,注:不是所有电脑上都注册了winsock组件,代码如下:
 
　　set socket = wscript.createobject("mswinsock.winsock","winsock_")  
　　socket.remotehost = "www.Cuoxin.com"  
　　socket.remoteport = 80  
　　socket.connect  
　　do  
　　wscript.sleep 100  
　　loop  
　　sub winsock_connect()  
　　data = "get /test/referer.php http/1.1" & vbcrlf &_  
　　"referer: http://www.Cuoxin.com" & vbcrlf &_  
　　"host: www.Cuoxin.com" & vbcrlf & vbcrlf  
　　socket.senddata data  
　　end sub  
　　sub winsock_dataarrival(bytestotal)  
　　socket.getdata str  
　　wscript.echo utf8tounicode(str)  
　　wscript.quit  
　　end sub