msgbox.aspx.vb

后台管理 内容添加功能

Namespace DotNet2000

Partial Class MsgBox
    Inherits System.Web.UI.Page

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

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

    End Sub

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。

    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 Request("Msg") = "01T" Then
            Call RegSuccess()
        ElseIf Request("Msg") = "01F" Then
            Call RegFaile()
        ElseIf Request("Msg") = "02F" Then
            Call LoginFaile()
        ElseIf Request("Msg") = "03T" Then
            Call ArAdd()
        ElseIf Request("Msg") = "04T" Then
            Call NewsAdd()
        End If
    End Sub

    Sub RegSuccess()
        MsgTitle.Text = "成功注册！"                              '消息主题
        MsgContent.Text = "恭喜您，您已经成为本站会员。"                            '消息内容
        MsgLink.NavigateUrl = "index.aspx"                        '跳转至URL地址
        MsgLink.Target = "_parent"                             '_blank或_parent
    End Sub

    Sub RegFaile()
        MsgTitle.Text = "注册失败！"                              '消息主题
        MsgContent.Text = "您注册的会员名称已经有人使用。"                            '消息内容
        MsgLink.NavigateUrl = "javascript:history.go(-1)"                        '跳转至URL地址
        MsgLink.Target = ""
    End Sub

    Sub LoginFaile()
        MsgTitle.Text = "登陆失败！"                              '消息主题
        MsgContent.Text = "您输入的会员名或密码错误，请重输。"                            '消息内容
        MsgLink.NavigateUrl = "javascript:history.go(-1)"                        '跳转至URL地址
        MsgLink.Target = ""
    End Sub

    Sub ArAdd()
        MsgTitle.Text = "发表成功！"                              '消息主题
        MsgContent.Text = "您刚才发表的文章已经成功提交。"                            '消息内容
        MsgLink.NavigateUrl = "javascript:history.go(-1)"                        '跳转至URL地址
        MsgLink.Target = ""
        MsgLink.Text = "继续发表文章"
    End Sub

    Sub NewsAdd()
        MsgTitle.Text = "新闻发布成功！"                              '消息主题
        MsgContent.Text = "您刚才发表的新闻已经成功提交。"                            '消息内容
        MsgLink.NavigateUrl = "javascript:history.go(-1)"                        '跳转至URL地址
        MsgLink.Target = ""
        MsgLink.Text = "继续发表新闻"
    End Sub
End Class

End Namespace