以下这个子程序，想在多个页面中使用，怎么办？
-------------------------------------------------
如果定义成一个类的方法的话，由于其中有Session变量，而在类中是不可以有Session变量的，这怎么办？

难道每个页面中都加入这段代码？？？

-------------------------

Sub GetCurUserAu()

        If Session("CurUserAu") Is Nothing Then
            '如果没有当前用户的权限SESSION变量，就导到登录页面
            '并记下当前的请求URL，以便用户登录后自动返回

            Dim url As String = Server.UrlEncode(Request.Url.AbsoluteUri)

            Response.Redirect("./login.aspx?url=" & url)

        Else
            '如果有Session("CurUserAu")，就试着转换为UserAuthor权限验证类（自定义的一个类）

            '转换不成功就导到错误页面

            Try '从SESSION中取得用户权限
                CurUserAu = DirectCast(Session("CurUserAu"), UserAuthor)
            Catch ex As Exception
                Response.Redirect("./ErrorPage.aspx?errmsg=" & ex.Message)
            End Try

        End If

    End Sub