PAUSE,PAUSE,PAUSE Function for ASP~~~

领测软件测试网     ‘’**************************************
    ‘’ Name: ASP Pause
    ‘’ Description:To pause ASP operations in
    ‘’     a page for certain amount of time.
    For example: waiting for XML posts to other webpages to deliver a correct result.
    ‘’ By: Matthew Franz
    ‘’
    ‘’ Inputs:Amount of time to pause
    ‘’
    ‘’ Side Effects:This code will change the
    ‘’     Session.Timeout feature to ensure that y
    ‘’     ou are allowing enough time for the paus
    ‘’     e.
    ‘’
    ‘’This code is copyrighted and has    ‘’ limited warranties.Please see http://w
    ‘’     ww.Pl.net-Source-Code.com/xq/ASP/txtCode
    ‘’     Id.8232/lngWId.4/qx/vb/scripts/ShowCode.
    ‘’     htm    ‘’for details.    ‘’**************************************
    
    Function Pause (Amount)
    ‘’Check for Pause Amount exceeding defaul
    ‘’     t ASP timeouts, Reset the Session.Timeou
    ‘’     t
            If Amount > 300 Then Session.Timeout = Amount
        Start = Timer
            Do Until Start + Amount = Timer
            Loop
        Pause = Amount
    End Function
    ‘’Page Begins Here
    AmountPausedFor = Pause (5)
    Response.Write "We paused for " & AmountPausedFor & " seconds."

文章来源于领测软件测试网 https://www.ltesting.net/