UWInfo Blog

搜尋

搜尋意見

文章分類-#Author#

[所有文章分類]

提供者選項中 'compilerVersion' 屬性的值必須是 'v4.0' 以上 (如果要針對 4.0 版以後的 .NET Framework 編譯)。若要針對 3.5 (含) 以後版本的 .NET Framework 編譯這個 Web 應用程式，請從 Web.config 檔案的 <compilation> 項目移除 'targetFramework' 屬性。

<system.codedom>

    <compilers>

     <compiler language="c#;cs;csharp" extension=".cs" type="Microsoft.CSharp.CSharpCodeProvider,System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" warningLevel="4">

        <providerOption name="CompilerVersion" value="v4.0"/>

        <providerOption name="WarnAsError" value="false"/>

     </compiler>

     <compiler language="vb;vbs;visualbasic;vbscript" extension=".vb" type="Microsoft.VisualBasic.VBCodeProvider, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" warningLevel="4">

        <providerOption name="CompilerVersion" value="v4.0"/>

        <providerOption name="OptionInfer" value="true"/>

        <providerOption name="WarnAsError" value="false"/>

     </compiler>

    </compilers>

</system.codedom>

相關專案: 光寶

More...

Reiko, 2013/5/10 上午 10:14:22

MailMessage, SmtpClient 要 Dispose

今天發現當 System.Net.Mail.MailMessage 有附件時，SendMail 後附檔會被Lock住
原來使用完之後要釋放資源，不然要等一段時間才會被系統釋放

另外 .Net 4.0 的 SmtpClient 物件也要 Dispose()
他的做法也類似 SqlCoonection 有 pooling 的機制
因此用完也必須要 Dispose()

UW.Mail 我有調整過了要SVN更新一下再build

More...

darren, 2013/1/27 上午 03:11:35

.net 4.0 UW.WU.URL (get_URL)調整

我今天將這個物件做了調整主要是針對
ssl (https) 判斷以及 Url-Rewrite 狀況做處理
而之前孟哲有調整加入port number的狀況

理論上目前運作的程式應該是不會有影響，
但如果舊NET 4.0專案更新dll有狀況，也許跟這個更新有關
這個大家注意一下

More...

darren, 2012/10/11 上午 09:57:25

XmlWriter 之 UTF-16 問題

當我們使用 XmlWriter 配合 StringBuilder 建立xml文件時，會產生結果是 UTF-16 的 xml 文件
即使 XmlWriter 有配合 XmlWriterSetting 設定為 UTF-8 但結果還是 UTF-16
我網路上找了一下解決方式整理出以下是比較好的解決方式請參考程式碼
最終還是要靠 StreamReader 轉一次



        Encoding enc = Encoding.UTF8;
        XmlWriterSettings xws = new XmlWriterSettings();
        xws.Encoding = enc;
        xws.Indent = true;
        MemoryStream ms = new MemoryStream();
        string strXml = "";
        using (XmlWriter writer = XmlWriter.Create(ms, xws))
        {
 
            writer.WriteStartDocument();
            writer.WriteStartElement("rss");
            writer.WriteAttributeString("version", "2.0");
 
            writer.WriteStartElement("channel");
 
            // channel data
            writer.WriteElementString("title", "最新文章");
            ...(XML 資料)......
 
            writer.WriteEndElement(); // channel end
 
            writer.WriteEndElement(); //rss end
            writer.WriteEndDocument();
 
            writer.Flush();
            
            StreamReader reader = new StreamReader(ms, enc, true);
            ms.Seek(0, SeekOrigin.Begin);
            strXml = reader.ReadToEnd();
        }

More...

darren, 2012/8/9 下午 12:56:25

網站在大流量時卡住 -- maxConcurrentRequestsPerCPU 和 requestQueueLimit

	突然發現網站在大流量卡住時，看 CPU 和記憶體都沒有什麼問題時，可能是以下的原因。

	在 C:\Windows\Microsoft.NET\Framework64\v2.0.50727\Aspnet.config 之下, 可以設定

	<system.web>

	   <applicationPool maxConcurrentRequestsPerCPU="12" maxConcurrentThreadsPerCPU="0" requestQueueLimit="5000"/>

	</system.web>

	另外，在 registry 中，可以設定 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\ASP.NET\2.0.50727.0\MaxConcurrentRequestsPerCPU

	參考:

	http://blogs.msdn.com/b/tmarq/archive/2007/07/21/asp-net-thread-usage-on-iis-7-0-and-6-0.aspx

More...

Bike, 2012/7/30 上午 09:04:47

把 Hashtable 的 Keys 轉為 String Array

有點笨的問題, 但每次遇到都忘了要怎麼定義字串陣列 :P 在這裡記錄一下.. 以下的 HT 是一個 Hashtable

Dim arrKeys(HT.Count - 1) As String

HT.Keys.CopyTo(arrKeys, 0)

