asp程序暂停3秒
while not rs.eof
i=i+1
Content=Content_temp
if (i mod 20) =0 then
response.Write("<script>n.innerText='已生成1000篇 暂停 3 秒';</script>")
nowtime=now()
while (DateDiff("s",nowtime,Now())<3)
wend
response.Write("<script>n.innerText='';</script>")
end if
ArticleID=rs("ArticleID")
Title=rs("Title")
Content1=rs("Content")
author=rs("author")
if Author="" then Author="佚名"
fromsite=rs("fromsite")
riqi=rs("riqi")
Content=replace(Content,"{Title}",title)
Content=replace(Content,"{ArticleID}",ArticleID)
Content=replace(Content,"{Content}",Content1)
Content=replace(Content,"{Author}",Author)
Content=replace(Content,"{FromSite}",FromSite)
Content=replace(Content,"{Riqi}",Riqi)
Call SavePage(i,folder,ClassID,Content,ArticleID)
response.Write("<script>k.innerText='"&i&"';T1.width='"&int((i/Records)*100)&"%';</script>"&vbcrlf)
response.Flush()
rs.movenext
wend
------------------------------------------------------------
为什么我的程序暂停不了啊
参考答案:while (DateDiff("s",nowtime,Now())<3)
S不要""号吧