生成歌手专集列表HTML文件

<% dim Ds,SkyIdStr,SkyIdEnd,SkyIdNow Ds=timer() SkyIdStr=clng(request("SkyIdStr")) SkyIdEnd=clng(request("SkyIdEnd")) SkyIdNow=request("SkyIdNow") if request("type")="all" then if skyidstr<1 or skyidend<1 or SkyIdStr>SkyIdEnd then response.write "
" else makeskysoft="yes" end if end if if makeskysoft="yes" then response.write"正在生成,请等待......
" if request("p")<>"" then p=cint(request("p")) D=request("D") else p=1 D=Ds end if MaxPerPage=10 allshu=SkyIdEnd-SkyIdStr SkyIDNowPage=p*MaxPerPage+SkyIdStr if SkyIDNowPage=>allshu+SkyIdStr then SkyIDNowPage=allshu+SkyIdStr for id=(p-1)*MaxPerPage+SkyIdStr to SkyIDNowPage i=i+1 call MakeHtml() if i>=MaxPerPage then exit for next Sshu=MaxPerPage*p-MaxPerPage+SkyIdStr Tshu=Sshu+i-1 if allshu+SkyIdStr" response.write"
您选择的是从"&request("SkyIdStr")&"-"&request("SkyIdEnd")&" 共"&allshu&"位歌手页面" response.write"
正在生成:第("&Sshu&"-"&Tshu&")位歌手专集列表" response.write"
已用时("&FormatNumber((timer()-request("D")),2)&")秒" end if Sub MakeHtml() set rs=server.createobject("adodb.recordset") sql="select * from special where nclassid="&id&" order by specialid desc" rs.open sql,conn,1,1 rs.pagesize=30 pagecount=rs.pagecount rs.close set rs=nothing for page=1 to pagecount response.write"
" next end Sub else response.write"批量生成歌手页面" if request("type")="ok" then response.write"
操作成功:共生成"&p&"位歌手专集列表页面
总费时"&FormatNumber((timer()-request("D")),2)&"秒,完成时间"&Now()&"" end if set rs=server.createobject("adodb.recordset") sql="select * from nclass order by nclassid asc" rs.Open sql,conn,1,1 kaishiid=rs("nclassid") rs.close sql="select * from nclass order by nclassid desc" rs.Open sql,conn,1,1 jieshuid=rs("nclassid") rs.close response.write"歌手编号的起始ID到终止ID" end if%>