ASP.NET_Webform進行Post傳送並接收來自泛型處裡函式的回傳

-
於某段事件中(在此用Button)執行HTTP POST 傳送

xxx.aspx
Code
 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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 Protected Sub btnLoad_Click(sender As Object, e As EventArgs) _
        Handles btnLoad.Click
  
#Region "前期串資料"
  ' .....do something
#End Region
  
#Region "WEB POST Request"
  '在此用的是亂掰的URL 和目錄
  'http://192.168.87.87
  Dim strURL As String = Request.Url.Scheme & System.Uri.SchemeDelimiter & Request.Url.Host
  'http://192.168.87.87/AAA/BBB/CCC/
  strURL &= "/AAA/BBB/CCC/"
  'http://192.168.87.87/AAA/BBB/CCC/xxx.ashx
  strURL &= "xxx.ashx"
  
  Dim myRequest As WebRequest = WebRequest.Create(strURL)
        myRequest.Method = "POST"
  
  '傳送過程中有包含一些中文內容欄位會特別做Encode
        Dim dstEncoding As Encoding = Encoding.GetEncoding("gb2312")
        Dim postData As String = String.Format("Currency={0}&CusIDCompany={1}&CusOrdNo={2}&Master={3}&SalesMan={4}&FinalCustomer={5}&NewBillNo={6}&lport={7}&FinalAddress={8}&OrdNoTw={9}&ShInvoiceNo={10}&ContractNo={11}",
                                               HttpUtility.UrlEncode(res_currency, dstEncoding),  '美金
                                               cus_id,
                                               cus_ord_no,
                                               master,
                                               salesman,
                                               final_customer,
                                               new_bill_no,
                                               lport,
                                               final_address,
                                               ord_no_tw,
                                               sh_invoice_no,
                                               lading_no)
  Dim byteArr() As Byte = Encoding.ASCII.GetBytes(postData)
        myRequest.ContentType = "application/x-www-form-urlencoded;charset=gb2312"
        myRequest.ContentLength = byteArr.Length
        Using dataStream As Stream = myRequest.GetRequestStream()
            dataStream.Write(byteArr, 0, byteArr.Length)
        End Using
  
  Dim dicData As New Dictionary(Of String, String)
        Try
            Using myResponse As WebResponse = myRequest.GetResponse()
                Using streamDataResponse As Stream = myResponse.GetResponseStream()
                    Using streamReader As New StreamReader(streamDataResponse)
                        Dim strRespFromServ As String = streamReader.ReadToEnd()
                        If Not String.IsNullOrEmpty(strRespFromServ) Then
                            Dim lsKey As List(Of String) = {"Currency"}.ToList()
                            For Each retItem In strRespFromServ.Split(";").Where(Function(item) Not String.IsNullOrEmpty(item)).ToList()
                                With retItem.Split("=").ToList()
                                    If lsKey.Contains(.Item(0)) Then
                                        dicData.Add(.Item(0), UnicodeToStr(.Item(1).Trim())) '有繁體、簡體中文內容的欄位
                                    Else
                                        dicData.Add(.Item(0), .Item(1).Trim())
                                    End If
                                End With
                            Next
                        End If
                    End Using
                End Using
            End Using
        Catch ex As Exception
            Response.Write("Response Exception:" & ex.ToString() & "<br>")
            Response.Write("Response Exception Call Stack:" & ex.StackTrace & "<br>")
            Debug.Print(ex.ToString())
        End Try
#End Region
  
#Region "控件或變數的賦值"
  dicData.Item("xxxx")
  
#End Region
 End Sub

xxx.ashx

 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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Imports System.Web
Imports System.Web.Services

