第25個冬天

此時可能已經填塞了兩個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

於某段事件中(在此用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

由於在做HTTP傳輸(aspx 到 ashx 或另一aspx)時候 經常會被中文字亂碼而影響呈現 可能後端在vs驗證都是正常的可是到IIS跑就怪了.... 因此在傳輸前都可轉為unicode形式之後到目的地再轉回來即可 程式碼 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 'http://annion.kingbig.idv.tw/tool/column/web/unicode-ascii-ansi.htm 'http://trufflepenne.blogspot.com/2013/03/cunicode.html Shared Function StrToUnicode (srcStr As String ) As String Dim dstStr As String = "" Dim chArrSrc() As Char = srcStr.ToArray() For idx = 0 To UBound(chArrSrc) Dim byteArr() As Byte = Encoding.Unicode.GetBytes(chArrSrc(idx).ToString()) Dim strTmp As String = "\u" & byteArr( 1 ).ToString( "X2" ) & byteArr( 0 ).ToString( "X2" ) dstStr &= strTmp Next Return dstStr End Function Shared Function UnicodeToStr (s

由於日常升級網頁表單會時常一直寫一樣的html code 為了節省時間通常可進行所謂的Custom Server Control的封裝 這樣也會使維護變得複雜，會讓其他程式開發者不曉得哪段是重點(變動頻率較高的程式段落) 本次就會以如下控件模組來設計一個可以重複使用的套版 新增好一個Web專案後 在自行新增加一個WebForm Server Control項目 (我比較習慣稱呼為Custom Server Control 關鍵字比較好搜尋) Default 會產生的程式碼如下 RenderContents可以串HTML的內容 主要是在此事件中渲染到瀏覽器的 經改寫(大量Google 跟 Try & Error) 程式碼: 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 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161