這是一篇加密文章，需輸入密碼才可閱讀

這是一篇加密文章，需輸入密碼才可閱讀

這是一篇加密文章，需輸入密碼才可閱讀

這是一篇加密文章，需輸入密碼才可閱讀

這是一篇加密文章，需輸入密碼才可閱讀

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

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

在 Application_BeginRequest 可以加入 BlockHacker

    void Application_BeginRequest(object sender, EventArgs e)

    {

        UW.WU.BlockHacker();

    }

可以做一些基本的防駭.

在 Sys_Coonfig 中有兩個參數要設定: WEB_ERROR_ExceptionCountBeforeBlock, WEB_ERROR_ExceptionCountingIntervalInMinutes

另外還有一個參數: WEB_ERROR_DangerousKeywords, 內容請用逗號分隔, 若是發生 Exception 時, Form 或 QueryString 中含有指定的文字, 收到的警告信會標示為高重要性.

*****2012/08/03************************************************
vb: a mod b
c#: a % b

*****2012/06/27************************************************
Server.UrlEncode("xxxx") => HttpUtility.UrlEncode("xxxxx");
Response.Write("XXX") =>  HttpContext.Current.Response.Write("XXX");
******************************************************************

型別轉換(int)XXXXXX，將XXXXX轉換為型別int

轉換Value 至 Enum
oRec.Status = (DB.ForumArticle.EN.Status)Enum.Parse(typeof(DB.ForumArticle.EN.Status), this.ddlENStatus.SelectedValue);

強制轉換型別至int
int Status = (int)DB.ForumArticle.EN.Status.Deleted;

vb

Public Shared Funciont AA() as string

　return xxxxx

End Function

C#

public static string aa()

{

　return xxxx

}

vb

Public Shared Sub AA()

......

End Sub

C#

public static void AA()

{

.....

}

vb

Try

　xxxxxx

Catch ex As Exception

　UW.WU.WriteErrorToLog(ex)

End Try

C#

try

{

　xxxxxx

}

catch (Exception ex)

{

　tran.Rollback();

}

Split

char[] delimiterChars = { ',' };

foreach (string tags in cbTags.Split(delimiterChars))

{



}

vb

select case AA

　case "AA"

　　xxx

　case "BB"

　　bbb

　case else

　　aaaa

end select

C#

switch (AA) {

　case "AA":

　　xxx();

　　break;

　case "BB":

　　bbb();

　　break;

　default:

　　aaaa();

　　break;

}

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

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


 

主要是使用 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