搜尋 . 結果：
一直覺得 UW.Template 應該還有改善的空間，因為網站大量使用這個物件
只要有一些些效能調教，對於整體效能應該有很大的幫助
昨天發現切版的程式 UW.Template => GetTemplateFromString
在使用 IndexOf 去尋找 <!--Key S--> 及 <!--Key E--> 時，
<!--Key E--> 可能有一些問題，因為他是從第0個位置開始找
而實際上他應該是從 <!--Key S--> 後面開始找比較對
所以後者的 IndexOf 要加個 StartIndex 參數值比較對
另外 我也針對 StringComparison 做一些測試
然後以一個 20KB 的 html 去抓出 <!--Content E--> 的位置
測試結果如下 (StartP 是 <!--Content S--> 後的起始位置)
結論:
1. IndexOf 預設是以 StringComparison.CurrentCulture 方式尋找字串
2. 對於大塊字串，請盡量用 StartP 去找結束標籤位置，這樣速度會快很多，因為少爬了一段文字，此範例是差了2.5倍
3. 對於大塊字串，除非大小寫都要找，不然盡量用 StringComparison.Ordinal 來尋找字串，速度差了7~8倍
微軟對於.NET字串處理 有一篇建議文章，請大家拜讀一下
http://msdn.microsoft.com/zh-tw/library/vstudio/dd465121(v=vs.100).aspx
只要有一些些效能調教，對於整體效能應該有很大的幫助
昨天發現切版的程式 UW.Template => GetTemplateFromString
在使用 IndexOf 去尋找 <!--Key S--> 及 <!--Key E--> 時，
<!--Key E--> 可能有一些問題，因為他是從第0個位置開始找
而實際上他應該是從 <!--Key S--> 後面開始找比較對
所以後者的 IndexOf 要加個 StartIndex 參數值比較對
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)
另外 我也針對 StringComparison 做一些測試
然後以一個 20KB 的 html 去抓出 <!--Content E--> 的位置
測試結果如下 (StartP 是 <!--Content S--> 後的起始位置)
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
結論:
1. IndexOf 預設是以 StringComparison.CurrentCulture 方式尋找字串
2. 對於大塊字串，請盡量用 StartP 去找結束標籤位置，這樣速度會快很多，因為少爬了一段文字，此範例是差了2.5倍
3. 對於大塊字串，除非大小寫都要找，不然盡量用 StringComparison.Ordinal 來尋找字串，速度差了7~8倍
微軟對於.NET字串處理 有一篇建議文章，請大家拜讀一下
http://msdn.microsoft.com/zh-tw/library/vstudio/dd465121(v=vs.100).aspx
darren, 2014/1/14 下午 03:18:14
當使用Ajax做回應的時候～
有時候會將HTML本文做取代
例如：$(e).html(回應文)、$(e).replaceWith(回應文)
但是回應文中若是包含Javascript可能會執行，但是並不會顯示在Html裡面
注意：會執行、但不一定會顯示
有時候會將HTML本文做取代
例如：$(e).html(回應文)、$(e).replaceWith(回應文)
但是回應文中若是包含Javascript可能會執行，但是並不會顯示在Html裡面
注意：會執行、但不一定會顯示
Doug, 2014/1/10 上午 10:45:00
當進行玩物件Update指令之後～不見得所有的資訊會跟著更新～
舉例：
ShippingInfo 在Update之後
ShippingInfo.FullAddress的內容為
Me.Post_Code & Me.County_Name & Me.City_Name & Me.Address
但是Me.County_Name & Me.City_Name的部分是用join出來的～
所以不會更新
因此地址部分會是錯誤的～
所以在執行update完之後～還是重新再new一次以保資料會是最新的～
舉例：
ShippingInfo 在Update之後
ShippingInfo.FullAddress的內容為
Me.Post_Code & Me.County_Name & Me.City_Name & Me.Address
但是Me.County_Name & Me.City_Name的部分是用join出來的～
所以不會更新
因此地址部分會是錯誤的～
所以在執行update完之後～還是重新再new一次以保資料會是最新的～
Doug, 2014/1/10 上午 10:41:04
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
Doug, 2014/1/6 下午 12:25:22
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--Header S-->
<!--<title>{Title}</title>
<meta name="description" content="{Description}" />
<script type="text/javascript" src="{UNTJS}"></script>-->
<!--AutoScripts S--><!--AutoScripts E-->
<!--AutoCSS S--><!-- AutoCSS E-->
<!--Header E-->
</head>
<body>
<!--Content S-->
<!--FinalScript S-->
<script type="text/javascript">
$(document).ready(function () {
})
</script>
<!--FinalScript E-->
<!--Content E-->
</body>
</html>
Doug, 2014/1/6 下午 12:21:03
Protected Sub Page_PreLoad(sender As Object, e As EventArgs) Handles Me.PreLoad
SHOPUNT.GN.WSC.CheckLogin() '檢查是否有登入、否則導回Login
SHOPUNT.GN.WSC.CheckRightOrStop(SHOPUNT.EN.AuthCode.廣告管理) '檢查是否有廣告編輯的權限
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
'Me.Master.strTitle = "目錄管理"
'Me.Master.IsListItemScript = True
LoadPageContext()
End Sub
Sub LoadPageContext()
End Sub
Doug, 2014/1/6 上午 11:40:25
我找到了我一直很想要的用滑鼠滑一滑就可以關掉頁面和上一頁下一頁的擴充套件啦~
是這裡分享的>>幸運草的吉光片羽
他還有分享其他很好用的套件,大家可以安裝來用用唷~
Yuan, 2014/1/4 下午 11:43:12
此次電子發票因為配合財政部政冊,我們做了UNT前後台及Turnkey較體的修正,原定2013/12/31將前後台相關程式上線,
2014/1/2再將Turnkey切換成MIG 3.1版本,但是這次上線後發生了幾個狀況...這和上線前未測試完全有關
1.前台於95 84皆未測試到Repay,上線後才想到,還好在上線當天有完成修正
2.後台未測試發票列印,1/2出貨選擇紙本發票的訂單並未隨貨印出,1/3一早才發現程式並未上線至正式台,立即將他上線
即時的解決方法:
1.Repay因在上線當天就發現,所以在上線後一一測試排除了,但三聯式發票的Bug比較麻煩,無法立即處理
2.1/2未印出的發票,我們寄出了一封通知信給那374位未收到發票的顧客,發票依舊由雅卡西亞託管,並會在3/25為他們對獎,
且讓無發票印列記錄的訂單皆可在前台點選得到"索取紙本發票",1/25之後由我們每天檢查是否有發票索取
必免未來發生相同的錯誤,以後應該:
1.程式未上線至正式台前,需將程式需求中的每一個項目皆測試到,最好可以做一個測試列表勾選
(是不是可以做一個程式有修改的清單,上線前可檢查是否有全數更新到?)
2.只要有關購物車中的購買相關程式,皆需測試到Repay
3.最好能想好程式如果無法如期上線的備案
不知還有麼要注意的,大家給點建議吧!
2014/1/2再將Turnkey切換成MIG 3.1版本,但是這次上線後發生了幾個狀況...這和上線前未測試完全有關
1.前台於95 84皆未測試到Repay,上線後才想到,還好在上線當天有完成修正
2.後台未測試發票列印,1/2出貨選擇紙本發票的訂單並未隨貨印出,1/3一早才發現程式並未上線至正式台,立即將他上線
即時的解決方法:
1.Repay因在上線當天就發現,所以在上線後一一測試排除了,但三聯式發票的Bug比較麻煩,無法立即處理
2.1/2未印出的發票,我們寄出了一封通知信給那374位未收到發票的顧客,發票依舊由雅卡西亞託管,並會在3/25為他們對獎,
且讓無發票印列記錄的訂單皆可在前台點選得到"索取紙本發票",1/25之後由我們每天檢查是否有發票索取
必免未來發生相同的錯誤,以後應該:
1.程式未上線至正式台前,需將程式需求中的每一個項目皆測試到,最好可以做一個測試列表勾選
(是不是可以做一個程式有修改的清單,上線前可檢查是否有全數更新到?)
2.只要有關購物車中的購買相關程式,皆需測試到Repay
3.最好能想好程式如果無法如期上線的備案
不知還有麼要注意的,大家給點建議吧!
Yuan, 2014/1/4 下午 11:26:50
康是美出貨印單犯下的錯誤,這邊寫給未來新進同仁注意,出貨印單時發生訂單明細品項箱數與總數量不相符的問題,
測試之後發現是記錄原始訂單上傳log table [OrderFromCosmed Log] ,在撈出該筆訂單品項資料時,資料庫物件
下select條件時發生失誤,以下是程式碼:有問題的程式碼我以#號標記
說明:已上程式是在撈出訂單品項資料時要對康是美印單用.txt sample檔裡面的字串作取代最後再列印,發生問題的程式碼,
主要是撈出該筆訂單品項時,使用資料庫物件的方法GetDataRowAndReturnSelfOrNothing()時,只下訂單品項id而沒有下
該筆訂單編號,導致撈出來的資料是其他訂單的同品項資料,進而導致數量箱數不符合的狀況發生!!
測試之後發現是記錄原始訂單上傳log table [OrderFromCosmed Log] ,在撈出該筆訂單品項資料時,資料庫物件
下select條件時發生失誤,以下是程式碼:有問題的程式碼我以#號標記
For I As Int32 = 1 To DT.Rows.Count
If order_num_right = DT.Rows(I - 1)("Pid") Then
Pid_No = I - 1
End If
#OFCL.Pid = DT.Rows(I - 1)("Pid")
#OFCL.GetDataRowAndReturnSelfOrNothing()
Dim NewT As String = oT.Result
NewT = NewT.Replace("#Y#", StartY + (I - 1) * LH)
NewT = NewT.Replace("#序號#", I.ToString)
NewT = NewT.Replace("#品號#", OFCL.Pid)
NewT = NewT.Replace("#品名#", OFCL.Product_Name)
NewT = NewT.Replace("#包裝#", OFCL.Package)
NewT = NewT.Replace("#單位#", OFCL.UNIT)
NewT = NewT.Replace("#數量#", OFCL.Qty)
NewT = NewT.Replace("#箱數#", OFCL.BOX)
NewT = NewT.Replace("#總數量#", OFCL.Total)
NewT = NewT.Replace("#未稅價#", OFCL.Price)
NewT = NewT.Replace("#總金額#", OFCL.Sum)
Res &= NewT
Next
說明:已上程式是在撈出訂單品項資料時要對康是美印單用.txt sample檔裡面的字串作取代最後再列印,發生問題的程式碼,
主要是撈出該筆訂單品項時,使用資料庫物件的方法GetDataRowAndReturnSelfOrNothing()時,只下訂單品項id而沒有下
該筆訂單編號,導致撈出來的資料是其他訂單的同品項資料,進而導致數量箱數不符合的狀況發生!!
jimmy, 2014/1/3 下午 08:51:38
1. 已登入的情況下，回應可以不用輸入驗證碼。
2. Email 通知增加一個參數 "LoginFirst=true"，看到這個參數時，會自動要求登入。
-- 建議可以讓小玉來做做看。
2. Email 通知增加一個參數 "LoginFirst=true"，看到這個參數時，會自動要求登入。
-- 建議可以讓小玉來做做看。
Bike, 2014/1/3 下午 08:40:32