Public Class Safety_menu
    Inherits System.Web.UI.Page
    Protected WithEvents ImgMenuTitle As System.Web.UI.WebControls.Image
    Protected WithEvents lblMenuTitle As System.Web.UI.WebControls.Label
    Protected WithEvents spsData As FarPoint.Web.Spread.FpSpread
    Protected WithEvents Mn As System.Web.UI.HtmlControls.HtmlGenericControl
    Dim sMenuId As String
    Private strTabMn As String
    Protected ascPublic As ascPublic

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ascPublic = New ascPublic(Me)
        If Not Page.IsPostBack Then
            sMenuId = Request("MenuId")

            If Trim(sMenuId) = "" Then
                ImgMenuTitle.Visible = False
                lblMenuTitle.Visible = False
                lblMenuTitle.Text = ""
            Else
                ImgMenuTitle.Visible = True
                lblMenuTitle.Visible = True

                sSQL = ""
                sSQL = sSQL & " Select menu_name From CMT_MENU " & vbCrLf
                sSQL = sSQL & " Where menu_id = " & sMenuId

            While ascPublic.RecordSet.Read
                If rv = SQL_SUCCESS Then

Public Class Safety_menu
    Inherits System.Web.UI.Page
    Protected WithEvents ImgMenuTitle As System.Web.UI.WebControls.Image
    Protected WithEvents lblMenuTitle As System.Web.UI.WebControls.Label
    Protected WithEvents spsData As FarPoint.Web.Spread.FpSpread
    Protected WithEvents Mn As System.Web.UI.HtmlControls.HtmlGenericControl
    Dim sMenuId As String
    Private strTabMn As String
    Protected ascPublic As ascPublic

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ascPublic = New ascPublic(Me)
        If Not Page.IsPostBack Then
            sMenuId = Request("MenuId")

            If Trim(sMenuId) = "" Then
                ImgMenuTitle.Visible = False
                lblMenuTitle.Visible = False
                lblMenuTitle.Text = ""
            Else
                ImgMenuTitle.Visible = True
                lblMenuTitle.Visible = True
                Dim sSQL  As String
                sSQL = ""
                sSQL = sSQL & " Select menu_name From CMT_MENU " & vbCrLf
                sSQL = sSQL & " Where menu_id = " & sMenuId

------解决方案--------------------

Public Class Safety_menu
   Inherits System.Web.UI.Page
   Protected WithEvents ImgMenuTitle As System.Web.UI.WebControls.Image
   Protected WithEvents lblMenuTitle As System.Web.UI.WebControls.Label
   Protected WithEvents spsData As FarPoint.Web.Spread.FpSpread
   Protected WithEvents Mn As System.Web.UI.HtmlControls.HtmlGenericControl
   Dim sMenuId As String
'添加的  
Dim sSQL As String
Dim SQL_SUCCESS As String

   Private strTabMn As String
   Protected ascPublic As ascPublic

   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       ascPublic = New ascPublic(Me)
       If Not Page.IsPostBack Then
           sMenuId = Request("MenuId")

           If Trim(sMenuId) = "" Then