代码：
<%
函数 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 "))
%>