生成专集歌曲页面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"正在生成专集歌曲页的Html页,请等待......
" if request("p")<>"" then p=cint(request("p")) D=request("D") else p=1 D=Ds end if MaxPerPage=10 'mpage=3 '得到总页数 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() response.write"
" end Sub else 'shu=50 response.write"批量生成专集歌曲页" if request("type")="ok" then response.write"
操作成功:共生成"&request("SkyIdEnd")-request("SkyIdStr")+1&"页专集页面
总费时"&FormatNumber((timer()-request("D")),2)&"秒,完成时间"&Now()&"" end if set rs=server.createobject("adodb.recordset") sql="select * from special order by specialid asc" rs.Open sql,conn,1,1 kaishiid=rs("specialid") rs.close sql="select * from special order by specialid desc" rs.Open sql,conn,1,1 jieshuid=rs("specialid") rs.close response.write"专集编号的起始ID到终止ID" end if%>