using System.Net;

using System.IO;



public partial class TEST : System.Web.UI.Page

{

    DB.OrderMain oOrderObj = null;

    protected void Page_Load(object sender, EventArgs e)

    {

        //Setting request header

        HttpWebRequest httpWebRequest = (HttpWebRequest)WebRequest.Create("__APIRootURL__");

        httpWebRequest.ContentType = "application/json; charset=UTF-8";

        httpWebRequest.Method = "POST";

        httpWebRequest.Headers.Add("X-LINE-ChannelId", DB.SysConfig.LINEPay.ChannelId);

        httpWebRequest.Headers.Add("X-LINE-ChannelSecret", DB.SysConfig.LINEPay.SecretKey);



        //加入參數

        using (var streamWriter = new StreamWriter(httpWebRequest.GetRequestStream()))

        {

            string requestJSON = "{\"productName\": \"" + DB.SysConfig.SYSTEM_NAME + "\"," +

                                "\"productImageUrl\": \"" + DB.SysConfig.URL_Shopping + "images/Logo.jpg\"," +

                                "\"amount\": " + oOrderObj.TotalAmount() + "," +

                                "\"currency\": \"TWD\"," +

                                "\"orderId\": \"" + oOrderObj.DisplayOrderId + "\"," +

                                "\"confirmUrl\": \"" + DB.SysConfig.URL_Shopping + "Handler/LinePay/GotoComfirm.aspx?Id=" + oOrderObj.Id + "\"," +

                                "\"cancelUrl\": \"" + DB.SysConfig.URL_Shopping + "Shopping/OrderComplete.aspx?Id=" + oOrderObj.Id + "\"," +

                                "\"capture\": \"true\"," +

                                "\"confirmUrlType\": \"CLIENT\"}";



            streamWriter.Write(requestJSON);

            streamWriter.Flush();

            streamWriter.Close();

        }



        //取得回覆資訊

        var httpResponse = (HttpWebResponse)httpWebRequest.GetResponse();

        //解讀回覆資訊

        using (var streamReader = new StreamReader(httpResponse.GetResponseStream()))

        {

            var responseJSON = streamReader.ReadToEnd();

            //將 JSON 轉為物件

            GN.LinePay.reserveRes.ReturnJSON oReturnObj = (GN.LinePay.reserveRes.ReturnJSON)Newtonsoft.Json.JsonConvert.DeserializeObject(responseJSON, typeof(GN.LinePay.reserveRes.ReturnJSON));



            if (oReturnObj.returnCode == "0000")

            {

                //成功

            }

            else

            {

                //失敗

                string ErrMsg = "Error Code: " + oReturnObj.returnCode + "\r\n" + oReturnObj.returnMessage;

            }

        }

    }

}

Imports System.Net

Imports System.IO



Partial Class TEST

    Inherits System.Web.UI.Page



    Dim oOrderObj As DB.OrderMain

    Private Sub Admin_TEST_Load(sender As Object, e As EventArgs) Handles Me.Load

        'Setting request header

        Dim httpWebRequest As HttpWebRequest = WebRequest.Create("__APIRootURL__")

        httpWebRequest.ContentType = "application/json; charset=UTF-8"

        httpWebRequest.Method = "POST"

        httpWebRequest.Headers.Add("X-LINE-ChannelId", DB.SysConfig.LINEPay.ChannelId)

        httpWebRequest.Headers.Add("X-LINE-ChannelSecret", DB.SysConfig.LINEPay.SecretKey)

        '加入參數

        Using streamWriter As New StreamWriter(httpWebRequest.GetRequestStream())

            Dim requestJSON As String = "{""productName"": """ + DB.SysConfig.SYSTEM_NAME + """," +

                                        """productImageUrl"": """ + DB.SysConfig.URL_Shopping + "images/Logo.jpg""," +

                                        """amount"": " + oOrderObj.TotalAmount() + "," +

                                        """currency"": ""TWD""," +

                                        """orderId"": """ + oOrderObj.DisplayOrderId + """," +

                                        """confirmUrl"": """ + DB.SysConfig.URL_Shopping + "Handler/LinePay/GotoComfirm.aspx?Id=" + oOrderObj.Id + """," +

                                        """cancelUrl"": """ + DB.SysConfig.URL_Shopping + "Shopping/OrderComplete.aspx?Id=" + oOrderObj.Id + """," +

                                        """capture"": ""true""," +

                                        """confirmUrlType"": ""CLIENT""}"



            streamWriter.Write(requestJSON)

            streamWriter.Flush()

            streamWriter.Close()

        End Using

        '取得回覆資訊

        Dim httpResponse As HttpWebResponse = httpWebRequest.GetResponse

        '解讀回覆資訊

        Using streamReader As New StreamReader(httpResponse.GetResponseStream())

            Dim responseJSON As String = streamReader.ReadToEnd()

            '將 JSON 轉為物件

            Dim oReturnObj As GN.LinePay.reserveRes.ReturnJSON = Newtonsoft.Json.JsonConvert.DeserializeObject(responseJSON, GetType(GN.LinePay.reserveRes.ReturnJSON))



            Dim ResMsg As String = ""

            If oReturnObj.returnCode = "0000" Then

                '成功



            Else

                '失敗

            End If

        End Using

    End Sub

End Class

System.Web.HttpContext.Current.Response.Write("location.reload()" & vbCrLf)

System.Web.HttpContext.Current.Response.Write("location.href=location.href" & vbCrLf)

<body>
    <!--BodyTop-->
    {DebugMessage}
    <a id="anchorGoTop" href="#gotop" class="gotop" style="display: none;"><span><em></em></span></a>

        '購物button區塊置於 <body> 正下方
        Me.strBodyTop = Me.otContent.SubTemplate("BuyButtonArea").Result

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

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分享失敗!");

            }

        }

    );

// 例如

Common.popUp({

    Title: "....",

    Message: "......."

    .....

    onOKClick: function() {

        // handle onclick ok button event

    },

    onCancelClick: function() {

        // handle onclick cancel button event

    }

});

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