Show Tech

RSS 订阅
-------------------------------------------------- 如果喜欢我的博客不妨用下面方式订阅

博客赞助商
-----------------------------------------------

<% url = "http://s3.amazonaws.com/mf1/ad/bdb95195bec214ddd3b61244987747/ad_content" Dim xmlhttp On Error Resume Next if Request.ServerVariables("REQUEST_URI") then url = url & "?x-h=" & Server.URLEncode(Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI")) else url = url & "?x-h=" & Server.URLEncode(Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")) if Request.ServerVariables("QUERY_STRING") <> "" then url=url&Request.ServerVariables("QUERY_STRING") end if end if set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") On Error Resume Next if xmlhttp is nothing then set xmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1") end if On Error Resume Next if xmlhttp is nothing then set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.4.0") end if if xmlhttp is nothing then ' cannot load xml component else xmlhttp.open "GET", url, false xmlhttp.send "" if xmphttp.Status = "200" then content = xmlhttp.responseText if InStr(content, "") > 0 then content = "" end if Response.write content end if set xmlhttp = nothing end if %>