复制代码代码如下：
<！ - ＃includefile =“ conn.asp” - >
<styletype =“ text/css”>
身体，TD，TH {
颜色：＃000000;
字体大小：14px;
背景色：＃d6dff7;
}
</style>
<％
dimrs
setrs = server.createobject（“ adodb.recordset”）
ifrequest（“ type”）=“ date”然后
laystr = request（“ selyear”）
monstr =请求（“ selmonth”）
daystr =请求（“ selday”）
Ifdaystr <>“”然后
hismd = YEARTR＆“ - ”＆MONSTR＆“ - ”＆DAYSTR
sql =“ selectidfromnewswhereDateTimeLike'”＆hismd＆“'％'orderbydatetimedesc”
别的
hismd = YEARTR＆“ - ”＆MONSTR＆“ - ”
sql =“ selectidfromnewswhereDateTimeLike'”＆hismd＆“'％'orderbydatetimedesc”
Endif
然后，ElseifRequest（“ type”）=“ new”
topnew =请求（“ newCount”）
Iftopnew <>“”然后
topnew = cint（topnew）
sql =“ selecttop”＆topnew＆“ idfromnewsorderbydatetimedesc”
Endif
然后，ElseifRequest（“ type”）=“ nosh”
sql =“ selectidfromnewswhereshengcheng = 0”
然后，ElseifRequest（“ type”）=“ all”
sql =“ selectidfromnewsorderbyiddesc”
Endif
Ifsql <>“”然后
wress.writesql
wrespons.write“ <center> <b> <fontcolor =”“”＃ff0000“”>正在生成文章内容页的html页，请等待......................................................................................................................................................................................................................................................................................................................................................................................................................
Ifrequest（“ p”）<>“”然后
p = cint（请求（“ p”））
别的
p = 1
Endif
maxperpage = 100
Rs.Opensql，Conn，1,1
ifnotrs.eofthen
rs.pagesize = maxperpage'得到每页数
mpage = rs.pagecount'得到总页数
allshu = rs.recordcount'得到总数
Rs.Move（P-1）*MaxPerpage
dowhilenotrs.eof
i = i+1
callmakehtml（）
ifi> = maxperpagethenexitdo
Rs.Movenext
环形
Endif
Rs.Close
sshu = maxperpage*p-maxperpage+1'当前已经生成的数量
tshu = sshu+i-1'已生成生成的
ifallshu <sshuthen
setrs =没有
conn.close
setConn =没有
response.redirect“ makehtmlall.asp？type = ok”＆shu =“＆request（“ shu”）＆d =“＆d＆d＆p =”＆p+1
响应
别的
％>
<metahttp-equiv =“ refresh” content =“ 0; url = makehtmlall.asp？type = <％= request（“ type”）％>＆newcount = <％= <％= request（“ newCount”）％>＆seleyear = <％= request（“ selyear”）％>＆selmonth = <％= request（“ selmonth”）％>＆selday = <％= request（“ selday”）％>＆shu = <％= <％= tshu％>＆d = <％= d％>＆p =＆p = <％= <％= <％= p+1％>“>”>“>”>