Imports System.Runtime.CompilerServices
Imports Microsoft.VisualBasic
 
Public Module DateTimeExtension
 
    ''' <summary>
    ''' 將系統時間轉為當地的時間並轉為字串
    ''' </summary>
    ''' <param name="dtSystem"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <Extension()> _
    Public Function ToCountryDateTimeString(ByVal dtSystem As DateTime) As String
 
        If dtSystem = DateTime.MinValue Then
            Return "n/a"
        End If
        Dim cstTime As DateTime = dtSystem.ToCountryDateTime()
        ' tr-TR -> dd.MM.yyyy HH:mm:ss
        Dim langCode As String = SHOPUNT.DB.SysConfig.GetSysConfig("DefaultLangCode")
        Dim culture As New System.Globalization.CultureInfo(langCode)
        If cstTime.AddMonths(6) < Now Then
            Return cstTime.ToString("dd.MM.yyyy HH:mm", culture)
        Else
            Return cstTime.ToString("dd.MMM HH:mm", culture)
        End If
 
    End Function
 
    ''' <summary>
    ''' 將系統時間轉為當地的時間
    ''' </summary>
    ''' <param name="dtSystem"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <Extension()> _
    Public Function ToCountryDateTime(ByVal dtSystem As DateTime) As DateTime
        Dim cstZone As TimeZoneInfo = TimeZoneInfo.FindSystemTimeZoneById(SHOPUNT.DB.SysConfig.GetSysConfig("DefaultTimeZone"))
        Dim localZone As TimeZoneInfo = TimeZoneInfo.Local
        Dim cstTime As DateTime = TimeZoneInfo.ConvertTime(dtSystem, localZone, cstZone)
        Return cstTime
    End Function
 
    ''' <summary>
    ''' 將使用者輸入的時間轉為系統時間
    ''' </summary>
    ''' <param name="dtCountry"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <Extension()> _
    Public Function ToSystemDateTime(ByVal dtCountry As DateTime) As DateTime
        Dim cstZone As TimeZoneInfo = TimeZoneInfo.FindSystemTimeZoneById(SHOPUNT.DB.SysConfig.GetSysConfig("DefaultTimeZone"))
        Dim localZone As TimeZoneInfo = TimeZoneInfo.Local
        Dim sysTime As DateTime = TimeZoneInfo.ConvertTime(dtCountry, cstZone, localZone)
        Return sysTime
    End Function
 
End Module

Response.Cache.SetCacheability(HttpCacheability.Private)

Response.Cache.SetExpires(Now.AddYears(1))  '一年後才會到期，沒有這個就不會有 200 (From Cache)

Response.Cache.SetLastModified(Now)  '若是 Browser 送出了一個新的 Request, 有可能會回 304

$(document).ready(function () {

            //原先的寫法:

           $("td").bind("click", function(){

　　　　 $(this).toggleClass("click");

　　 });

//事件委託:

​$("table").delegate("td","click", function(){

　　　　 $(this).toggleClass("click");

　　 });

    })

Public Sub AddNewCustomer(customer As Customer, Optional dateAdded As Date = Nothing)

     If dateAdded = Nothing Then dateAdded = Now

// C# 4.0 以後的 function 已經可以使用 optional 參數

public void AddNewCustomer(Customer customer, DateTime dateAdded = default(DateTime))

     {

         if (dateAdded == default(DateTime)) dateAdded = DateTime.Now;

         ......

Public Sub AddNewCustomer(customer As Customer, Optional dateAdded As Date = #12/30/1899#)

        List<DB.Member> listOfMember = new List<DB.Member>()

                { new DB.Member(15), new DB.Member(20), new DB.Member(25), new DB.Member(30) };



        // Exists: 單純看有無符合條件的資料

        bool IsMemberExists = listOfMember.Exists(x => x.Email == "darren@acaciaco.com");

        // FindIndex: 找出第一個符合條件的 index，找不到傳回 -1

        int index = listOfMember.FindIndex(x => x.Email == "darren@acaciaco.com");

        // Find: return 第一個符合條件的object, 找不到傳回 null

        DB.Member objMember = listOfMember.Find(x => x.Email.Contains("acaciaco.com"));

        // FindAll: return 所有符合條件的objects

        List<DB.Member> listOfMember2 = listOfMember.FindAll(x => x.Email.Contains("acaciaco.com"));

Dim listOfMember As New List(Of DB.Member)() From { _

    New DB.Member(15), New DB.Member(20), New DB.Member(25), New DB.Member(30) }



' Exists: 單純看有無符合條件的資料

Dim IsMemberExists As Boolean = listOfMember.Exists(Function(x) x.Email = "darren@acaciaco.com")

' FindIndex: 找出第一個符合條件的 index，找不到傳回 -1

Dim index As Integer = listOfMember.FindIndex(Function(x) x.Email = "darren@acaciaco.com")

' Find: return 第一個符合條件的object, 找不到傳回 Nothing

Dim objMember As DB.Member = listOfMember.Find(Function(x) x.Email.Contains("acaciaco.com"))

' FindAll: return 所有符合條件的objects

Dim listOfMember2 As List(Of DB.Member) = listOfMember.FindAll(Function(x) x.Email.Contains("acaciaco.com"))

前台要引用

<!--AutoScripts S-->PageShift2<!--AutoScripts E-->

<!--AutoCSS S-->2013UI/PageShift<!--AutoCSS E-->



內文架構要有

<div id="PageShift2" class="page-index"></div>

<script>

        $('#PageShift2').PageShift2({

            PageIndex: 1,

            PageMAX: 10,

            TriggerEvent: ChangePage

        });

        function ChangePage(PageIndex) {

            console.log(PageIndex);

        }

</script>