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

%>

• ·C#正統的MYSQL的SQL文本替換規則
• ·自動清除替換ACCESS(MDB)數據庫的日文
• ·IIS上面安裝PHP+MYSQL的經驗回憶
• ·ASP,PHP與.NET僞造HTTP-REFE
• ·如何修改FireFox的默認搜索引擎
• ·Photoshop制作可愛的卡通海浪
• ·Photoshop打造完美的婚紗藝術照
• ·Photoshop教程:普通照片的創意靈感
• ·在Dreamweaver中編寫CSS需要掌握的
• ·BT下載終極玩法：下載完畢自動關