複製代碼代碼如下:
<! - #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%>“>”>“>”>