<% Randomize Sql="Select Id,pathhtml,title From Z_zj 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/zj/s.asp?id="&Id&"&r="&Rnd) response.write "专家:"&title&"生成
" response.flush() rs.movenext wend end if rs.close set rs=nothing '生成首页 response.write " 生成完成<返回>" %>