السبب:
<%
وظيفة GetBody(weburl)
تعيين الاسترداد = Server.CreateObject("MSXML2.XMLHTTP")
مع الاسترجاع
.افتح "Get"، weburl، False، ""، ""
.setRequestHeader "المُحيل"، http://www.devdao.com/""
.يرسل
GetBody = .ResponseBody
نهاية مع
GetBody = BytesToBstr(GetBody,"GB2312")
تعيين الاسترجاع = لا شيء
وظيفة النهاية
BytesToBstr(body,Cset)
objstream خافت
تعيين 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.Close
تعيين objstream = لا شيء
وظيفة النهاية
.Write(GetBody(" http://www.devdao.com/referer.asp "))
%>