error.aspx.vb

来自「是可以运行的电子光盘 有程序与PPT介绍 对于学习VB。NET的有参考意义」· VB 代码 · 共 22 行


Partial Class WebDisk_Message_Error
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Select Case Request.QueryString("error")
            Case "posted"
                lblerror.Text = "留言间隔为3分钟"
            Case "postmax"
                lblerror.Text = "输入的字数过多，请重新填写"
            Case "post"
                lblerror.Text = "填写信息错误，数据未能正确提交"
            Case "update"
                lblerror.Text = "填写信息错误，数据未能正确更新"
            Case "delete"
                lblerror.Text = "填写信息错误，数据未能正确删除"
            Case Else
                lblerror.Text = "发生未知错误，操作未能执行"
        End Select
    End Sub
End Class