window authentication กับ การล้างค่าการจำ user pass ครับ

Response.Clear()
Response.Status = "401 Unauthorized"
Response.AddHeader("WWW-Authenticate","Basic Realm=localhost")
Response.end

  Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        
        Response.Clear()
        Response.Status = "401 Unauthorized"
        Response.AddHeader("WWW-Authenticate", "Basic Realm=localhost")
        Response.End()
        
        Dim spUsername() As String = Split(User.Identity.Name, "\")
        Dim wUser As String = ""

        If User.Identity.IsAuthenticated Then


            '  If IsDBNull(spUsername) Then
            Me.username.Text = spUsername(1)
            wUser = spUsername(1)
            Session("wuser_Logon") = spUsername(1)

            If Session("wuser_logon") <> "" Then
                Dim LoginName As String = ""
                LoginName = Application("LoginName")

                Dim sname As String = ""
                sname = Session("wuser_Logon")

                If (LoginName.IndexOf(sname) <= -1) Then
                    LoginName = sname + "," + LoginName  '// เก็บชื่อคนที่เข้าใช้ 
                    Application("LoginName") = LoginName '//เก็บชื่อคนที่เข้าใช้งานอยู่เข้าตัวแปรแบบ Application 
                End If
            Else

            End If
            BindData2()'เอาsession ไปเช็คสิทธิ์ ก่อน redirect 
        Else
            Label1.Text = "Anonymous user can not access"
        End If
        Me.lbliden.Text = Application("Identityname")
    End Sub