ASP伪造REFERER

代码:

<%

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"))

%>