'写在Module1.vb里 ,能被任何页面调用'Vs.net 2003建立,测试通过'pcsky(进哥) http://blog.csdn.net/lee2001xpAsp的写法,在.Net中也可以这写,不推荐<%If session("UserName")<>"" then Response.Redirect("login.aspx")End if%>ASP.Net的写法,放在Module1.vbModule Module1Sub CheckUser() '检查用户信息 If HttpContext.Current.Session("UserName") = "" Then HttpContext.Current.Response.Redirect("login.aspx") End IfEnd SubEnd Module再到需要验证的页面上加上:Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call CheckUser() '检查登陆信息End Sub优点:1.实现页面和代码的分离,提高性能2.代码规范化,使用全局过程,减少代码冗余例子比较简单,希望大家能抛砖引玉!^_^