//先檢查是不是已經登入

FB.getLoginStatus(function (response) {

    if (response.status === "connected") {

    // 已登入FB

    }

else {

        // 未登入FB

        // 盡量不要在此呼叫 FB.login , 因為彈跳視窗會被擋下來

}

});



//呼叫登入 scope:publish_stream 是要讓user同意發文到FB的權限

FB.login(function (response) {

    if (response.authResponse) {

        // 已登入，可取得 AccessToken

    } else {

        // 未登入

    }

}, { scope: 'publish_stream' });



// 檢查 user 有無同意發文到FB的權限 (publish_stream)

FB.api({ method: 'users.hasAppPermission', ext_perm: 'publish_stream' }, function (resp) {

    if (resp === "1") {

        //有同意

    } else {

        //不同意

    }

});



// 分享連結到登入者的FB牆

// msg 是發文的內容

// link, picture, caption, description 是一組的

var args = {

    message: msg,

    link: product.Link,

    picture: product.Picture,

    caption: product.Name,

    description: "超高口碑BB霜/CC霜、頂級精華液哪款半價 由你決定!"

};

FB.api('/me/feed', 'post', args, function (response) {

    if (response.id) {

        // 成功會回傳訊息id

    }

    else {

        // 分享失敗

    }

});

    FB.ui({

        method: 'feed',

        name: '快去搶！超過9成的使用者滿意推薦的《玻尿酸精華》',

        link: 'http://www.shopunt.com/tch/event/2014-aqua-deluge/default.aspx',

        picture: 'http://www.shopunt.com/Upload/tch/unt/14mar/fb154x154.jpg',

        caption: 'UNT 頂級玻尿酸保濕精華液(奢華)',

        description: '熱銷破百萬 真實口碑見證的水感奇肌 逆時補水科技 快速滲透 為肌膚注入高水位……'

    },

        function (response) {

            if (response && response.post_id) {

                // handle  success

            }

            else {

                alert("facebook分享失敗!");

            }

        }

    );

參考網址：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

        

'更新

        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