半夜被老闆 Line，跟我說網頁發生錯誤，他無法看統計報表，會出現作業逾時的錯誤 我查了一下網頁程式，發現是這筆SQL指令跑太久

 Select Id, (IsNull(Total, 0) - IsNull(CouponDiscount, 0) + IsNull(CouponAdd, 0)) as Total, Buyer_Email, EN_Packing_List_Status, EN_Order_Source, En_Stock_Status, Create_Date

From V_Order_main With(Nolock)

Where Id in (select Order_Id from Ad_Trace With(NoLock) where (Parameter_Id = 14278))

AND Create_Date >= '2014/10/3' And Create_Date < '2014/10/12' 

--> 跑了50秒~ 1分鐘

 Select Id, (IsNull(Total, 0) - IsNull(CouponDiscount, 0) + IsNull(CouponAdd, 0)) as Total, Buyer_Email, EN_Packing_List_Status, EN_Order_Source, En_Stock_Status, Create_Date

From V_Order_main With(Nolock)

Where Id in (select Order_Id from Ad_Trace With(NoLock) where (Parameter_Id = 14278))

--> 拿掉日期限制 > 秒殺，  結果跑出 47 筆資料

跑一下執行計畫 原來子查詢的 Ad_Trace 沒有建立Index造成


加上 Index 之後，再跑第一支SQL --> 秒殺

奇怪的地方:
明明訂單日期欄位(Create_Date) 跟 Ad_Trace 沒有多大關係，但是加上日期限制之後，居然會引發 Ad_Trace 搜尋過久的現象
他好像是先依照訂單日期找出所有訂單，然後再從子查詢 Ad_Trace 裡面搜尋有無符合的條件訂單
而不是先跑子查詢找出 Ad_Trace 所有的 Order_Id，再去找符合 Create_Date 的訂單

SQL內部運作的機制真是有點讓人想不透，幸好有評估計畫可以看出問題在哪裡
這讓我想起以前學SQL時的一句話 => 盡量用Join來取代子查詢
使用子查詢真的是效能殺手啊

------繼續補充--------------------------------------

上面的SQL在雙11活動後，由於當日訂單過多，一樣造成SQL timeout 的現象，研判還是子查詢造成的問題

Select Id, (IsNull(Total, 0) - IsNull(CouponDiscount, 0) + IsNull(CouponAdd, 0)) as Total, Buyer_Email, EN_Packing_List_Status, EN_Order_Source, En_Stock_Status, Create_Date

From V_Order_main With(Nolock)

Where Id in (select Order_Id from Ad_Trace With(NoLock) where (Parameter_Id = 14720))

And Create_Date > '2014-11-10' And Create_Date < '2014-11-11'

--> 跑了51秒

所以先將子查詢拿出來跑出一串字串 865828,865890,865901,865903,865928,865955,865990,865993,866005,866035.....
(共1452筆)
再把他拼入sql跑   --> 7秒
 

Convert.ToInt32 vs Int32.Parse
這兩者的差別在於 Convert 物件可傳入的值型別比較多，也可以傳入 null (Nothing) => 0
Int32.Parse只接受 string, 遇到 null (Nothing) 會引發 exception
轉換效能上 Int32.Parse 較佳，但除非是很大量的運算，兩者之間差別微乎其微

若擔心傳入的字串不是數值 會引發錯誤
除了可以使用 try catch 包起來 也可以用 Int32.TryParse 來處理

若是遇到 DB 的資料要轉換 記得要判別是不是 DBNull

Dim intCount As Integer = If(Convert.IsDBNull(row("count")), 0, Convert.ToInt32(row("count")))

// C#

int intCount = Convert.IsDBNull(row("count")) ? 0 : Convert.ToInt32(row("count"));

 

之前作的 MaskQueen專案 以及現在 UNT的TR獨立專案
都牽涉到後台使用者及前台User看訂單時間錯誤問題
因為系統時間是TW的時間而操作者是外國的使用者 這就需要有個方便模組來轉換系統時間以及user的時間顯示

這部分我以 Extension Method 方式來處理
in VB

Imports System.Runtime.CompilerServices
Imports Microsoft.VisualBasic
 
Public Module DateTimeExtension
 
    ''' <summary>
    ''' 將系統時間轉為當地的時間並轉為字串
    ''' </summary>
    ''' <param name="dtSystem"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <Extension()> _
    Public Function ToCountryDateTimeString(ByVal dtSystem As DateTime) As String
 
        If dtSystem = DateTime.MinValue Then
            Return "n/a"
        End If
        Dim cstTime As DateTime = dtSystem.ToCountryDateTime()
        ' tr-TR -> dd.MM.yyyy HH:mm:ss
        Dim langCode As String = SHOPUNT.DB.SysConfig.GetSysConfig("DefaultLangCode")
        Dim culture As New System.Globalization.CultureInfo(langCode)
        If cstTime.AddMonths(6) < Now Then
            Return cstTime.ToString("dd.MM.yyyy HH:mm", culture)
        Else
            Return cstTime.ToString("dd.MMM HH:mm", culture)
        End If
 
    End Function
 
    ''' <summary>
    ''' 將系統時間轉為當地的時間
    ''' </summary>
    ''' <param name="dtSystem"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <Extension()> _
    Public Function ToCountryDateTime(ByVal dtSystem As DateTime) As DateTime
        Dim cstZone As TimeZoneInfo = TimeZoneInfo.FindSystemTimeZoneById(SHOPUNT.DB.SysConfig.GetSysConfig("DefaultTimeZone"))
        Dim localZone As TimeZoneInfo = TimeZoneInfo.Local
        Dim cstTime As DateTime = TimeZoneInfo.ConvertTime(dtSystem, localZone, cstZone)
        Return cstTime
    End Function
 
    ''' <summary>
    ''' 將使用者輸入的時間轉為系統時間
    ''' </summary>
    ''' <param name="dtCountry"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <Extension()> _
    Public Function ToSystemDateTime(ByVal dtCountry As DateTime) As DateTime
        Dim cstZone As TimeZoneInfo = TimeZoneInfo.FindSystemTimeZoneById(SHOPUNT.DB.SysConfig.GetSysConfig("DefaultTimeZone"))
        Dim localZone As TimeZoneInfo = TimeZoneInfo.Local
        Dim sysTime As DateTime = TimeZoneInfo.ConvertTime(dtCountry, cstZone, localZone)
        Return sysTime
    End Function
 
