1. <?php  
2. if (!isset($_server["http_referer"]))  
3. echo "no referer";  
4. else  
5. echo $_server["http_referer"];  
6. ?> 

如果直接點(diǎn)擊上面的鏈接,那么頁面會(huì)顯示referer頁面的鏈接.代碼如下:

1. set http = createobject("msxml2.xmlhttp")  
2. http.open "get","http://m.survivalescaperooms.com/test/referer.php",false  
3. http.setrequestheader "referer","http://m.survivalescaperooms.com"  
4. http.send  
5. wscript.echo http.responsetext 

但是如果我用vbs調(diào)用msxml2.xmlhttp組件訪問這個(gè)頁面,返回的卻是no referer,實(shí)在匪夷所思,難道我的代碼寫錯(cuò)了？

于是google了一下“vbs偽造http referer”,發(fā)現(xiàn)搜出來的內(nèi)容大部分和這篇文章一樣,不用看又是復(fù)制粘貼,你抄我的,我抄你的,抄來抄去不知道到底是誰的,而且還是錯(cuò)的！

那篇文章第一個(gè)例子是asp教程的,代碼如下:

1. dim http  
2. set http=server.createobject("msxml2.xmlhttp")  
3. http.open "get",url,false  
4. http.setrequestheader "referer","http://www.fromdomain.cn/"  
5. http.send() 

開始我還以為asp下的vbs和我直接雙擊運(yùn)行的vbs不一樣,asp下的比較牛逼,可以改referer,為此我還專門裝了iis測試,發(fā)現(xiàn)返回的照樣是no referer,后來才看到下面的留言,“原諒我對(duì)asp不熟,給不了你什么幫助,自己查點(diǎn)其他資料參考一下吧”,“這我沒怎么玩asp了,代碼只是參考來的,asp的沒測試過”.

我真的不想罵人,不熟你寫也就算了,起碼測試一下吧,沒有測試過的代碼你也好意思貼上來？后來在千一網(wǎng)絡(luò)（這個(gè)網(wǎng)絡(luò)貌似不錯(cuò)）看到一個(gè)比較靠譜的答案,referer在asp和ajax中是無法通過設(shè)置header來更改的.

怒了,既然xmlhttp組件不行,我用socket來寫總行了吧,注:不是所有電腦上都注冊(cè)了winsock組件,代碼如下:

1. set socket = wscript.createobject("mswinsock.winsock","winsock_")  
2. socket.remotehost = "m.survivalescaperooms.com"  
3. socket.remoteport = 80  
4. socket.connect  
5. do  
6. wscript.sleep 100  
7. loop  
8. sub winsock_connect()  
9. data = "get /test/referer.php http/1.1" & vbcrlf &_  
10. "referer: http://m.survivalescaperooms.com" & vbcrlf &_  
11. "host: m.survivalescaperooms.com" & vbcrlf & vbcrlf  
12. socket.senddata data  
13. end sub  
14. sub winsock_dataarrival(bytestotal)  
15. socket.getdata str  
16. wscript.echo utf8tounicode(str)  
17. wscript.quit  
18. end sub 

utf8tounicode函數(shù)比較長就不貼出來了,以前的文章寫過,測試結(jié)果如下:

1. http/1.1 200 ok  
2. date: thu, 04 nov 2010 14:05:20 gmt  
3. server: apache  
4. transfer-encoding: chunked  
5. content-type: text/html  
6. f  
7. http://m.survivalescaperooms.com  
8. 0