代码:

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

(责任编辑：admin)