#眉標=SQL Server 2008、VSTT、VB.NET
#副標=實用SQL Server 2008（4）
#大標=利用VS 2008 Team Test做負載測試（下）
#作者=文／圖		胡百敬



===<反灰>=============
ping <Server> -t
==<end>==============





===<反灰>=============
程式1

Public Class WebBasePage
  Inherits System.Web.UI.Page
…
Protected Overrides Function LoadPageStateFromPersistenceMedium() As Object
    If Me.ViewStateToSession Then
        '從 Session 讀取 ViewState
        Dim strViewstateKey As String = Request.Form("__VIEWSTATE_KEY")
        Return Session(strViewstateKey)
    Else
        '從原來讀取 ViewState 的方式取得 ViewState
        Return MyBase.LoadPageStateFromPersistenceMedium
    End If
End Function
    
Protected Overrides Sub SavePageStateToPersistenceMedium(ByVal state As Object)
    If Me.ViewStateToSession Then
        Dim strViewstateKey As String = Request.Form("__VIEWSTATE_KEY")
        If strViewstateKey = "" Then
            strViewstateKey = "VIEWSTATE_" + Request.Path.Replace("/", "_") + "_" + DateTime.Now.Ticks.ToString()
        End If
        ClientScript.RegisterHiddenField("__VIEWSTATE_KEY", strViewstateKey)
        '把 ViewState 放到 Session
        Session(strViewstateKey) = state
        Else
            '把 ViewState 放在原存放位置
            MyBase.SavePageStateToPersistenceMedium(state)
    End If
End Sub
==<end>==============





===<反灰>=============
cscript.exe adsutil.vbs set W3svc/Filters/Compression/GZIP/HcScriptFileExtensions "asp" "exe" "dll" "aspx"
及
cscript.exe adsutil.vbs set W3svc/Filters/Compression/DEFLATE/HcScriptFileExtensions "asp" "exe" "dll" "aspx"
==<end>==============