StartP = StartP + StartKey.Length

    Dim EndP As String = Source.IndexOf(EndKey, StringComparison.OrdinalIgnoreCase)

    ' 應該修改為以下寫法 =>

    StartP = StartP + StartKey.Length

    Dim EndP As String = Source.IndexOf(EndKey, StartP, StringComparison.OrdinalIgnoreCase)    

0.0005085 No StartP

0.0002082 with StartP

0.0000157 StringComparison.Ordinal with StartP

0.0002768 StringComparison.OrdinalIgnoreCase, No StartP

0.0001105 StringComparison.OrdinalIgnoreCase with StartP

0.0002116 StringComparison.CurrentCulture with StartP

0.0002085 StringComparison.CurrentCultureIgnoreCase with StartP

    

    Inherits Master

    Protected Sub Page_PreLoad(sender As Object, e As EventArgs) Handles Me.PreLoad

    End Sub



    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        HandleAction()

    End Sub



    Sub HandleAction()

        If UW.WU.IsNonEmptyFromQueryStringOrForm("Action") Then

            Dim Action As String = UW.WU.GetValueFromQueryStringOrForm("Action")

            Select Case Action

            End Select

        End If

    End Sub



    Protected Sub Page_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender

        LoadPageContext()

    End Sub



    Sub LoadPageContext()



    End Sub



    Sub JSONWriteToClient(ByVal TrueorFalse As Boolean, Optional ByVal msg As String = "", Optional ByVal Title As String = "", Optional ByVal Content As String = "", Optional ByVal Content2 As String = "", Optional ByVal Content3 As String = "")

        Dim TF As String = Now.ToString("yyyyMMddHHmmss")

        Dim oJ As UW.JSON

        oJ = New UW.JSON(TrueorFalse, msg)

        oJ.add("Title", Title)

        oJ.add("Content", Content)

        oJ.add("Content2", Content2)

        oJ.add("Content3", Content3)

        oJ.add("TF", TF)

        oJ.WriteToClient()

        Response.End()

    End Sub

    Protected Sub Page_PreLoad(sender As Object, e As EventArgs) Handles Me.PreLoad

        SHOPUNT.GN.WSC.CheckLogin()                                     '檢查是否有登入、否則導回Login

        SHOPUNT.GN.WSC.CheckRightOrStop(SHOPUNT.EN.AuthCode.廣告管理)   '檢查是否有廣告編輯的權限

    End Sub



    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        HandleAction()

    End Sub



    Sub HandleAction()

        If UW.WU.IsNonEmptyFromQueryStringOrForm("Action") Then

            Dim Action As String = UW.WU.GetValueFromQueryStringOrForm("Action")

            Select Case Action

            End Select

        End If

    End Sub



    Protected Sub Page_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender

        'Me.Master.strTitle = "目錄管理"

        'Me.Master.IsListItemScript = True

        LoadPageContext()

    End Sub



    Sub LoadPageContext()



    End Sub

Smooth Gestures 

是這裡分享的>>​幸運草的吉光片羽

他還有分享其他很好用的套件,大家可以安裝來用用唷~

-- To allow advanced options to be changed.開啟進階選項

EXEC sp_configure 'show advanced options', 1

GO

-- To update the currently configured value for advanced options.執行動作

RECONFIGURE

GO

-- To enable the feature.開啟xp_cmdshell功能

EXEC sp_configure 'xp_cmdshell', 1

GO

-- To update the currently configured value for this feature.執行動作

RECONFIGURE

GO





DECLARE @DBPath nvarchar(120)

--指定磁碟機Z的路徑為\\192.168.8.201\SQLBackupLeon

exec master..xp_cmdshell 'net use z: \\192.168.8.201\SQLBackupLeon 密碼 /user:帳號'

--指定備份路徑檔名

SET @DBPath = 'Z:\' + 'ReikoTEST' + '_' + Convert(varchar(10),Getdate(),112) + Replace(Convert(varchar(8),Getdate(),108),':','') + '.bak'

--DATENAME(Weekday,GETDATE())=>會顯示為"星期N"

--SET @DBPath = 'Z:\' + 'Leon' + '_' + DATENAME(Weekday,GETDATE()) + '.bak'

--備份資料庫ReikoTEST到路徑檔名

BACKUP DATABASE ReikoTEST TO DISK = @DBPath

--刪除磁碟機Z

exec master..xp_cmdshell 'net use Z: /delete'

GO





-- To enable the feature.關閉xp_cmdshell功能

EXEC sp_configure 'xp_cmdshell', 0

GO

-- To update the currently configured value for this feature.執行動作

RECONFIGURE

GO

-- To allow advanced options to be changed.關閉進階選項

EXEC sp_configure 'show advanced options', 0

GO

-- To update the currently configured value for advanced options.執行動作

RECONFIGURE

GO

<script type="text/javascript">

    CKEDITOR.replace('Content', { toolbar: 'basic', height: 200 });

</script>

<script type="text/javascript">

     CKEDITOR.replace('Content, { toolbar: 'basic', height: 360, allowedContent: {

               img: {

                   attributes: '!src, alt', // src is required

                   styles: 'height, width'

               }

         }

     });

</script>