'写在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.代码规范化,使用全局过程,减少代码冗余
例子比较简单,希望大家能抛砖引玉!^_^