set cnn=server.createobject("adodb.connection") 
waittime="waitfor delay ''''00:00:01''''" '''' 
在sql服务器端延时1秒,这是关键 
sql2="select * from database" 
begintime=now() 
quittime=0 
　''''查询数据库5秒，每1秒查一次 
do while quittime<5 
''''延时处理 
cnn.Execute waittime 
''''调用存储过程查询 
set rs=cnn.execute(sql2) 
quittime=datediff("s",begintime,now()) 
loop