ASP伪造REFERER实例

<%
Function GetBody(weburl) 
	Set Retrieval = Server.CreateObject("MSXML2.XMLHTTP") 
	With Retrieval 
		.Open "Get", weburl, False, "", "" 
		.setRequestHeader "referer","http://www.hao123.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.mzwu.com/referer.asp"))
%> 

<% =Request.ServerVariables("HTTP_REFERER") %>