您是第 <% ' 显示的数字位数； TotalDigits = 7 ' 记录数字的文件名和位置，下面的写法与ASP文件在同一目录下； CounterFile = Server.MapPath ("test.cnt") On Error Resume Next Set fs = CreateObject("Scripting.FileSystemObject") '打开计数文件 Set a = fs.OpenTextFile(CounterFile, 1, 0, 0) ' 取当前计数 CurrentCount = a.ReadLine InStream.Close ' 计数器加1 CurrentCount = CurrentCount + 1 set b = fs.CreateTextFile (CounterFile, 1, 0) ' 写入新计数 b.WriteLine CurrentCount b.Close ' 准备显示新计数 TotalCount = Right(String(TotalDigits, "0") & CurrentCount, TotalDigits) For i = 1 To TotalDigits DisplayCount = "" Response.Write(DisplayCount) Next %> 位访问者