现在时间是:
<% CountFile=Server.MapPath("txtcounter.txt") Set FileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) counter=Out.ReadLine Out.Close SET FileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE) Application.lock counter= counter + 1 Out.WriteLine(counter) Application.unlock Response.Write""&counter&"" Out.Close %>

免责声明

返回首页

本站发布的信息,大多数为原创,只有少数信息摘自互联网(已尽量确认来源和所有者)。如果你认为某些地方对你产生侵权可能,请告知,以便妥当处理。本站里出现的访客言论,只代表其个人观点,并非代表其他人的观点,因此与他人或本站没有连带责任关系。

Copyright ©2017    海南话学校 All Right Reserved.

Powered by LingCms 版权所有 © 2005-2017 Lingd.Net.粤ICP备16125321号 -4



.
.................在本网站购买资料可接受国际多币种的【PayPal】和中国国内通用的【微信扫一扫】付款.................
接受标记
.