Public Class XXXHandler
    Implements System.Web.IHttpHandler, IRequiresSessionState
 
 
   Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
  context.Response.ContentType = "text/plain"
  Dim dicContext As New Dictionary(Of String, String)
        If Not String.IsNullOrEmpty(strContext) Then
            For Each itemCon In strContext.Split("&").ToList()
                With itemCon.Split("=").ToList()
                    dicContext.Add(.Item(0), .Item(1)) '%c3%c0%bd%f0
                End With
            Next
        End If
  
  
        Try
            'Dim strCurrency As String = HttpUtility.UrlDecode(Convert.ToString(context.Request.Form("Currency")), Encoding.GetEncoding("gb2312"))
            Dim strCurrency As String = StrToUnicode(HttpUtility.UrlDecode(Convert.ToString(dicContext.Item("Currency")), Encoding.GetEncoding("gb2312")))
   '美金->GB2312: %c3%c0%bd%f0
   'dicContext.Item("Currency")=>'%c3%c0%bd%f0
   'HttpUtility.UrlDecode(dicContext.Item("Currency"), Encoding.GetEncoding("gb2312"))=>美金 (但是網頁顯示可能會看到??亂碼，因此轉成unicode,於回傳到接收端後透過unicode轉成對應簡繁中文字)
   'StrToUnicode(HttpUtility.UrlDecode(dicContext.Item("Currency"), Encoding.GetEncoding("gb2312")))=\u7F8E\u91D1

            Dim strCusIDCompany As String = Convert.ToString(context.Request.Form("CusIDCompany"))
            Dim strCusOrdNo As String = Convert.ToString(context.Request.Form("CusOrdNo"))
            Dim strMaster As String = Convert.ToString(context.Request.Form("Master"))
            Dim strSalesMan As String = Convert.ToString(context.Request.Form("SalesMan"))
            Dim strFinalCustomer As String = Convert.ToString(context.Request.Form("FinalCustomer"))
            Dim strFinalAddress As String = Convert.ToString(context.Request.Form("FinalAddress"))
            Dim strNewBillNo As String = Convert.ToString(context.Request.Form("NewBillNo"))
            Dim strlport As String = Convert.ToString(context.Request.Form("lport"))
            Dim strOrdNoTw As String = Convert.ToString(context.Request.Form("OrdNoTw"))
            Dim strShInvoiceNo As String = Convert.ToString(context.Request.Form("ShInvoiceNo"))
            Dim strLadingNo As String = Convert.ToString(context.Request.Form("LadingNo"))

            

            context.Response.Write("Currency=" & strCurrency & ";")

            context.Response.Write("CusIDCompany=" & strCusIDCompany & ";")
            context.Response.Write("lport=" & strlport & ";")
            context.Response.Write("PackYear=" & l_year & ";")
            context.Response.Write("PackMonth=" & l_month & ";")
            context.Response.Write("PackDay=" & l_day & ";")
            context.Response.Write("LadingNo=" & strLadingNo & ";")
            context.Response.Write("NewBillNo=" & strNewBillNo & ";")
            context.Response.Write("ShFlag=" & new_sh_flag & ";")
            context.Response.Write("OrderNoTw=" & strOrdNoTw & ";")
            context.Response.Write("InvoiceNoTw=" & tw_invoice_no & ";")
            context.Response.Write("CusName=" & strCusIDCompany & ";")
            context.Response.Write("Master=" & strMaster & ";")
            context.Response.Write("Salesman=" & strSalesMan & ";")
            context.Response.Write("CusOrdNo=" & strCusOrdNo & ";")
            context.Response.Write("FinalCustomer=" & strFinalCustomer & ";")
            context.Response.Write("m_flag=" & m_flag & ";")
            context.Response.Write("tw_ord_no=" & tw_ord_no & ";")
            context.Response.Write("tw_type_id=" & tw_type_id & ";")
            context.Response.Write("tw_item_id=" & tw_item_id & ";")

        Catch ex As Exception
            context.Response.Write("ASHX Exception:" & ex.ToString() & "<br>")
            context.Response.Write("ASHX Exception call stack:" & ex.StackTrace & "<br>")
        End Try  
    End Sub
 
    Private Shared Function GetStringFromInputStream(context As HttpContext) As String
        Dim strData As String = ""
        Using reader As New IO.StreamReader(context.Request.InputStream)
            strData = reader.ReadToEnd()
        End Using
        Return strData
    End Function
 
    ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property
 
End Class


Reference:

如何在 .aspx 將資料 post 到 .ashx
http://readily-notes.blogspot.com/2013/09/aspx-post-ashx.html
'[轉貼] 在Server端Post資料到.ashx
https://coolong124220.nidbox.com/diary/read/8045492
'.NET ASP.NET一般处理程序(HttpHandler)
https://blog.csdn.net/qq_43434300/article/details/89604958
C# 字符编码解码 Encoder 和Decoder
https://www.cnblogs.com/2Yous/p/5801349.html
Debugging an HTTP Handler (*.ashx) in ASP.NET 2.0
https://www.codeguru.com/csharp/.net/net_debugging/article.php/c19547/Debugging-an-HTTP-Handler-ashx-in-ASPNET-20.htm
How to set in Visual Studio Startup Page in web config
https://forums.asp.net/t/1934284.aspx?How+to+set+in+Visual+Studio+Startup+Page+in+web+config+

留言

張貼留言

這個網誌中的熱門文章

何謂淨重(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協定。 在第一次發出前往特定網站的請求時，攻擊者可以執行中間人攻擊並將用戶轉址到...
閱讀完整內容