生成歌手专集列表HTML文件

<% if request("type")<>"" then if request("p")<>"" then p=cint(request("p")) D=request("D") else p=1 D=timer() end if mpage=1 mpage1=1 MaxPerPage=15 id=request("id") zzyy=id&"," set rs=server.createobject("adodb.recordset") if request("type")="all" then rs.open ("SELECT nclassid FROM nclass where classid like "&request("zzyy")&" order by nclassid desc"),conn,1,1 if not rs.eof then rs.pagesize=1 '得到每页数 mpage1=rs.pagecount '得到总页数 rs.move (p-1)*1 do while not rs.eof i=i+1 id=rs("nclassid") if i>=1 then exit do rs.movenext loop rs.close end if end if 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=31 pagecount=rs.pagecount rs.close set rs=nothing conn.close set conn=nothing response.write""&p&"/"&mpage1&" 正在生成歌手专辑列表的Html页,请等待......
" for ii=1 to mpage m=m+1 for page=1 to pagecount response.write"
" next next if p" else response.write"" end if else response.write"操作成功:共生成分类"&request("ok")&"个,页面"&request("m")&"个,总费时"&(FormatNumber((timer()-request("D")),2))/10&"秒,完成时间"&Now()&"" end if %>