set cnn=server.createobject("adodb.connection")
waittime="waitfor delay ''''00:00:01''''" ''''
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