复制代码代码如下所示：


身体，TD，{
颜色：# 000000；
字体大小：14px；
背景颜色：# d6dff7；
}

<
昏暗的RS
集= server.createobject（ADODB。记录集）
如果请求（）=日期，则
yearstr =请求（selyear ）
MONSTR =请求（selmonth ）
daystr =请求（selday ）
如果daystr <> 然后
theymd = yearstr daystr MONSTR
SQL =选择ID从新闻里的日期像为了theymd DateTime DESC %
其他的
theymd = yearstr MONSTR
SQL =选择ID从新闻里的日期像为了theymd DateTime DESC %
最后如果
请求（类）=新的然后
铜牛=请求（纽康特）
如果铜牛<> 然后
铜牛= Cint（铜牛）
SQL =选择顶部的铜牛身份从新闻为DateTime desc
最后如果
请求（类）=小吃然后
SQL =选择ID从新闻的地方圣城= 0
请求（类）= 然后
SQL =选择ID从新闻订单ID号
最后如果
如果SQL ，那么
response.write SQL
Response.write is generating the Html page of the content page of the article, please wait...
如果请求（），则
P = Cint（请求（P））
其他的
P = 1
最后如果
maxperpage = 100
rs.open sql，Conn，1,1
if not rs.eof then
rs.pagesize = maxperpage得到页每页数
mpage = rs.pagecount得到总页数
allshu = rs.recordcount得到总
Rs.move（P-1）* maxperpage
do while not rs.eof
i = i + 1
打电话给MakeHtml（）
如果我> = maxperpage然后退出
移到下一项
环
最后如果
关闭
对sshu = maxperpage * p-maxperpage + 1目前产生的数
tshu = sshu + I-1的生成
如果allshu < sshu然后
设置=无
conn.close
设置conn =没有
response.redirectmakehtmlall。asptype =好蜀= 的要求（蜀）aDP =P + 1
response.end
其他的
%>
纽康特= selyear = selmonth = selday =树= D = P =>
生成：（）公共
<
最后如果
Sub MakeHtml（）
%>
功能ondownloaddone（停机日期）{ showimport .innerHTML =停机日期} odownload.startdownload（'makehtml。aspnews_id = '，ondownloaddone）

<
端子
----------------------- SQL是空的-------------------
其他的
集rstotal = conn.execute（select count（*）从新闻）
nowtotal = rstotal（0）
rstotal.close
集rstotal =没有
集小吃= conn.execute（select count（*）从新闻的地方圣城= 0 ）
Nownosh=nosh (0)
nosh.close
集小吃=没有
-------------------
如果请求（）=OK，那么
%>
成功操作：CO生成页
完成时间

<
最后如果
-------------------------
%>


按日期生成：

<
对于yearstr = 2001年（日期）
如果yearstr =年（日期）然后
response.write yearstr
其他的
response.write yearstr
最后如果
下一个
%>
—

<
对于MONSTR = 1 12
如果MONSTR =月（日期）然后
response.write MONSTR
其他的
response.write MONSTR
最后如果
下一个
%>
—


<
对于daystr = 1到31
如果daystr =天（日期）然后
response.write daystr
其他的
response.write daystr
最后如果
下一个
%>






根据最新一代：
生成新的

一篇文章





NO的生成：
生成文章{ }的需要





生成所有：
总数{ }




<
最后如果
%>