| 導購 | 订阅 | 在线投稿
分享
 
 
 

ASP僞造REFERER

來源:互聯網  2008-06-01 03:16:14  評論

代碼:

<%

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

%>

代碼: <% 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")) %>
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有