<% Session("homepage")=true %> <% Application.Lock Set fs=Server.CreateObject("Scripting.FileSystemObject") file=Server.MapPath("counter.txt") Set txt=fs.OpenTextFile(file) '打开成只读文件 If Not txt.atEndOfStream Then Application("counter")=txt.ReadLine '读取文件中的数字,并指定给Application变量 End If txt.Close '关闭文件 Application("counter")=Application("counter")+1 '将Application("counter")变量加1 counter=Application("counter") '将改变后的Application变量的值指定给变量counter Set txt=fs.CreateTextFile(file,True) '建立新文本文件,将原来的文件覆盖掉 txt.WriteLine counter '将新的计数值counter写入文件 txt.Close '关闭文件 Application.Unlock %> music fountain 大德音乐喷泉

 
中文      English
 
浏览人数 <%=counter%>
Copyright © 2008 Nature Master Co.,Ltd All rights reserved hhh
津ICP备11007621号-1 天津大德环境工程有限公司 天津开发区大德工贸有限公司技术支持