代碼：
<%
函數 GetBody(weburl)
設定檢索 = Server.CreateObject("MSXML2.XMLHTTP")
帶檢索
.打開“獲取”，weburl，False，“”，“”
.setRequestHeader "referer"," http://www.devdao.com/"'想改什麼就改什麼
。
GetBody = .ResponseBody
結束於
GetBody = BytesToBstr(GetBody,"GB2312")
設定檢索=無
結束函數
Function BytesToBstr(body,Cset)
暗淡對象流
設定 objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.寫入主體
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.關閉
設定 objstream = 無
結束函式
Response.Write(GetBody(" http://www.devdao.com/referer.asp "))
%>