出现以下错误:--------------------------------------------
“/”应用程序中的服务器错误。
--------------------------------------------------------------------------------编译错误 
说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。 编译器错误信息: BC30451: 名称“Mid”未声明。源错误: 行 28:         Dim strfilepath As String = Request.Path
行 29:         Dim filename As String
行 30:         filename = Mid(strfilepath, InStrRev(strfilepath, "/"))
行 31:         Response.Redirect("/english" & filename)
行 32: 'if sender.tostring="" then
 源文件: F:\UserFiles\WEB\taike\public file\mycode.vb    行: 30

解决方案 »

  1.   

    aspx文件:
    <%@Page src="mycode.vb" Inherits="MyPage"%>
    <html>
    ......
    ....vb文件mycode.vb
    mports system
    Public Class MyPage
        Inherits System.Web.UI.Page
    Protected WithEvents public_imagebutton_version As System.Web.UI.WebControls.imageButton#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
            '在此处放置初始化页的用户代码    End Subpublic sub public_imagebutton_version_click(sender as object,e As System.Web.UI.ImageClickEventArgs) Handles public_imagebutton_version.click        Dim strfilepath As String = Request.Path
            Dim filename As String
            filename = Mid(strfilepath, InStrRev(strfilepath, "/"))
            Response.Redirect("/english" & filename)
    End Class