Sub Session_Start(Sender As Object, E As EventArgs)
Dim strLogonName As String
Dim isLogonRight As Boolean
'获取域用户账号
strLogonName = Trim(Request.ServerVariables("LOGON_USER"))
If isLogonRight Then
Session("UserNo") = UserNo '用户ID
Session("OrgNo") = OrgNo '机构ID
Session("UserRight") = UserRight '用户权限
If UserRight="" Then Response.Redirect("../Include/loginError.aspx")
Else
Response.Redirect("../Include/loginError.aspx")
End IF
End Sub