void Application_BeginRequest(object sender, EventArgs e)

    {

        UW.WU.BlockHacker();

    }

SELECT TOP 100 execution_count, total_worker_time, last_worker_time, max_worker_time, min_worker_time, CONVERT(INT, att.value) AS dbid, DB_NAME(CONVERT(INT, att.value)) as dbname ,SUBSTRING(st.text, (qs.statement_start_offset/2) + 1,((CASE statement_end_offset WHEN -1 THEN DATALENGTH(st.text)ELSE qs.statement_end_offset END - qs.statement_start_offset)/2) + 1) as statement_text

FROM sys.dm_exec_query_stats as qs 

CROSS APPLY sys.dm_exec_sql_text(qs.sql_handle) as st

CROSS APPLY sys.dm_exec_plan_attributes(qs.plan_handle) att

WHERE att.attribute='dbid' and DB_NAME(CONVERT(INT, att.value)) = 'P9'

ORDER BY execution_count DESC 

SELECT TOP 10 execution_count, total_worker_time, last_worker_time, max_worker_time, min_worker_time, SUBSTRING(st.text, (qs.statement_start_offset/2) + 1,((CASE statement_end_offset WHEN -1 THEN DATALENGTH(st.text)ELSE qs.statement_end_offset END - qs.statement_start_offset)/2) + 1) as statement_text

FROM sys.dm_exec_query_stats as qs CROSS APPLY sys.dm_exec_sql_text(qs.sql_handle) as st

WHERE statement_start_offset = 0

ORDER BY execution_count DESC  

SELECT TOP 10 total_worker_time, last_worker_time, max_worker_time, min_worker_time, SUBSTRING(st.text, (qs.statement_start_offset/2) + 1,((CASE statement_end_offset WHEN -1 THEN DATALENGTH(st.text)ELSE qs.statement_end_offset END - qs.statement_start_offset)/2) + 1) as statement_text

FROM sys.dm_exec_query_stats as qs CROSS APPLY sys.dm_exec_sql_text(qs.sql_handle) as st

ORDER BY max_worker_time DESC 

Dim arrKeys(HT.Count - 1) As String

HT.Keys.CopyTo(arrKeys, 0)

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

        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

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)

A potentially dangerous Request.Form value was detected from the client (ContentBody_txtContent="<style type="text/cs...").

.aspx新增了<%@ Page validateRequest="false"%>

最後找到還需要在web.config裡面新增<httpRuntime requestValidationMode="2.0" />

相關專案: SINGTEX