 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
一、 <% Response.Buffer = True %> <% \\\' Setup the variables necessary to accomplish the task Dim TimerStart, TimerEnd, TimerNow, TimerWait \\\' How many seconds do you want them to wait... TimerWait = 5 \\\' Setup and start the timers TimerNow = Timer TimerStart = TimerNow TimerEnd = TimerStart + TimerWait \\\' Keep it in a loop for the desired length of time Do While (TimerNow < TimerEnd) \\\' Determine the current and elapsed time TimerNow = Timer If (TimerNow < TimerStart) Then TimerNow = TimerNow + 86400 End If Loop \\\' Okay times up, lets git em outa here Response.Redirect "nextpage.html" %> 二、 <% Sub TimeDelaySeconds(DelaySeconds) SecCount = 0 Sec2 = 0 While SecCount < DelaySeconds + 1 Sec1 = Second(Time()) If Sec1 <> Sec2 Then Sec2 = Second(Time()) SecCount = SecCount + 1 End If Wend End Sub %> \\\' To change delay adjust here <% TimeDelaySeconds(2) %> 返回类别: 教程 上一教程: ASP与存储过程 下一教程: 一个新版本的UBB转化程序 您可以阅读与"页面延迟的两个简朴方式"相关的教程: · ASP的两个简朴的检测外部提交函数 · 关于如何动态地在同一页面实现两个SELECT互传 · 实现网页密码验证的两个基本方式 · 命令行方法读取WEB页面 · ASP用于分页的两个函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
