现在时间是:
<% 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】和中国国内通用的【微信扫一扫】付款.................
接受标记
.