End Module

使用上 只要
DateTime.Now.ToCountryDateTime() 就可以把系統時間轉換成user時間
相反的也有把 user時間轉換成系統時間的功能 ToSystemDateTime()

英國的TimeZone: GMT Stanard Time
Turkey的TimeZone: Turkey Stanard Time
以上的值可以用 TimeZoneInfo.GetSystemTimeZones() 找出來

DataRow資料來源(資料庫)型別為string時,清空可以用""空字串處理,但如果資料型別為int時,
就無法使用空字串清除,這時可以使用DBNull.Value,參考以下程式碼

DDR("ExpirationDays") = DBNull.Value

P.S:此方法設定條件為資料庫型別為INT且為允許NULL的條件下可使用

popUp先前就已經有在使用了～
但是原本的功能只能輸入 Title 和 Message
並且版面上都很固定，例如有沒有確定按鈕、取消按鈕、是否要顯示Title的是固定的～
因此改出下列版本～
popUp: function (Title, Message, Width, Height, hasbtnclose, hasbtnOK, hasbtnCancel, fuclose, fuOK, fuCancel)

格式講解：
Title：不輸入或者輸入空字串，則不會顯示Title(p1)(p2)

Message：中間的文字
Width：可自行輸入，輸入0則表示使用預設值390，不建議自行調整會有瀏覽器版本問題。

Height：可自行輸入，輸入0則表示用預設，會自動拉開高度。
hasbtnclose：true / false

hasbtnOK：true / false

hasbtnCancel：true / false

fuclose, fuOK, fuCancel分別是指按鈕按下去之後要執行的onclick，切記，無法使用雙引號

文件參考位置
http://localhost:2874/WWW20/scripts/Merge/Common.js

darren 補充:
我改一下標題 讓大家比較清楚這篇文章的主旨
建議可以把 arguments 改成一般 options 物件寫法

// 例如

Common.popUp({

    Title: "....",

    Message: "......."

    .....

    onOKClick: function() {

        // handle onclick ok button event

    },

    onCancelClick: function() {

        // handle onclick cancel button event

    }

});

 


 

Question :  update sql 若有簡體字. 會出現? 
Sol :   '  '   在加字串第一個的 ' (單引號)  前 加上 N  (大寫)
資料庫型態須定義為 ntext 或是 nchar , nvarchar
若定義成一般習慣前面未加 'N' 使用 Big-5 
 

一直覺得 UW.Template 應該還有改善的空間，因為網站大量使用這個物件
只要有一些些效能調教，對於整體效能應該有很大的幫助

昨天發現切版的程式 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

康是美出貨印單犯下的錯誤,這邊寫給未來新進同仁注意,出貨印單時發生訂單明細品項箱數與總數量不相符的問題,
測試之後發現是記錄原始訂單上傳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而沒有下
該筆訂單編號,導致撈出來的資料是其他訂單的同品項資料,進而導致數量箱數不符合的狀況發生!!

SELECT cast(ProductID AS NVARCHAR ) + ',' from [Order Details]

where OrderID = '10248'

FOR XML PATH('')

參考: http://www.dotblogs.com.tw/kevinya/archive/2012/06/01/72553.aspx

EX:

SELECT ',' + ltpid

FROM V_ltp_main WHERE ltpkind = 2

FOR XML PATH('')

STUFF ( character_expression , start , length ,character_expression )
下列範例會傳回從第一個字串 (abcdef) 中，從位置 2 (b) 開始，刪除三個字元所建立的字元字串，且會在刪除點插入第二個字串。

SELECT STUFF('abcdef', 2, 3, 'ijklmn')

http://technet.microsoft.com/zh-tw/library/ms188043(v=sql.105).aspx

EX:

select STUFF(

(SELECT ',' + ltpid FROM V_ltp_main WHERE ltpkind = 2 FOR XML PATH(''))

, 1, 1, '')

 

今天遇到關鍵字搜尋後，要把搜尋結果文章內的關鍵字 highlight 起來
結果 string Replace 功能是 case-sensitive, 也就是大小寫有別

查了一下 發現可以用 RegExp.Replace 來處理

return Regex.Replace(strInput, keyword,

    "<span class='highlight'>$0</span>", RegexOptions.IgnoreCase);

其中 $0 就是原來要取代的文字