More...

Bike, 2012/6/6 下午 03:58:21

VB 轉 C# 問題整理

之前將部分UW網站VB程式碼轉到C#，
我是用此工具轉
http://www.developerfusion.com/tools/convert/vb-to-csharp/
轉換後，放到visual studio還是有很多毛毛蟲
整理一些問題, 希望能減少轉換上的困難

1. Imports --> using (using 只能用namespace)

System.Web.HttpContext 是不能放在using, 因為他是類別, 不是 namspace

所以 Current.Session 要調整成 HttpContext.Current.Session

2. index或是key, value類的東西要用中括號 []

VB:Session("name") --> C#:Session["name"]

Cache(""), Application(""), DataRow("") 也是一樣

3. 所有方法都要加上 ()

例如 ToString --> ToString()

例如 ToLower --> ToLower()

4. 不能隱含式的型別轉換, 要明確

轉換型態可以有以下方法

- 轉字串時, 直接後面加上 .ToString()

- Convert 物件轉換

- 變數名稱前面加上(Type), 例如 (HashTable)Session["htData"]

- 以 as 方式轉換, 若要轉換的物件可能是null建議用此方法, 例如

System.Net.HttpWebRequest http = System.Net.WebRequest.Create(Url) as System.Net.HttpWebRequest;

string strData = HttpContext.Current.Cache["CacheName"] as string;

用 as 方法不會強制轉換, 用 (Type) 或 ToString() 一旦遇到 null 會發生Exception

5. 帶參數的 Property C#是不允許的, .Net 會自動產生 get_ function 取代

VB: UW.WU.URL --> C#: UW.WU.get_URL();

6. partial 要放在 public 後面

7. aspx頁面C#的檔頭要設定AutoEventWireup="true"
另外所有的 server control 的 On Event 所執行的function name (例如 Button 的 OnClick) 都要在 aspx 裡面設定
(這部分會在後台程式發生，因為轉換後常忘了加)

<asp:DropDownList ID="ddlName" runat="server" AutoPostBack="true"

OnSelectedIndexChanged="ddlName_SelectedIndexChanged"></asp:DropDownList>

<asp:Button ID="btnAdd" runat="server" Text="新增" OnClick="btnAdd_Click" />

8. 因為字串相加也是 +, 一些特殊寫法要注意

VB: (Url & "Page=" & EndPage + 1) --> VB會先將整數加好後再字串相加

c#: (Url + "Page=" + (EndPage + 1)) --> 由於C#會先將1轉為字串再把所有字串相加 , 所以要先用括號包起來先讓整數相加

9. vbCrLf -> "\r\n"
vbTab -> "\t"

10. VB function 轉換
Conversion.Fix -> Math.Floor
Strings.Format(x, "###0.0") -> 用 x.ToString("N1");

11. EN 處理要多加注意，需額外加 (int) 才會顯示數值，很多 sql 指令這樣拼要小心
" where EN_產品性質 = " + SHOPUNT.EN.產品性質.非成品 ; -> where EN_產品性質 = 非成品 (會出錯)
" where EN_產品性質 = " + (int)SHOPUNT.EN.產品性質.非成品; -> where EN_產品性質 = 100

先整理這些以後遇到再加上

More...

darren, 2012/5/17 上午 10:50:34

不要再用 IIf 函式，請改用 If

VB 不知何時多了一個 if 函式, 可以用來取代 iif.

使用 iif 時, true part 和 false part 都會執行.

改用 if 就不會有這個問題, 比較像 AndAlso 和 OrElse 的行為. 有短路（short circuit）的特性. 會依據判斷式的結果只執行部份的結果.

IIf(X IsNot Nothing, X.qty, 0) --> 會有 Error



If(X IsNot Nothing, X.qty, 0) --> OK

2012/6/3 補述:
發現一個問題, 在 VS2010 中, If(X IsNot Nothing, X.qty, 0) 會造成 Compile 錯誤, 但網站是可以正常執行的..

這是 VS2010 的 Bug 嗎 ?

More...

Bike, 2012/5/16 上午 09:42:57

在列印前把列印的內容使用圖檔存備份

主要是使用 Printing.PreviewPrintController 的產生預覽圖片的功能來儲存列印內容, 再把圖片送到印表機, 以保証列印內容和儲存的圖檔是一致的. 值得一提的是, 在預覽時可以使用不同的印表機, 以便讓產生較小的圖檔, 否則有時會發生 GDI+ 的錯誤.

Sample 如下:

Imports System.Drawing.Printing

Namespace X
Partial Public Class PrintSomething
Dim PD As PrintDocument

Dim ppc As New Printing.PreviewPrintController()

Dim TotalPage As Int32 = 0

        ''' <summary>
        ''' 第幾次列印, 用來控制寫出的圖檔
        ''' </summary>
        ''' <remarks></remarks>
        Dim PrintCount As Int32 = 1

