% Dim objFSO, objCountFile ' object vars for FSO and File Dim strCountFileName ' filename of count text file Dim iCount ' count variable Dim UseImages ' boolean whether or not to use images Dim I ' standard looping var UseImages = False strCountFileName = Server.MapPath("includes/counter.cnt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) If Not objCountFile.AtEndOfStream Then iCount = CLng(objCountFile.ReadAll) Else iCount = 0 End If objCountFile.Close Set objCountFile = Nothing iCount = iCount + 1 Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) objCountFile.Write iCount objCountFile.Close Set objCountFile = Nothing Set objFSO = Nothing %>
![]() |
|||||
|
|
|
|||||||||||
|
|
||||||||||||
|
This site has been visited
<%
Response.Write iCount
%>
times
Best Viewed with IE4 or above with 800x600 resolution |
Last Update
Mei 7, 2002 |