源代码如下：点第一次生成的时候可以生成，再点就没有任何反映了，整个后台卡死
<%
totalrec=Conn.Execute("select count(*) from LiangJingCMS_About")(0)
sql="Select * from LiangJingCMS_About order by ID desc"
Set Rs=Conn.Execute(sql)
if totalrec=0 then
Detail_Num=0
Else
Detail_Num=1
do while not rs.eof
ID=rs("ID")
call htmll("/CH/","/CH/",""&AboutNameDiy&""&Separated&""&ID&"."&HTMLName&"","About.asp","ID=",ID,"","")
call htmll("/EN/","/EN/",""&AboutNameDiy&""&Separated&""&ID&"."&HTMLName&"","About.asp","ID=",ID,"","")
Response.Write "<script>bar_img.width="&Fix((Detail_Num/totalrec)*300)&";"
Response.Write "bar_txt1.innerHTML=""已成功生成静态页"&Detail_Num*2&"页，完成比例：" & formatnumber(Detail_Num/totalrec*100) & """;</script>"
Response.Flush
rs.movenext
Detail_Num=Detail_Num+1
loop
end if
rs.close
set rs=Nothing
conn.close
set conn=Nothing
%>