<% Dim cName(3) CountNum=30 class_Id=zhcx.checknumeric(request("class_id")) Sql="Select Id From Class_Type where Pre_Id="&Class_Id Set rs=zhcx.conn(sql) if not rs.eof then i=0 while not rs.eof cName(i)=rs(0) rs.movenext i=i+1 wend end if rs.close set rs=nothing Sql="Select Id From Z_News where Class_ID="&cName(1) Set rs=zhcx.conn(sql) if not rs.eof then record_total=rs.recordCount if( (Record_total Mod CountNum) =0) Then Page_total=int(Record_total/CountNum) else Page_total=int(Record_total/CountNum)+1 End if else Page_total=0 End if rs.close set rs=nothing Call Create_file_More(getAllpath(class_Id,"")) Randomize if Clng(Page_total)>0 then for i=1 to Page_total if i=1 then pathhtml=getAllpath(class_Id,"")&"/Index.html" else pathhtml=getAllpath(class_Id,"")&"/Index_"&(i-1)&".html" End if Call Cre_New_Html(syspath&pathhtml,Http_Url&"action/do/ls/home.asp?pageno="&i&"&Class_Id="&Class_Id&"&r="&Rnd ) response.write "页面:"&pathhtml&"生成
" response.flush() next else pathhtml=getAllpath(class_Id,"")&"/Index.html" Call Cre_New_Html(syspath&pathhtml,Http_Url&"action/do/ls/home.asp?pageno="&i&"&Class_Id="&Class_Id&"&r="&Rnd) End if '生成首页 response.write " 首页生成完成<返回>" %>