Chinaunix首页 | 论坛 | 博客
  • 博客访问: 831863
  • 博文数量: 117
  • 博客积分: 2595
  • 博客等级: 少校
  • 技术积分: 1204
  • 用 户 组: 普通用户
  • 注册时间: 2009-09-18 18:16
文章分类

全部博文(117)

文章存档

2013年(1)

2012年(2)

2011年(18)

2010年(95)

2009年(1)

分类: 系统运维

2010-12-27 21:06:03

发了一帖
VBScript code
public function delay(s) SecCount = 0 Sec2 = 0 While SecCount < s + 1 Sec1 = Second(Time()) If Sec1 <> Sec2 Then Sec2 = Second(Time()) SecCount = SecCount + 1 End If Wend End Function

想这种,,太费CPU了...
sleep永远是一个难题!! 我想除了写个asp的dll才能实现么?
发现一个有用的连接

里面说 SQLServer 可以这样Play:
VBScript code
<% Set conn = CreateObject("ADODB.Connection") conn.Open "" ' indicate a number of seconds, up to 59 sleep = 10 ' make sure timeout doesn't expire! conn.commandTimeout = sleep + 5 ' if you neede more than 59 seconds, you will need to adjust the SQL: sql = "WAITFOR DELAY '00:00:" & right(clng(sleep),2) & "'" Response.Write(now & "

") conn.Execute sql,,129 Response.Write(now & "

") conn.close: Set conn = Nothing %>



阅读(1652) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~