userlogin.aspx.vb

程序设计:Flyangel 用到了vb.net c# asp.net xml等 最大特别是核心功能组件化. 特色: 强大的后台管理功能 支持二级分类 支持匿名投稿 超强用户权限设置

Imports System.Web.Security
Imports System.Text.RegularExpressions
Imports System.Collections
Imports flyangel.article.twotipclass

Public Class userlogin
    Inherits System.Web.UI.Page
    Protected WithEvents username As System.Web.UI.WebControls.TextBox
    Protected WithEvents password As System.Web.UI.WebControls.TextBox
    Protected WithEvents Requiredfieldvalidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Regularexpressionvalidator1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents RequiredFieldValidator As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RegularExpressionValidator As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents error_message As System.Web.UI.WebControls.Label
    Protected WithEvents hide_error_message As System.Web.UI.WebControls.Panel
    Protected WithEvents return_index As System.Web.UI.WebControls.HyperLink
    Protected WithEvents Panellogin As System.Web.UI.WebControls.Panel
    Protected WithEvents Panelloginresult As System.Web.UI.WebControls.Panel
    Protected WithEvents Labelloginreadme As System.Web.UI.WebControls.Label
    Protected WithEvents login_button As System.Web.UI.WebControls.Button

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Session("login_count") > 3 Then
            hide_error_message.Visible = True
            error_message.Text = "未登陆成功，登陆暂时封锁"
            login_button.Enabled = False
        End If
        If IsPostBack Then
            If Request.HttpMethod <> "POST" Then
                Response.Write("<script language=JavaScript>{alert('非法方式提交数据，请重新输入！');}</script>")
                Response.Write("<script Language=Javascript>javascript:history.go(-1);</script>")
                Response.End()
                Response.Clear()
            End If
        End If
    End Sub

    Private Sub login_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login_button.Click
        Dim dpuser As iUserClass = HowToUsingFlyangel.iUserClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpuser.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringB")
        Dim checkuserstate As CheckUserState = dpuser.CheckUserLogin(username.Text, password.Text)

        If checkuserstate.UserName <> "" Then
            If checkuserstate.LockUser = 0 Then
                FormsAuthentication.SetAuthCookie(checkuserstate.UserName, False, "/")
                Dim MyCookie As HttpCookie = New HttpCookie("UserInfo")
                MyCookie.Path = "/"
                MyCookie.Expires = System.DateTime.Now.AddHours(2)
                MyCookie.Values("UserName") = checkuserstate.UserName
                MyCookie.Values("UserClass") = checkuserstate.UserClass
                MyCookie.Values("UserGroup") = checkuserstate.UserGroup
                MyCookie.Values("Html_Level") = checkuserstate.Html_Level
                MyCookie.Values("Upload_Level") = checkuserstate.Upload_Level
                MyCookie.Values("ShengHe_Level") = checkuserstate.ShengHe_Level
                MyCookie.Values("MonthePlan_level") = checkuserstate.MonthePlan_level
                Response.Cookies.Add(MyCookie)

                Panellogin.Visible = False
                Panelloginresult.Visible = True

                Labelloginreadme.Text = "请您遵守本站的约定，并合理的使用你的权限！"
            Else
                hide_error_message.Visible = True
                error_message.Text = "你的帐号因故已经被系统管理员封锁！"
                login_button.Enabled = False
            End If
        Else
            hide_error_message.Visible = True
            Session("login_count") = Session("login_count") + 1
            If Session("login_count") < 4 Then
                error_message.Text = "请检查您的帐号和密码是否正确，注意区分字符大小写"
            Else
                error_message.Text = "你已经三次未登陆成功，登陆暂时封锁"
                login_button.Enabled = False
            End If
        End If
    End Sub
    Private Function changeinttostring(ByVal _tempint As String) As String
        Dim _temstr As String
        If _tempint = "1" Then
            _temstr = "有"
        Else
            _temstr = "无"
        End If
        Return _temstr
    End Function


End Class