대표:
<%
함수 GetBody(웹URL)
검색 설정 = Server.CreateObject("MSXML2.XMLHTTP")
검색 포함
."Get" 열기, 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.Open
objstream.Write 본문
objstream.위치 = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 아무것도 설정하지 않음
함수 종료
Response.Write(GetBody(" http://www.devdao.com/referer.asp "))
%>