<%
totalrec=Conn.Execute("Select count(*) from Download Where ViewFlagCH")(0)
totalpage=int(totalrec/DownInfo)
If (totalpage * DownInfo)bar_img.width="&Fix((Class_Num/rs.recordcount)*300)&";"
Response.Write "bar_txt1.innerHTML=""成功生成"&Class_Num*2&"个分类的HTML静态页面。完成比例:" & formatnumber(Class_Num/rs.recordcount*100) & """;"
Response.Flush
rs.movenext
Class_Num=Class_Num+1
Loop
End If
rs.close
set rs=nothing
conn.close
set conn=nothing
%>