使用 VB.NET 封装 Javascript 常用功能(这是在asp.net中的)

(这是在asp.net中的)

Imports System.Web.HttpContext

Namespace NBWD.Utility
    ''' <summary>
    ''' 公共类，负责普通功能以及封装的 Javascript 功能
    ''' </summary>
    ''' <remarks></remarks>
    Public Class Common
        Private Shared jsHeaderTag As String = "<script language='javascript'>"
        Private Shared jsCloseTag As String = "</script>"

        ''' <summary>
        ''' 显示 Javascript 提示消息
        ''' </summary>
        ''' <param name="message">要显示的消息</param>
        ''' <remarks></remarks>
        Public Shared Sub Alert(ByVal message As String)
            With HttpContext.Current.Response
                .Write(jsHeaderTag)
                .Write(String.Format("alert('{0}');", message))
                .Write(jsCloseTag)
            End With
        End Sub

        ''' <summary>
        ''' 转向指定页面
        ''' </summary>
        ''' <param name="pageURL">要转向页面的地址</param>
        ''' <remarks></remarks>
        Public Shared Sub GoPage(ByVal pageURL As String)
            With HttpContext.Current.Response
                .Write(jsHeaderTag)
                .Write(String.Format("window.location.href='{0}';", pageURL))
                .Write(jsCloseTag)
            End With
        End Sub

        ''' <summary>
        ''' 使网页前进或后退
        ''' </summary>
        ''' <param name="steps">步数</param>
        ''' <remarks></remarks>
        Public Shared Sub GoHistory(ByVal steps As Integer)
            With HttpContext.Current.Response
                .Write(jsHeaderTag)
                .Write(String.Format("history.go({0});", steps))
                .Write(jsCloseTag)
            End With
        End Sub
    End Class
End Namespace

        如上所示 您还可以添加更多的 Javascript 常用功能进来~~~

出自：http://hi.baidu.com/nbwd/blog/item/bf260b23bb0e1847925807b2.html