參考網址：http://msdn.microsoft.com/zh-tw/library/ms229862(v=vs.100).aspx#findingthecorrectversion

Aspnet_regsql.exe 安裝在 Microsoft .NET Framework 目錄中。 如果電腦正在並存執行多個 .NET Framework 版本，就可能會安裝此工具的多個版本。 下表將針對不同的 .NET Framework 版本列出此工具的安裝位置。

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

    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

Smooth Gestures 

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

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

        Dim d As Date = Now

        Dim n As Decimal = 86400.99

        Dim Cultures() As String = {"zh-TW", "pt-BR", "pt-PT", "en-US", "en-GB", "fr-FR", "de-DE", "es-ES", "ja-JP", "zh-CN", "ko-KR", "en-IN"}

        For i As Integer = 0 To Cultures.GetUpperBound(0)

            Dim c As New Globalization.CultureInfo(Cultures(i))

            Response.Write(Cultures(i) & "<br/>" & d.ToString("D", c) & " <br/>" & d.ToString("d", c) & "<br/>" & n.ToString("C", c))

            Response.Write("<hr/>")

        Next

zh-TW

2013年12月25日

2013/12/25

NT$86,400.99



pt-BR

quarta-feira, 25 de dezembro de 2013

25/12/2013

R$ 86.400,99



pt-PT

quarta-feira, 25 de Dezembro de 2013

25-12-2013

86.400,99 €



en-US

Wednesday, December 25, 2013

12/25/2013

$86,400.99



en-GB

25 December 2013

25/12/2013

£86,400.99



fr-FR

mercredi 25 décembre 2013

25/12/2013

86 400,99 €



de-DE

Mittwoch, 25. Dezember 2013

25.12.2013

86.400,99 €



es-ES

miércoles, 25 de diciembre de 2013

25/12/2013

86.400,99 €



ja-JP

2013年12月25日

2013/12/25

¥86,401



zh-CN

2013年12月25日

2013/12/25

￥86,400.99



ko-KR

2013년 12월 25일 수요일

2013-12-25

₩86,401



en-IN

25 December 2013

25-12-2013

₹ 86,400.99