Server Stress Test for IIS :)

Sunucu nasıl patlatılır ve nereye kadar dayanabilir gibi sorularıma cevap verebilmek için hazırladığım bu asp script’ini paylaşmak konusunda tereddütüm var işte katil asp :)

   
   Function Baglanti(Seconds)
      Dim StartTime 
      Dim PauseTime 

      Baglanti = True
      StartTime = Now

      Do While DateDiff("s", StartTime, Now) < Seconds
         PauseTime = Now
         Do While DateDiff("s", PauseTime, Now) < 1
            'ahoy ahoy..
         Loop

         If Response.IsClientConnected = False then
            Baglanti = False
            Exit Function
         End If

      Loop
   End Function


   If Baglanti(25) then
   	Response.Write "Patladı..."
   End If