正在创建 ，

　　　　正在创建

　　正在创建

正在创建
　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　作者：高 总

<% dim visitors whichfile=server.mappath("counttv/count.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(whichfile) visitors=thisfile.readline thisfile.close countlen=len(visitors) for i=1 to countlen response.write "" next visitors=visitors+1 Set out=fs.CreateTextFile(whichfile) out.WriteLine(visitors) out.close set fs=nothing %>
进入丝印机视频操作
返回首页