uot;访问量：" & GetProfile(myini, "访问量", i & "年" &j & "月" & "访问量") & "<br>"
                        End if
                Next
        Next
        Response.Write "<br>"
       
        Response.Write "<font color=red><b>今天的访问量(" &Date() & ")：" & GetProfile(myini, "访问量", "今天的访问量")  &"</font><br>"
        Response.Write "昨天的访问量：" & GetProfile(myini, "访问量", "昨天的访问量")  & "<br>"
        Response.Write "前天的访问量：" & GetProfile(myini, "访问量", "前天的访问量")  & "</b><br><br>"
        Response.Write "<a href=manage.asp>管理个人计数器</a>"
       
Else
        Response.Write("错误的参数或参数个数！！！")
End if
Set FSO=Nothing


%>
--------------------累加器-------------------
UpNum.asp
<link href="Css/styles.css" rel="stylesheet" type="text/css">
<!--#include file="Function.asp" -->
<%
Dim UserName
UserName = Request.QueryString("User")
myini = "/Count/Ini/" & UserName & ".ini"

Dim GuestCli_IP
GuestCli_IP=Request.ServerVariables("REMOTE_ADDR")
IF Session("Guest_IP")=Empty Then
        Dim FSO
        Set FSO = Server.CreateObject("Scripting.FileSystemObject")
        IF FSO.FileExists(Server.Mappath(myini)) then
       
                TotalNum =         GetProfile(myini, "访问量", "总访问量") + 1
                setProfile myini, "访问量", "总访问量", TotalNum
               
                StartYearNum =         GetProfile(myini, "访问量", "开始年")
       
                YearNum =         GetProfile(myini, "访问量", Year(Date()) & "年访问量")
                If YearNum = Empty Then
                        setProfile myini, "访问量", 

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