![](cn/images/count/"&CountType&"/"&Mid(counter,i+1,1)&".gif)
"
Next
response.write "您是第" & tStr & "个本站的访客"
strPlusReturn = tStr
Out.Close
else
Set Out=FileObject.OpenTextFile(CountFile,2,TRUE)
Out.WriteLine("0")
Out.Close
end if
End Function %>
Corpration@2004-2006 版权所有 盗版必究技术支持
|
| |
| <% Call GetCount("2")
Function GetCount(CountType)
CountFile=Server.MapPath("cn/XFormDB/"&ObjCode&".txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
if FileObject.FileExists(CountFile) Then
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter = Out.ReadAll
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
For i= o to Len(counter) - 1
tStr = tStr&""
Next
response.write "您是第" & tStr & "个本站的访客"
strPlusReturn = tStr
Out.Close
else
Set Out=FileObject.OpenTextFile(CountFile,2,TRUE)
Out.WriteLine("0")
Out.Close
end if
End Function %>
Corpration@2004-2006 版权所有 盗版必究 技术支持 |