复制代码代码如下:
<!-#includefile = "conn.asp"->
<styletype = "text/css">
тело, TD, th {
Цвет:#000000;
размер шрифта: 14px;
фоновый цвет:#d6dff7;
}
</style>
<%
Dimrs
setrs = server.createObject ("adodb.recordset")
ifrequest ("type") = "date" then
МЕСЯТ
Monstr = запрос ("selmonth")
Daystr = запрос ("selday")
ifdaystr <> "" Тогда
они = годы и "-" & Monstr & "-" & Daystr
sql = "selectIdFromNewSwheredAteTimeLike '" и они и "%' orderbydateTimedesc"
еще
они = годы и "-" & monstr & "-"
sql = "selectIdFromNewSwheredAteTimeLike '" и они и "%' orderbydateTimedesc"
эндиф
elseifrequest ("type") = "new" тогда
topNew = request ("newCount")
iftopnew <> "" Тогда
topnew = cint (topnew)
SQL = "SELECTTOP" & TopNew & "IDFROMNewsOrderByDateTimedesc"
эндиф
elseifrequest ("type") = "nosh" тогда
SQL = "SELECTIDFROMNEWSWHERESHENGCHENGENG = 0"
elseifrequest ("type") = "All" тогда
SQL = "SELECTIDFROMNEWSORDERBYIDDESC"
эндиф
ifsql <> "" Тогда
response.writesql
response.write "<center> <b> <fontcolor =" "#ff0000" "> 正在生成文章内容页的 html 页, 请等待 ...... </font> </b> <spanid = showimport> </span> </center> <ie: downloadid =" "odownload" "style =" "поведение: url (#default#)"/> "
ifrequest ("p") <> "" Тогда
p = cint (запрос ("p"))
еще
P = 1
эндиф
Maxperpage = 100
Rs.opensql, Conn, 1,1
ifnotrs.eofthen
rs.pearsize = maxperpage '得到每页数
mpage = rs.pagecount '得到总页数
allshu = rs.recordcount '得到总数
Rs.move (P-1)*Maxperpage
Dowhilenotrs.eof
i = i+1
callmakehtml ()
ifi> = maxperpagethenexitdo
Rs.movenext
петля
эндиф
Rs.close
Sshu = maxperpage*p-maxperpage+1 '当前已经生成的数量
Tshu = sshu+i-1 '已生成生成的
ifallshu <sshuthen
setrs = ничего
Conn.close
setConn = ничего
response.redirect "mokehtmlall.asp? type = ok" & "& shu =" & request ("shu") & "& d =" & d & "& p =" & p+1
response.end
еще
%>
<metahttp-equiv = "refresh" content = "0; url = mokehtmlall.asp? type = <%= request (" type ")%> & newcount = <%= request (" newCount ")%> & selyear = <%= request ("selyear")%> & selmonth = <%= request ("selmonth")%> & selday = <%= request ("selday")%> & shu = <%= tshu%> & d = <%= d%> & p = <%= p+1%> ">