复制代码代码如下:
<!-#includeFile = "conn.asp"->
<styleType = "text/css">
tubuh, td, th {
Warna:#000000;
Ukuran font: 14px;
latar belakang-warna:#d6dff7;
}
</tyle>
<%
Dimrs
setRs = server.CreateObject ("adodb.recordset")
ifRequest ("type") = "date" lalu
bertahun -tahun = permintaan ("selyear")
monstr = permintaan ("selmonth")
Daystr = Request ("Selday")
ifdaystr <> "" lalu
mereka = tahun-tahun & "-" & monstr & "-" & daystr
sql = "selectIdfromNewswheredateMelike '" & merekamd & "%' orderbyDateTimedesc"
kalau tidak
mereka = bertahun-tahun & "-" & monstr & "-"
sql = "selectIdfromNewswheredateMelike '" & merekamd & "%' orderbyDateTimedesc"
endif
elseifRequest ("type") = "baru" Lalu
TopNew = Request ("NewCount")
IftopNew <> "" Lalu
topnew = cint (topnew)
sql = "selecttop" & topnew & "idfromnewsorderByDateMedesc"
endif
ElseIfRequest ("type") = "nosh" lalu
sql = "selectidfromnewswheareshengcheng = 0"
elseifRequest ("type") = "all" lalu
sql = "selectidfromnewsorderbyiddesc"
endif
ifsql <> "" lalu
response.writesql
response.write "<tenter> <b> <fontcolor =" "#ff0000" "> 正在生成文章内容页的 html 页, 请等待 ...... </font> </b> <spanid = showimport> </span> </penter> <ie: download =" "odownload" "style =" "" "URL (#center> <ie: download =" "odownload" "style =" "" "URL (#DEFAULT#)"
ifRequest ("p") <> "" Lalu
p = cint (request ("p"))
kalau tidak
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
lingkaran
endif
rs.close
Sshu = maxperpage*p-maxperpage+1 '当前已经生成的数量
Tshu = sshu+i-1 '已生成生成的
ifallshu <sshuthen
setRs = tidak ada
Conn.Close
setConn = tidak ada
response.redirect "makehtmlall.asp? type = ok" & "& shu =" & request ("shu") & "& d =" & d & "& p =" & p+1
respons.end
kalau tidak
%>
<metahttp-equiv = "refresh" konten = "0; url = makehtmlall.asp? type = <%= request (" type ")%> & newCount = <%= request (" newcount ")%> & Sylyear = <%= request ("selyear")%> & selmonth = <%= request ("selmonth")%> & selday = <%= request ("selday")%> & shu = <%= tshu%> & d = <%= d%> & p = <%= p+1%> ">