最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
PAUSE,PAUSE,PAUSE Function for ASP~~~
时间:2022-07-02 23:57:53 编辑:袖梨 来源:一聚教程网
'**************************************
' 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."
' 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."
相关文章
- 崩铁3.4抽谁-崩铁3.4抽卡建议 07-07
- ETH 突破关键阻力位: FOMO 情绪升温,分析师或短期开始看好 07-07
- 突发新闻:Toncoin与阿联酋合作推出黄金签证,推动TON价格上涨10% 07-07
- 崩铁若虫奖励怎么拿-崩铁若虫全收集 07-07
- 蚂蚁庄园7月7日今日答案2025 07-07
- 神奇海洋7月6日今日答案2025 07-07