ASP伪造REFERER

　2008-05-02 10:37:53　来源：WEB开发网　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劖顐煎☉妯锋瀻闁归偊鍓涘▔姘舵⒑閸涘⿴娈旀繛灞傚妼閳绘捇骞嬪┑鎰濡炪倖姊婚崢褏鎲撮敓锟�

核心提示：代码:<%Function GetBody(weburl) Set Retrieval = Server.CreateObject("MSxml2.xmlhttp") With Retrieval .Open "Get", weburl, False, &quo

代码:
<%
Function GetBody(weburl)
　 Set Retrieval = Server.CreateObject("MSxml2.xmlhttp")
　 With Retrieval
　　　 .Open "Get", weburl, False, "", ""
　　　 .setRequestHeader "referer","http://www.devdao.com/"'想改什么就改什么
　　　 .Send
　　　 GetBody = .ResponseBody
　 End With
　 GetBody = BytesToBstr(GetBody,"GB2312")
　 Set Retrieval = Nothing
End Function

Function BytesToBstr(body,Cset)
　　　 dim objstream
　　　 set objstream = Server.CreateObject("adodb.stream")
　　　 objstream.Type = 1
　　　 objstream.Mode =3
　　　 objstream.Open
　　　 objstream.Write body
　　　 objstream.Position = 0
　　　 objstream.Type = 2
　　　 objstream.Charset = Cset
　　　 BytesToBstr = objstream.ReadText
　　　 objstream.Close
　　　 set objstream = nothing
End Function

Response.Write(GetBody("http://www.devdao.com/referer.asp"))
%>