Asp.Net中检查登陆信息,使用全局过程 pcsky（原作）

'写在Module1.vb里 ，能被任何页面调用
'Vs.net 2003建立，测试通过
'pcsky(进哥) http://blog.youkuaiyun.com/lee2001xp

Asp的写法，在.Net中也可以这写，不推荐
<%
If session("UserName")<>"" then
Response.Redirect("login.aspx")
End if
%>

ASP.Net的写法，放在Module1.vb
Module Module1
Sub CheckUser()  '检查用户信息
    If HttpContext.Current.Session("UserName") = "" Then
        HttpContext.Current.Response.Redirect("login.aspx")
    End If
End Sub
End Module

再到需要验证的页面上加上：
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call CheckUser()  '检查登陆信息
End Sub

优点：
1.实现页面和代码的分离，提高性能
2.代码规范化，使用全局过程，减少代码冗余

例子比较简单，希望大家能抛砖引玉！^_^