代码:
<%
Функция GetBody (веберл)
Установить получение = Server.CreateObject("MSXML2.XMLHTTP")
С поиском
.Откройте «Получить», weburl, False, «», «»
.setRequestHeader "реферер"," http://www.devdao.com/"'想改什么就改什么
.Отправлять
GetBody = .ResponseBody
Конец с
GetBody = BytesToBstr(GetBody,"GB2312")
Установить получение = Ничего
Конечная функция
Функция BytesToBstr(body,Cset)
тусклый объектный поток
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Открыть
objstream.Напишите тело
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
установить objstream = ничего
Конечная функция
Response.Write(GetBody(" http://www.devdao.com/referer.asp "))
%>