<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>"
end if
next
%>
</select>-
<select name="selday">
<option value=""""> </option>