Dim PageCount As Int32 = 1

            :
            :
            :

        Sub New(ByVal oPM As DB.PackingListMain, ByVal dtDetail As DataTable, dtUsedCoupon As DataTable)
            '初始化資料
            :
            :
            :
        End Sub

Sub InitPrintDocument()
'在這裡設定 PrintDocument 的紙張, 印表機, 邊界, 橫印或直印

PD = New PrintDocument

            :
            :
            :

End Sub

Sub print()
InitPrintDocument()

PD.PrintController = ppc

            ' 第一次先把列印結果存在 Printing.PreviewPrintController 中
            AddHandler PD.PrintPage, AddressOf GeneratePreview

'再來儲存圖片
AddHandler PD.EndPrint, AddressOf SaveImage

PD.Print()
End Sub

Dim ppi() As Printing.PreviewPageInfo
Dim PrintPage As Int32 = 0

Sub SaveImage(ByVal sender As Object, ByVal ev As PrintEventArgs)

PrintDebug("Save Image Start, " & Now.ToString("yyyy-MM-dd HH:mm:ss.fff"))

            '把圖檔存起來
            Dim TF As String = Now.ToString("yyyyMMddHHmmss") ' DB.SysConfig.Path.LocalDataRoot
            Dim PathLocal As String = "C:\PrintLog\" & TF.Substring(0, 4) & "-" & TF.Substring(4, 2) & "\"
            Dim PathPackingListSheetImage As String = DB.SysConfig.PackingListSheetImage & TF.Substring(0, 4) & "-" & TF.Substring(4, 2) & "\"

System.IO.Directory.CreateDirectory(PathLocal)
System.IO.Directory.CreateDirectory(PathPackingListSheetImage)

Dim LatestImages As String = ""
ppi = ppc.GetPreviewPageInfo()

For x As Integer = 0 To ppi.Length - 1
Dim Filename As String = TF & "_" & Me.oPM.Id & "_" & x & ".png"

ppi(x).Image.Save(PathLocal & Filename, System.Drawing.Imaging.ImageFormat.Png)
Next

            '把圖檔印出來
            For x As Integer = 0 To ppi.Length - 1
  '建立新的 PrintDocument
                InitPrintDocument()

                If CST.WebConfig.Server_NAME = "測試主機" Then
                    UW.WU.DebugWriteLine("PrinterName: " & Me.PD.PrinterSettings.PrinterName)
                    UW.WU.DebugWriteLine("PaperSize: " & PD.DefaultPageSettings.PaperSize.PaperName)

                    PD.DocumentName = "PackingList"
                    PD.PrinterSettings.PrintFileName = "C:\PDF\PackingList" & Now.ToString("yyyyMMddHHmmss") & "_" & PrintPage & ".prn"
                    PD.PrinterSettings.PrintToFile = True

'PD.PrinterSettings.
End If

                '很奇怪, 這裡不會分頁, 所以要一張一張印
                AddHandler PD.PrintPage, AddressOf pd_PrintPage2
                PD.Print()

PrintPage += 1

Next
End Sub

        Private Sub pd_PrintPage2(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
            '很奇怪, 這裡不會分頁, 所以要一張一張印
            ev.Graphics.DrawImage(ppi(PrintPage).Image, 0, 0)
            ev.HasMorePages = False
        End Sub

        Private Sub GeneratePreview(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
            ' 列印內容
        End Sub

End Class
End Class

End Namespace

More...

Bike, 2012/5/3 下午 04:00:38

Select with XLock

在 Select 指令後, 依據結果做一些工作, 即使有 Transaction, 但還是有可能發生一致性的問題:

Ex:



        Dim Conn As SqlConnection = UW.SQL.GetOpenedConnection

        Dim Tran As SqlTransaction = Conn.BeginTransaction

        Try

            Dim C As Int32 = UW.SQL.GetSingleValue("Select Counter From TableA Where Id = 1", Tran)

            C = C + 1

            UW.SQL.executeSQL("Update TableA Set Counter = " & C & " Where  Id = 1", Tran)

            Tran.Commit()

        Catch ex As Exception

            Tran.Rollback()

            UW.WU.DebugWriteLine(ex.ToString, True, True)

        Finally

            If Conn.State <> ConnectionState.Closed Then

                Conn.Close()

            End If

        End Try

以上的程式由兩個 Session 同時執行時, 並不能保証 Counter 會被加 2

若是要保証兩個 Session 都會把 Counter 加一(總共加 2), 要把以下這一行



Dim C As Int32 = UW.SQL.GetSingleValue("Select Counter From TableA Where Id = 1", Tran)

改為



Dim C As Int32 = UW.SQL.GetSingleValue("Select Counter From TableA With(XLock) Where Id = 1", Tran)

More...

Bike, 2012/5/3 下午 03:02:16