Year(Date()) & "年访问量", 1
                Else
                        setProfile myini, "访问量",  Year(Date()) & "年访问量", YearNum + 1
                End if
               
                MonthStr = Year(Date()) & "年" & Month(Date()) & "月" & "访问量"
                MonthNum =         GetProfile(myini, "访问量", MonthStr)
                If MonthNum = Empty Then
                        setProfile myini, "访问量", MonthStr, 1
                Else
                        setProfile myini, "访问量", MonthStr, MonthNum + 1
                End if
       
                NowDay = GetProfile(myini, "访问量", "今天日期")
                NDayNum =         GetProfile(myini, "访问量", "今天的访问量")
                DayDate = Year(Date()) & "年" & Month(Date()) & "月" & Day(Date()) & "日"
                If NowDay = DayDate Then
                        setProfile myini, "访问量", "今天的访问量", NDayNum + 1
                Else
                        setProfile myini, "访问量", "前天的访问量",  GetProfile(myini, "访问量", "昨天的访问量")
                        setProfile myini, "访问量", "昨天的访问量",  GetProfile(myini, "访问量", "今天的访问量")
                        setProfile myini, "访问量", "今天的访问量", 1
                        setProfile myini, "访问量", "今天日期", DayDate
                End if
       
                Session("Guest_IP")=GuestCli_IP
        Else
    &nbs

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页