ASP.NET_實踐透過POST方式來開啟另一webform_如何將C#或VB.NET的List透過Json.NET處裡完傳給js

-

此時可能已經填塞了兩個List物件
lsColDataKeyCollection
lsColDataValCollection
然後是透過Grid選取某列時做出傳送的

【發送端】父頁面
後端VB.NET Code

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim XC As New NameValueCollection
        ' ...... do something
        If Page.IsPostBack = False Then '頁面第一次載入只執行一次
            ' ...... do something
            
        End If

        AddHandler GridShipContent.SelectedIndexChanging, AddressOf OnGridViewSelectedIndexChanging
    End Sub
 
 
    Private Sub OnGridViewSelectedIndexChanging(sender As Object, e As GridViewSelectEventArgs)
        If e.NewSelectedIndex < 0 Then Exit Sub

  ' ...... do something
        Me.Page.ClientScript.RegisterStartupScript(Me.GetType(), "PostTest", "DoPostOpen()", True)
    End Sub


前端Js部分
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
        function DoPostOpen() {
            var keys = [];
            var vals = [];
            var rawJsondicKeyStr = '<%=Newtonsoft.Json.JsonConvert.SerializeObject(lsColDataKeyCollection)%>';
            //document.write("RawJsonKey:" + rawJsondicKeyStr + ";" + "<br>");
            var rawJsondicValStr = '<%=Newtonsoft.Json.JsonConvert.SerializeObject(lsColDataValCollection)%>';
            //document.write("RawJsonVal:" + rawJsondicValStr + ";" + "<br>");

            //用json2.js的JSON做parser避免因應IE8,7,6 沒有javascript原生的Json解析API問題
            var listKey = JSON.parse(rawJsondicKeyStr)
            //document.write("listKey:" + listKey + ";" + "<br>");
            var listVal = JSON.parse(rawJsondicValStr)
            //document.write("listVal:" + listVal + ";" + "<br>");



            for (var idxKey = 0; idxKey < listKey.length; idxKey++) {
                keys[idxKey] = listKey[idxKey];
                vals[idxKey] = listVal[idxKey];
                //document.write(listKey[idxKey])
                //document.write("<br>")
            }
            openWindowByPost("EditForm.aspx", "web", keys, vals, 50,50,400,520);
        }

        function openWindowByPost(url, name, keys, values, ArgTop, ArgLeft, ArgWidth, ArgHeight) {
            //alert("openWindowByPost begin");
            var newWindow = window.open(url, name, "top=" + ArgTop + ",left=" + ArgLeft + ",width=" + ArgWidth + ",height=" + ArgHeight + ", toolbar=no, menubar=no, scrollbars=no,location=no,directories=no , status=no");

            if (!newWindow)
                return false;
            //alert("openWindowByPost pass window object check");
            var html = "";
            html += "<html><head></head><body><form id='formid' method='post' action='" + url + "'>";
            if (keys && values && (keys.length == values.length))
                for (var i = 0; i < keys.length; i++)
                    html += "<input type='hidden' name='" + keys[i] + "' value='" + values[i] + "'/>";
            html += "</form><script type='text/javascript'>document.getElementById(\"formid\").submit()";
            html += "<" + "/script>";
            html += "<" + "/body>";
            html += "<" + "/html>";
            newWindow.document.write(html);
            return newWindow;
        }


這裡透過Json.NET 將List物件序列化給 js
前端 js 再引入Json2.js 確保不會因為IE太早期版本而不支援原生js 的JSON API

可透過Nuget來配置安裝
這樣就不需要一個一個指派，可直接Iterate Assign。






【接收端】子頁面(sub.aspx)


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 Dim lsColName As New List(Of String)
 Dim lsColVal As New List(Of String)
 If Request.Form.AllKeys.ToList().Count > 0 Then
  '全英文數字內容傳輸時候
            For Each postVal In Request.Form.Keys
         lsColName.Add(postVal)
  lsColVal.Add(Request.Form(postVal))
            Next
  '特定某些傳輸欄位包含中文時候，以下示例是Key已經確保是英文(因為是開發者自訂的)
  'lsColName.Add(postVal)
  'If postVal = "unit" Then
  ' Dim strChineseContent As String = "\u" & Request.Form(postVal) '\u4e2a
        '    Dim strUniToOriStrContent As String = UnicodeToStr(strChineseContent) '\u4e2a -> 个
  ' lsColVal.Add(strUniToOriStrContent)
  'Else
  ' lsColVal.Add(Request.Form(postVal))
  'End If
 End If
 
 '.... do something
 
 '如果在此aspx網頁上你想透過按鈕讓父頁面更新傳回內容則可將如下註解掉的取消
 'Step1.父頁面請安置一個按鈕調成style為display:none,並將父頁面更新邏輯寫入是件區塊中。
 'Step2.透過session存內容 後續在父頁面事件可在調用session對應Key獲取子頁面指派的值
 'AddHandler btnSendBack.Click, AddressOf OnBtnSendBack
  
