中国农副产品网论坛 → 注册协议

关于我们　| 豁免声明 |　广告服务 | 会员服务 |　联系我们 Copyright © 2006中国农副产品网Inc All Rights Reserved. 冀ICP备06029848 E-mail:admin@xdiy.com.cn　电话:0311-83756228 在线QQ咨询:17791621 　 <% Function Counts(CounterFile) Dim objFSO, objTS Application.Lock Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True) If Not objTS.AtEndOfStream Then '?????????? Counts = CLng(objTS.ReadLine) End If Counts = Counts + 1 objTS.Close Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True) objTS.WriteLine(Counts) objTS.Close Application.Unlock End Function Function G_Counts(CounterFile) Dim objFSO, objTS, Counts, StrCounts Application.Lock Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True) If Not objTS.AtEndOfStream Then '?????????? Counts = CLng(objTS.ReadLine) End If Counts = Counts + 1 objTS.Close Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True) objTS.WriteLine(Counts) objTS.Close Application.Unlock StrCounts = CStr(Counts) For i = 1 to Len(StrCounts) G_Counts = G_Counts & "" Next End Function %> <% If Session("Counter") = Empty Then Session("Counter") = G_Counts("jishu.txt") End If %> <%= Session("Counter") %> Powered by BBSXP 6.00 SP1 © 1998-2006 Script Execution Time:15ms