複製代碼代碼如下：
<！ - ＃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％>“>”>“>”>