Question

关于ASP程序生成HTML超时的问题

我采用了参数传递法生成HTML 如果文章数目太多了就会超时 现在想到了一个好的方法就是生成数据的时候每生成一条就刷新一次进入到下一条数据的生成
却不知道如何实现刷新进入下一条数据生成的功能 所以请大家帮我完善一下 感谢

程序源文件: http://yhsewinga.w23.xxv.cn/down/qcdn.rar

QQ:252342603 或者加我帮助我啊 感谢了 如果问题解决了 可以再加30分. 呵呵~~

主要是这个文件

Admin_htmlnews0.asp

----------------------------------------

Answer 1

<%'on error resume next
ID=trim(request("id"))
cid=trim(request("cid"))
Dim cnt:cnt = 1 '本轮循环计数器初始化
start = request("start") '获取本轮指针的开始位置
If IsNumeric(start) Then start = CLng(start) Else start=1
If start=0 Then start = 1 '如果start
Set rs=Server.CreateObject("ADODB.Recordset")
totalrec=Conn.Execute( "select count(*) from article_info where classid="&id&" and Nclassid="&cid&" and Audit = 0")(0)
sql="Select * from article_info where classid="&id&" and Nclassid="&cid&" and Audit = 0"

rs.open sql,conn,1,1
rs.AbsolutePosition = start '最关键的一步,将指针指向start，start通过参数动态获得
'Response.Write( ""&contentp&"" )
If rs.eof Then
Class_Num=0
Else
Class_Num=1
do while not rs.eof And cnt<= 1
contentp=rs("content")

call htmll(""&filename&"","",""&listName&""&Separated&""&RS("UNID")&"."&HTMLName&"","list.asp?unid="&RS("UNID")&"",ArrName,ArrContent)

Response.Write "<script>bar_img.width="&Fix((start/totalrec)*300)&";"
Response.Write "bar_txt1.innerHTML=""成功生成分类HTML静态页面。完成比例：" & formatnumber(start/totalrec*100) & """;</script>"
Response.Flush
cnt = cnt + 1 '计数器加1
start = start + 1 '指针变量递增
rs.movenext
Class_Num=Class_Num+1
Loop
End If

If Not rs.eof Then '通过刷新的方式进行下一轮请求,并将指针变量start传递到下一轮
response.write "<meta http-equiv='refresh' content='0;URL=?cid="&cid&"&id="&id&"&start="&start&"'>"
Else
response.write "生成HTML文件完毕！"
End if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

<br>
<%= totalrec %><br>
<%= start-1 %>
<a href="javascript:history.go(-1)">返回上一页</a><br></div>