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