为何用以下代码
If suser_key = tuser_key Then
                '如果用户存在,并且密码正确,则开始产生身份验证票据,进行身份验证
                Dim user As String
                Dim password As String
                Dim userroles As String
                Dim hashticket As String                user = suser_name
                userroles = suser_role                Dim ticket As New System.Web.Security.FormsAuthenticationTicket( _
                                                1, _
                                                user, _
                                                System.DateTime.Now, _
                                                System.DateTime.Now.AddMinutes(30), _
                                                False, _
                                                userroles, _
                                                "/")
                hashticket = System.Web.Security.FormsAuthentication.Encrypt(ticket)
                Dim usercookie As HttpCookie = New HttpCookie(System.Web.Security.FormsAuthentication.FormsCookieName, hashticket)
                Context.Response.Cookies.Add(usercookie)
                Response.Redirect(Request.Url.ToString())
产生票据后得到的System.Web.HttpContext.Current.User.Identity.Name是空的?请高人指导!