<% 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 Create_file_More(pathhtml) Call Cre_New_Html(syspath&pathhtml,Http_Url&"action/do/news/s.asp?id="&Id&"&r="&Rnd) response.write "新闻"&title&"生成
" response.flush() rs.movenext wend end if rs.close set rs=nothing '生成首页 response.write " 生成完成<返回>" %>