function getOffset(e) {
        /*e: Mousemove Event*/
        if (e.target.offsetLeft == undefined) {
            /*firefox only*/
            e.target = target.parentNode;
        }
        var tarPos = getTarPos(e.target);
        var tarMousePos = { x: window.pageXOffset + e.clientX, y: window.pageYOffset + e.clientY     };
        var offset = { offsetX: tarMousePos.x - tarPos.x, offsetY: tarMousePos.y - tarPos.y };
        return offset;
    }
    function getTarPos(el) {
        var page = { x: 0, y: 0 };
        while (el) {
            page.x += el.offsetLeft;
            page.y += el.offsetTop;
            el = el.offsetParent;
        }
        return page;
    }

netsh interface tcp show global

netsh interface tcp set global autotuning=disabled

netsh interface tcp set global autotuningl=normal

<script type="text/javascript" src="/scripts/jquery.ae.image.resize.min.js"></script>

<script type="text/javascript">

   $(document).ready(function () {

      $("div._content img").aeImageResize({ width: 250 });

   });

</script>

 

<script type="text/javascript">

  $(document).ready(function () {

    $(".resizeme").aeImageResize({ width: 450 });

  });

</script>

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

http://nani.uwinfo.com.tw/?p=197

http://ssorc.tw/rewrite.php/read-631.html

安裝 GeoIP:

安裝 Perl 模組
在 cmd 下, 輸入 "ppm install Geo-IP-PurePerl"

下載 Data:

1. Install Perl module.  Open your Perl Package Manager which is stand for ppm.bat in bin folder.
2. Install Geo-IP-PurePerl and Geo-IPfree module.
3. Download the GeoIP data from, http://www.maxmind.com/download/geoip/database/. (要 dat 的格式, 不要 csv 的)
4. Extract the data and place it to C:\Perl\lib\Geo\IP folder.
5. Open the awstats.base.conf(C:\awstats\wwwroot\cgi-bin) and paste the following command.

LoadPlugin="geoip GEOIP_STANDARD C:\Perl\lib\Geo\IP\GeoIP.dat"


6. You have done and you will see the result in next update.

cmd

cd C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322

Aspnet_regiis.exe -u

Aspnet_regiis.exe -i

regsvr32 C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll

cmd

cd C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727

Aspnet_regiis.exe -u

Aspnet_regiis.exe -i

cmd
cd C:\Windows\System32\inetsrv

※備份 backup.bat
*備份應用程式集區
appcmd list apppool HCI /config /xml >D:\IISSetting\appHCI.xml
*備份Site
appcmd list site HCI /config /xml >D:\IISSetting\HCI.xml

※還原 restore.bat
*備份應用程式集區
appcmd add apppool /name:HCI /in <D:\IISSetting\appHCI.xml
*備份site
appcmd add site /name:HCI /in <D:\IISSetting\HCI.xml

註1.HCI=>site name
註2.打開site的xml, 調整Id的值(不可與還原主機的IIS上已有ID重複)