成生成文章后,总是一下写出生成第几页..怎么变成那种会动的效果.
比如:
for i=1 to n
Response.write "您正在生成第"&i&"页"
next

就是不让他一下全写出来,有一个有变动的状态

response.Buffer=false
放在代码第一行
如：
<%
response.Buffer=false
…………………………
…………………………
%>

老大，还是不行啊，一下全显示出来了，没有一个动的效果

数据量小的原因，如果取读的数据很多，需要一定时间的时候就显出来了，如果千分之一秒就能计算完毕就算动态显示肉眼也看不出来

代码如下:
我看不大懂:
'作用： 生成HTML页
'参数： VarType：0，前台使用；1，后台使用
' BuildType：0，只更新首页；1，更新首页和栏目页
Public Sub BuildHtml(VarType,BuildType)
Dim TmpXmlText
Dim Sql,Rs
Dim SiteUrl
SiteUrl=GetScriptNameUrl
'Response.Write SiteUrl

If Not ELOOK.IsObjInstalled("Scripting.FileSystemObject") Then
If VarType=1 Then
ErrCodes = ErrCodes & "<li>您的服务器不支持FileSystemObject组件！</li><br><li>无法使用生成HTML文件功能。</li><br>"
FoundErr=True
End if
Exit Sub
Else
If VarType=0 Then
If IsGetJsPage=1 Then
Response.Write "showDataStat.innerHTML='<br>正在更新文章数据,请稍等...';"
Else
Dim ScriptName
ScriptName=Request.ServerVariables("Script_Name")
If Request.ServerVariables("QUERY_STRING")<>"" Then
Session("ComeUrl")=ScriptName&"?"&Request.ServerVariables("QUERY_STRING")
Else
Session("ComeUrl")=ScriptName
End If
If Instr(Lcase(Session("ComeUrl")),"index.asp") Then Session("ComeUrl")="./"
Response.Write "<META http-equiv=Content-Type content=text/html; charset=gb2312>"
Response.Write "<br>正在更新文章数据,请稍等..."
End if
Response.Flush
End If
Execute("Update [Elook_Setup] Set IsBingHtml=1")
'Name="Setup"
'ReloadSetup() '不能用Call DelAllCache()
DelAllCache()

'Response.WRite CheckFile(RootAspFile) & RootAspFileFolder & RootAspFile
If Not CheckFile(RootAspFile) Then
'从变量RootAspFileFolder值的目录移走多余的ASP文件到根目录
MoveFileTo RootAspFileFolder & RootAspFile,RootAspFile
End if
'生成首页
TmpXmlText=GetHttpPage(SiteUrl&"index.asp","1")
If TmpXmlText="{$GetHttpPage}" Then '文章数据更新不成功
Execute("Update [Elook_Setup] Set IsBingHtml=0")
Call DelAllCache()
If VarType=0 Then Call RedirectOldUrl()
Else
Call SaveToFile(TmpXmlText,IndexHtmlFile)
End if
If VarType=1 Then ShowFlush("正在生成首页文件：" & IndexHtmlFile)
If BuildType=1 Then
TmpXmlText=""
'生成栏目页
Sql="Select ClassID From [Elook_Class]"
Set Rs=Execute(Sql)
Do While Not Rs.Eof
TmpXmlText=GetHttpPage(SiteUrl&"class.asp?classid="&Rs(0)&"&IsBulidHtml=1","1")
If TmpXmlText=False Then
Exit Sub
Else
Call SaveToFile(TmpXmlText,"class" & Rs(0) & Sys_Setting(39))
End if
If VarType=1 Then ShowFlush("正在生成栏目页文件：class" & Rs(0) & Sys_Setting(39))
Rs.MoveNext
Loop
Set Rs=Nothing
End If

'从根目录移走多余的ASP文件到变量RootAspFileFolder值的目录
If CheckDir2(RootAspFileFolder) Then
MoveFileTo RootAspFile,RootAspFileFolder & RootAspFile
Else
MakeNewsDir2(RootAspFileFolder)
MoveFileTo RootAspFile,RootAspFileFolder & RootAspFile
End if
Execute("Update [Elook_Setup] Set IsBingHtml=0")
Call DelAllCache()
If VarType=1 Then
Response.Write "<br>"
ShowFlush("<b>恭喜你！所有HTML文件生成完毕。</b>")
ElseIf VarType=0 Then
Call RedirectOldUrl()
End If
End If
End Sub
他每生成一页有一个动态的效果

[此贴子已经被作者于2005-12-29 2:13:07编辑过]

ShowFlush:
Public Sub ShowFlush(StrShow)
Dim TableBeg,TableEnd
TableBeg="<table width=""98%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""0"" class=""tableBorder""><tr class=""tdbg""><td>"
TableEnd="</td></tr></table>"
Response.Write TableBeg
Response.Write StrShow
Response.Write TableEnd
Response.Flush
End Sub

显示效果是这样子的,显示第一行完以后,在显示第2行...然后一直到完为止,不是一下全写出来
感觉比较好看

类似于这种效果对不？

一行一行的显示是因为每显示一行要执行很多查询，进行很多计算，也就是每显示一行要等一段时间才能显示下一行的数据，这是运算的步骤多决定的，而不是故意弄这种效果好看的。如果整个运算只用千分之一秒就算一行一行的显示也看不出那种效果来。

谢谢静老大，我刚才弄了生成300页的，才看得出来。