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


« 
» 
快速导航

Copyright © 2016 phpStudy | 豫ICP备2021030365号-3