'更新

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

            System.Web.HttpContext.Current.Cache.Remove(CacheName)

        End If

        '快取部分

        If obj Is Nothing Then

            Dim SQL As String = ""

            SQL = "select * from Product with (nolock)"

            obj = UW.SQL.DTFromSQL(SQL)



            Dim AC As New AggregateCacheDependency



            Dim DepArray() As CacheDependency = { _

                 New SqlCacheDependency(UW.SQL.sqlCacheDependencyName, "Product"), _

                 New SqlCacheDependency(UW.SQL.sqlCacheDependencyName, "Product_Category") _

            }



            AC.Add(DepArray)

            Dim FD As New CacheDependency(UW.Template.TemplateRoot & "2013UI\Product\DirectBuyAllProduct.html")

            AC.Add(FD)



            System.Web.HttpContext.Current.Cache.Insert(CacheName, obj, AC)



        End If

    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 

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

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

For I As Int32 = 1 To DT.Rows.Count

                 If order_num_right = DT.Rows(I - 1)("Pid") Then

                     Pid_No = I - 1

                 End If

                 #OFCL.Pid = DT.Rows(I - 1)("Pid")

                 #OFCL.GetDataRowAndReturnSelfOrNothing()

                Dim NewT As String = oT.Result

                NewT = NewT.Replace("#Y#", StartY + (I - 1) * LH)

                NewT = NewT.Replace("#序號#", I.ToString)

                NewT = NewT.Replace("#品號#", OFCL.Pid)

                NewT = NewT.Replace("#品名#", OFCL.Product_Name)

                NewT = NewT.Replace("#包裝#", OFCL.Package)

                NewT = NewT.Replace("#單位#", OFCL.UNIT)

                NewT = NewT.Replace("#數量#", OFCL.Qty)

                NewT = NewT.Replace("#箱數#", OFCL.BOX)

                NewT = NewT.Replace("#總數量#", OFCL.Total)

                NewT = NewT.Replace("#未稅價#", OFCL.Price)

                NewT = NewT.Replace("#總金額#", OFCL.Sum)

                Res &= NewT

            Next

-- 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>