AJAX登录并增加选择COOKIES保存时限功能（9/27增加是否换IP保存登录）

        <script type="text/javascript" src="common/common.js"></script>

    <script type="text/javascript" src="common/ajax.js"></script>

Function userPanel()
    userPanel = ""
    If memName<>Empty Then userPanel = userPanel&" <b>"&memName&"</b>，欢迎你!<br/>你的权限: "&stat_title&"<br/><br/>"
    If stat_Admin = True Then userPanel = userPanel + "<a href=""control.asp"" target=""_blank"" class=""sideA"" accesskey=""3"">系统管理</a>"
    If stat_AddAll = True or stat_Add = True Then userPanel = userPanel + "<a href=""blogpost.asp"" class=""sideA"" accesskey=""N"">发表新日志</a>"
    If (stat_AddAll = True or stat_Add = True) And (stat_EditAll or stat_Edit) Then
        If IsEmpty(session(CookieName&"_draft_"&memName)) Then
            session(CookieName&"_draft_"&memName) = conn.Execute("select count(log_ID) from blog_Content where log_Author='"&memName&"' and log_IsDraft=true")(0)
            SQLQueryNums = SQLQueryNums + 1
        End If
        If session(CookieName&"_draft_"&memName)>0 Then
            userPanel = userPanel + "<a href=""default.asp?display=draft"" class=""sideA"" accesskey=""D""><strong>编辑草稿 ["&session(CookieName&"_draft_"&memName)&"]</strong></a>"
        Else
            userPanel = userPanel + "<a href=""default.asp?display=draft"" class=""sideA"" accesskey=""D"">编辑草稿</a>"
        End If
    End If
    If memName<>Empty Then
        userPanel = userPanel&"<a href=""member.asp?action=edit"" class=""sideA"" accesskey=""M"">修改个人资料</a><a href=""login.asp?action=logout"" class=""sideA"" accesskey=""Q"">退出系统</a>"
    Else
        userPanel = userPanel&"<a href=""login.asp"" class=""sideA"" accesskey=""L"">登录</a><a href=""register.asp"" class=""sideA"" accesskey=""U"">用户注册</a>"
    End If
End Function

Function userPanel()
    userPanel = ""
    If memName<>Empty Then userPanel = userPanel&" <b>"&memName&"</b>，欢迎你!<br/>你的权限: "&stat_title&"<br/><br/>"
    If stat_Admin = True Then userPanel = userPanel + "<a href=""control.asp"" target=""_blank"" class=""sideA"" accesskey=""3"">系统管理</a>"
    If stat_AddAll = True or stat_Add = True Then userPanel = userPanel + "<a href=""blogpost.asp"" class=""sideA"" accesskey=""N"">发表新日志</a>"
    If (stat_AddAll = True or stat_Add = True) And (stat_EditAll or stat_Edit) Then
        If IsEmpty(session(CookieName&"_draft_"&memName)) Then
            session(CookieName&"_draft_"&memName) = conn.Execute("select count(log_ID) from blog_Content where log_Author='"&memName&"' and log_IsDraft=true")(0)
            SQLQueryNums = SQLQueryNums + 1
        End If
        If session(CookieName&"_draft_"&memName)>0 Then
            userPanel = userPanel + "<a href=""default.asp?display=draft"" class=""sideA"" accesskey=""D""><strong>编辑草稿 ["&session(CookieName&"_draft_"&memName)&"]</strong></a>"
        Else
            userPanel = userPanel + "<a href=""default.asp?display=draft"" class=""sideA"" accesskey=""D"">编辑草稿</a>"
        End If
    End If
    If memName<>Empty Then
        userPanel = userPanel&"<a href=""member.asp?action=edit"" class=""sideA"" accesskey=""M"">修改个人资料</a><a href=""JavaScript:void(0);"" onclick=""AJAXLogout()"" class=""sideA"" accesskey=""Q"">退出系统</a>"
    Else
      userPanel=userPanel&"<label><b>用户名︰</b><input type=""text"" id=""AJAXLoginUserName"" class=""userpass"" size=""12""/></label><br/><label><B>密　码︰</B><input type=""password"" id=""AJAXLoginPassword"" class=""userpass"" size=""12""/></label><br/><label><B>保　存︰</B></label><select size=""1"" id=""AJAXKeepLogin""><option selected=""selected"" value=""0"">不保存</option><option value=""1"">一天</option><option value=""7"">一星期</option><option value=""30"">一个月</option><option value=""365"">一年</option></select><p/><center><a href=""JavaScript:void(0);"" onclick=""AJAXLogin();"" accesskey=""L"">登录</a>　　<a href=""register.asp"" accesskey=""U"">用户注册</a></center><br /><span id=""AJAXMsg"" style=""font-weight:bold;color:#FF0000;""></span>"
      
    End If
End Function

            If Request.Form("KeepLogin") = "1" Then Response.Cookies(CookieName).Expires = Date+365

            If int(Request.Form("AJAXKeepLogin")) > 0 Then
                Response.Cookies(CookieName).Expires = Date+int(Request.Form("AJAXKeepLogin"))
                Response.Cookies(CookieName)("exp") = DateAdd("d", int(Request.Form("AJAXKeepLogin")), date())
            End If

            If CheckCookie("mem_LastIP")<>Guest_IP or IsNull(CheckCookie("mem_LastIP")) Then
                logout(True)
            Else
                memName = CheckStr(Request.Cookies(CookieName)("memName"))
                memStatus = CheckCookie("mem_Status")
            End If

'            If CheckCookie("mem_LastIP")<>Guest_IP or IsNull(CheckCookie("mem_LastIP")) Then
'                logout(True)
'            Else
                memName = CheckStr(Request.Cookies(CookieName)("memName"))
                memStatus = CheckCookie("mem_Status")
'            End If

    Response.Cookies(CookieName)("memRight") = StatusCode

    Response.Cookies(CookieName)("memRight") = StatusCode
    If Request.Cookies(CookieName)("exp")<>"" Then
        Response.Cookies(CookieName).Expires = Date + DateDiff("d",Date(),Request.Cookies(CookieName)("exp"))
    End If

       　　<label><input name="KeepLogin" type="checkbox" value="1"/>记住我的登录信息</label><br/>

<label>保　存：<select size="1" id="AJAXKeepLogin"><option selected="selected" value="0">不保存</option><option value="1">一天</option><option value="7">一星期</option><option value="30">一个月</option><option value="365">一年</option></select></label><br />