End Sub


Private Sub OnBtnSendBack(sender As Object, e As EventArgs)
 Dim strJs As String = "window.opener.document.getElementById('btnSubTrigger').click();"
 'Dim strJs As String = "window.opener.SetVal(" & Request.Form("txt_ok_qty") & ");" '---> ok_qty: 14
 Session("P_Key1") = Request.Form("Key1")
    Session("P_Key2") = Request.Form("Key2")
 ScriptManager.RegisterStartupScript(Me, Me.GetType(), "ParentButtonClick", strJs, True)

 strJs = "window.close();"
    Me.Page.ClientScript.RegisterStartupScript(Me.GetType(), "CloseWin", strJs, True)
End Sub


Reference:

[JavaScript]window.open的post與get傳遞參數比較
https://dotblogs.com.tw/puma/archive/2008/09/03/5288.aspx
How do I pass a list from aspx to javascript?
https://stackoverflow.com/questions/3415550/how-do-i-pass-a-list-from-aspx-to-javascript
[JavaScript] JSON stringify and parse
https://oawan.me/2016/javascript-json-stringify-and-parse/
如何在Visual Studio項目中安裝Json.Net
https://www.newtonsoft.com/json
https://riptutorial.com/zh-TW/json-net/example/6086/%E5%A6%82%E4%BD%95%E5%9C%A8visual-studio%E9%A0%85%E7%9B%AE%E4%B8%AD%E5%AE%89%E8%A3%9Djson-net
[Day 22] C#中Json的序列化和反序列化的幾種方式(三)
https://ithelp.ithome.com.tw/articles/10195057
jQuery JSON
https://codertw.com/%E5%89%8D%E7%AB%AF%E9%96%8B%E7%99%BC/289501/
https://blog.xuite.net/dizzy03/murmur/44844092-%5BjQuery%5D%5Bjavascript%5D+%E5%88%A9%E7%94%A8jquery+plug-in%E5%B0%87array%E8%BD%89%E6%88%90json
https://github.com/krinkle/jquery-json
Converting a JSON Text to a JavaScript Object
https://www.w3schools.com/js/js_json.asp
https://kingweblife.blogspot.com/2016/03/jsonparse.html
解决IE浏览器兼容性问题：“JSON”未定义
https://blog.csdn.net/liu865033503/article/details/78191521





留言

張貼留言

這個網誌中的熱門文章

何謂淨重(Net Weight)、皮重(Tare Weight)與毛重(Gross Weight)

