Question

asp批量生成HTML问题，在线等

<!--#include file="../conn.asp"-->
<meta http-equiv="Refresh" />
<%sql = "SELECT * FROM products order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,conn,1,3
i=0
do while not rs.eof
i=rs("id")

%>
<% rs.movenext
url = "http://localhost/productsread.asp?id="&i&""
set http=Server.createobject("Msxml2.XMLHTTP")
Http.open "GET",url,false
Http.send()
set objStream = Server.CreateObject("ADODB.Stream")
objStream.type = 1
objStream.open
objstream.write http.responseBody
objstream.saveToFile server.mappath("../product/"&i&".htm"),2
objstream.close
response.write "...<font color=red>newsread"&trim(i)&".asp更新完成！</font><br>"
loop
rs.close
set rs=nothing
Response.Write " 操作成功！"%>
====================================
此代码只是，整体生成，如数据大，需要等很长时间
我要实现的是，没生成一条内容，就出项提示这条更新完成！
当一起完成，再显示更新完成。
1楼的好像还没明白我的意思
我要的是这样：
正在生成10 ....10生成成功
正在生成9 ....9生成成功
正在生成8 ....8生成成功
正在生成7 ....7生成成功
.....
.....
一起生成完成！

Answer 1

很好办,在这行:
response.write "...<font color=red>newsread"&trim(i)&".asp更新完成！</font><br>"

下面多加一行:

response.flush()'意思是将内容从缓冲区冲出来

如果报错的话,在conn.asp里加一行response.buffer=true

意思是开启缓冲区

Answer 2

i=0
do while not rs.eof
i=rs("id")

控制这里的i 就可以了。 这里的功能是 逐条读写
你可以定义
id= myquestid.text.tostring;(添加一个ID数据输入框逐条控制 。)
i= request("id")

Answer 3

呵，这个功能很实用哟。留个记号，最近正学呢。