PAUSE,PAUSE,PAUSE Function for ASP~~~

80酷酷网    80kuku.com

      '**************************************
    ' 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.Planet-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."

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: