<% Function Counts(CounterFile) Dim objFSO, objTS Application.Lock '锁定Application对象 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 %> 区长信箱

信访热线

注意：为了使您反映的问题及时得到解决，请如实填写发件人信息。
姓　　名：
联系地址：

E-mail:

联系电话：
信件内容
　　

热线电话：022-28522743、28397426

<%= Counts("Counter.txt") %>