jb51生成所有页面的效果+分页生成 <font color=red>原(2)

 response.end
else
%>
<meta http-equiv="refresh" content="0;url=makehtmlall.asp?type=<%=request("type")%>&newcount=<%=request("newcount")%>&selyear=<%=request("selyear")%>&selmonth=<%=request("selmonth")%>&selday=<%=request("selday")%>&shu=<%=Tshu%>&D=<%=D%>&p=<%=p+1%>">
<div align="center"><br>正在生成:第(<%=Sshu%>/<%=Tshu%>)个 共<%=allshu%>个</div>
<%
end if
Sub MakeHtml()
%>
<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('makehtml.asp?news_id=<%=rs("id")%>',onDownloadDone)
</script>
<%
end Sub
'-----------------------sql为空-------------------
else
set rstotal=conn.execute("select count(*) from news")
nowtotal=rstotal(0)
rstotal.close
set rstotal=nothing
set nosh=conn.execute("select count(*) from news where shengcheng=0")
nownosh=nosh(0)
nosh.close
set nosh=nothing
'-------------------
if request("type")="ok" then
%><div align="center">
<br><br>操作成功:共生成页面
<font color="#FF0000"><%=request("shu")%></font>个,完成时间<%=now()%>
</center>
<%
end if
'-------------------------
%>
<table width="511" border="0" align="center" cellpadding="10" cellspacing="1" bgcolor="#FFFFFF">
  <form action="makehtmlall.asp?type=date" method="post"><tr>
    <td width="99" height="25" nowrap bgcolor="#D6DFF7">按日期生成：</td>
    <td width="369" nowrap bgcolor="#D6DFF7"><select name="selyear">
    <%
    for yearstr=2001 to year(date)
    if yearstr=year(date) then
    response.write "<option value="&yearstr&" selected>"&yearstr&"</option>"
    else
    response.write "<option value="&yearstr&">"&yearstr&"</option>"
    end if
    next
    %>
    </select>-
      <select name="selmonth">
      <%
      for monstr=1 to 12
    if monstr=month(date) then
    response.write "<option value="&monstr&" selected>"&monstr&"</option>"
    else
    response.write "<option value="&monstr&">"&monstr&"</option>"