| | | | |  |  | |  | |  | | | | |  | |  | | 你是第 <%' Graphical Hit Counter Example By www.PowerASP.com ' Declare variablesDim ObjCounterFile, ReadCounterFile, WriteCounterFileDim CounterFileDim CounterHitsDim FixedDigitCountDim DigitCountDim DigitCountLengthDim DigitZerosToAddDim DigitZeroCountDim ShowDigitsDim DigitPath ' (FixedDigitCount) will add zeros to the front of your count' if the count is less then the (FixedDigitCount)' just like "frontpage" counters let you do FixedDigitCount = 5DigitPath = "digits/red_on_white" On Error Resume Next Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing DigitCountLength = Len(CounterHits) If DigitCountLength < FixedDigitCount Then DigitZerosToAdd= FixedDigitCount - DigitCountLength DigitZeroCount = 1 For DigitZeroCount = DigitZeroCount to DigitZerosToAdd ShowDigits = ShowDigits & "![]() " NextEnd If DigitCount = 1For DigitCount = DigitCount to DigitCountLength ShowDigits = ShowDigits & "![]() "Next%> <% =ShowDigits %> 位访客
| |  |  | |  | |  | |  | |  | |  | | | | |