-
圖片
當談到貨物的重量時，往往會分成所謂的淨重(Net Weight)與毛重(Gross Weight)。 會有以下公式關係存在 淨重=毛重-皮重(包裝物的重量) 毛重=淨重+皮重 淨重( Net Weight 縮寫為N.W.) 指物品本身的重量，不包括容器或包裝材料的重量。 凈重是國際貿易中最常見的計重辦法。 例如，如果運輸原材料，原材料的重量就是所運輸貨物的淨重。包裝原材料的容器或包裝不計入淨重。同樣地，當我們考慮一罐豆子時，罐子內所含物品的重量就算作淨重。因此，淨重將包括豆子、罐頭里的任何液體，以及保存豆子所含的物品。 大多數 以重量為計價的貨物買賣 ，採用此計價方法。 若合同中並未明確規範以何種方式計量和計價時，按慣例以凈重計價。 毛重( Gross Weight 縮寫G.W.) 貨物連同它的包裝的重量，是你托運的所有物品的總重量。 皮重(Tare Weight) 指商品外包裝材料的重量(即運輸包裝的重量)，不包括內包裝材料和襯墊物的重量。 比方一個空的貨櫃、容器、或任何包裝材料的重量。 Net Net Weight純淨重 (指從Net Weight中扣除內包裝後的重量) 進出口商品為了因應運輸及消費需求, 一般都有內包裝與外包裝。 一般在買賣合同與信用狀中,通常只要求於裝箱單上註明Gross Weight和Net Weight即可, 但有些L/C 要求 Net Net Weight,大多是海關徵收從量稅時的依據 運輸重量對於航運業或者航空運輸等各自都通用這些術語 為何特別在意重量? 主要就在於會影響像是傳輸安全乘載限制。 就運輸層面(不同方式的運輸) 航空運輸：對機長而言，毛重包括皮重、產品淨重以及飛機、燃料、乘客和機組人員的重量。 公路/鐵路運輸:對於火車車長而言，毛重包括產品淨重、皮重和運輸車輛的重量。 水路航運運輸：對船長而言，毛重就是淨重和皮重之和。 就公司ERP成本角度 成本一般都會採用 "淨重" 主要是因為若用毛重，可能會有輔材不可控因素存在 比方一個 5cm 固定塑膠件，今天用一個 10cm 紙箱測重，明天用一個 100cm 紙箱測重，那可能就容易導致ERP資料比較會失真。 就物流層面來探討 通常還會有一名詞即所謂「實際重量」(Actual Weight) 根據稱重(過磅)所得到的重量，實際重量分為實際毛重(Gross Weig...
閱讀完整內容

Architecture(架構) 和 Framework(框架) 有何不同?_軟體設計前的事前規劃的藍圖概念

-
圖片
一個應用程式(軟體) 不管是  互動拍照 也好、 投影也好、車牌偵測... 舞台演唱會後方電視牆的互動應用程序、 粒子特效、3D或2D遊戲  等等 開發者通常都需要在一開始做規劃 ㄟ  假設我今天要寫 跟影像有關 可能需要偵測、可能需要提取前景、可能需要偵測圓形 之類的 我有  emgucv 、AForge.Net、 opencv 等等可以用 但是 假設我今天要做的應用程序是需要有視窗介面的~~ emgucv 跟 C# windows form 媒合性 就很高 而且直接在 visual studio 做開發 opencv 我可能還需要依賴 Qt 之類等等  framework 假設我今天是要寫一個 演唱會電視牆互動粒子特效 可能就會挑   openframeworks  、 processing 、kinect 來寫互動 Achitecture  --->全稱 :  Software Architecture   軟體架構 Achitecture   由好多 framework 組成 軟體架構（Software Architecture）是一種軟體在開發前的設計藍圖， 用來告訴軟體的結構，功能，介面，用法，與其他系統的構連以及資料交換等等規範， 但它並沒有叫你要用什麼方式實作， 因此軟體架構通常會產生文件，圖樣，原型以及規格等， 就是沒有可用的程式碼，因為那不是軟體架構應該有的東西， 就像蓋房子時是給你藍圖，而不是一幢蓋好的房子。 軟體框架（Framework):是一個已經成形的方法，而且有程式碼實體 （例如鋼構工法也是要有鋼材才能做），並且會告訴你要如何使用它 （即 Framework Documentation，MSDN Library 即為一最佳例子）
閱讀完整內容

經得起原始碼資安弱點掃描的程式設計習慣培養(五)_Missing HSTS Header

-
圖片
  接續前幾篇系列 經得起原始碼資安弱點掃描的程式設計習慣培養(一)_OWASP Top 10(十大網站安全風險)_學習寫更安全程式碼的網站推薦 經得起原始碼資安弱點掃描的程式設計習慣培養(二)_8.Insecure Deserialization ：不安全的反序列化漏洞ASP.NET處理方式 經得起原始碼資安弱點掃描的程式設計習慣培養(三)_7.Cross Site Scripting(XSS)_Stored XSS_Reflected XSS All Clients 經得起原始碼資安弱點掃描的程式設計習慣培養(四)_1.Injection注入攻擊_SQL Injection)_order by 語句正確參數化套入 最近又遇到被若安掃描到高風險要修正的程式碼啦.... 一看這還真是搞不懂該怎麼修呢 HSTS(HTTP Strict Transport Security)  主要是一份國際標準規格 (RFC 6797) 的網際網路瀏覽安全機制， 用於宣告瀏覽器與伺服器之間通訊方式必須強制採用 TLS/SSL 加密通道。 只要從伺服器端送出一個 Strict-Transport-Security 標頭 (Header) 給瀏覽器，即可告知瀏覽器於未來的某段時間內一律使用 SSL 來和該網站連接 (設定可涵蓋所有子域名網站)， 一旦發生憑證失效情況，使用者將無法再瀏覽該網站，如此一來便可大幅減少中間人攻擊的問題發生。 再更白話一點 HSTS Header 就是負責將 http 強制轉為 https CheckMarx掃碼報告給的說明 ============================================================ 風險: 如果web config沒有設置HSTS表頭、"max-age"(有效期)不足一年， 或沒有設定"includeSubDomains"(包含所有子網域)，可能會使用戶容易遭受中間人攻擊。 發生原因: 許多使用者只要在瀏覽器的網址列輸入網域名稱(Domain Name)即可瀏覽網站， 並沒有輸入協定(Protocol)的名稱。 瀏覽器會自動假設使用者使用的是HTTP協定而不是有加密機制的HTTPS協定。 在第一次發出前往特定網站的請求時，攻擊者可以執行中間人攻擊並將用戶轉址到...
閱讀完整內容