article_save.aspx.vb

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

Public Class article_save
    Inherits System.Web.UI.Page
    Protected WithEvents article_edit_state As System.Web.UI.WebControls.Panel
    Protected WithEvents article_add_state As System.Web.UI.WebControls.Panel
    Protected WithEvents article_add_nologin As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel_admin_del As System.Web.UI.WebControls.Panel
    Protected WithEvents Label_resultmessage As System.Web.UI.WebControls.Label
    Protected WithEvents article_add_error As System.Web.UI.WebControls.Panel

#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
        '在此处放置初始化页的用户代码
        Dim article_add_action As String = Request.QueryString("action")

        If article_add_action = "news" Then
            article_add_state.Visible = True
        ElseIf article_add_action = "edit" Then
            article_edit_state.Visible = True
        ElseIf article_add_action = "error" Then
            article_add_error.Visible = True
        ElseIf article_add_action = "nologin" Then
            article_add_nologin.Visible = True
        ElseIf article_add_action = "admindel" Then
            Panel_admin_del.Visible = True
            Label_resultmessage.Text = Request.QueryString("message")
        End If
    End Sub

End Class