<% class_Id=zhcx.checknumeric(request("class_id")) Randomize Sql="Select Id,pathhtml,title From Z_news where Class_Id="&class_Id&" order by id desc" Set rs=zhcx.conn(sql) if not rs.eof then while not rs.eof Id=rs(0) pathhtml=rs(1) title=rs(2) '生成新闻页面 Call Cre_New_Html(syspath&pathhtml,Http_Url&"action/do/syb/about/?id="&Id&"&Class_Id="&Class_Id&"&r="&Rnd) response.write "新闻"&title&"生成"&syspath&pathhtml&"
" response.flush() rs.movenext wend end if rs.close set rs=nothing '生成首页 response.write " 生成完成<返回>" %>