| || 首页 | | 版权声明 | | 访客留言 | | 关于我们 | | 网站管理 || |
你是本站第
<%
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 & "![](images/gif/") "
Next
End Function
%>
<%If Session("Counter") = Empty Then
Session("Counter") = G_Counts("images/jishu.txt")
End If
%>
<%= Session("Counter") %> 位访问者 |
| 版权所有：河南省信阳市特殊教育学校 |
| 学校校址：河南省信阳市长安路119号 联系电话：0376-6350772 |
| 页面执行时间：<%=formatnumber((endtime-startime)/1000,3)%> ms 制作维护：聋人百科 |
|
