'写在Module1.vb里 ，能被任何页面调用
'Vs.net 2003建立，测试通过
'pcsky(进哥) http://blog.csdn.net/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.代码规范化，使用全局过程，减少代码冗余

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