Sub SendMail_godaddy(ByVal Subject As String, ByVal Body As String, ByVal FromMail As String, ByVal ToMail As String)

        Dim objMail As New System.Web.Mail.MailMessage()



        objMail.From = FromMail

        objMail.To = ToMail

        objMail.Subject = Subject

        objMail.BodyFormat = Mail.MailFormat.Html

        objMail.Priority = Mail.MailPriority.High

        objMail.Body = Body



        System.Web.Mail.SmtpMail.SmtpServer = UW.Mail.SMTP_SERVER_NAME

        System.Web.Mail.SmtpMail.Send(objMail)

    End Sub

Sub SendMail_gmail(ByVal Subject As String, ByVal Body As String, ByVal FromMail As String, ByVal ToMail As String)

        Dim msg As New System.Net.Mail.MailMessage



        Dim client As New System.Net.Mail.SmtpClient

        Try



            msg.Subject = Subject

            msg.Body = Body

            msg.From = New System.Net.Mail.MailAddress(FromMail)

            msg.To.Add(ToMail)

            msg.IsBodyHtml = True



            client.Host = "smtp.gmail.com"

            Dim basicauthenticationinfo As System.Net.NetworkCredential = New System.Net.NetworkCredential("username@gmail.com", "password")

            client.Port = Int32.Parse("587")

            client.EnableSsl = True

            client.UseDefaultCredentials = False

            client.Credentials = basicauthenticationinfo

            client.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network

            client.Send(msg)



        Catch ex As Exception

            UW.WU.DebugWriteLine(ex.ToString, True, True)

        End Try



    End Sub

        

'更新

        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

    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 

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

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