复制代码代码如下:
<! - # includeFile = "conn.asp" ->
<Styletype = "Text / CSS">
corps, td, th {
Couleur: # 000000;
taille de police: 14px;
Color d'arrière-plan: # d6dff7;
}
</ style>
<%
diminue
setrs = server.createObject ("adodb.recordSet")
ifrequest ("type") = "date" puis
Yearstr = demande ("Selyear")
monstr = request ("selmonth")
Daystr = request ("Selday")
ifdaystr <> "" alors
ils md = antrot & "-" & monstr & "-" & waystr
sql = "SelectIdFromNewswheredateTimelike '" & mousd & "%' orderByDatetimeDesC"
autre
Ilsmd = Yearstr & "-" & Monstr & "-"
sql = "SelectIdFromNewswheredateTimelike '" & mousd & "%' orderByDatetimeDesC"
endire
elseIfRequest ("type") = "new" puis
topnew = request ("newCount")
iftopnew <> "" alors
topnew = Cint (topnew)
sql = "selecttop" & topnew & "idfromnewsorderbydatetimesec"
endire
elseIfRequest ("type") = "nosh" alors
sql = "selectIdFromnewswhereshengcheng = 0"
elseIfRequest ("type") = "all" alors
sql = "selectIdFromNewSorderByIdDesc"
endire
ifsql <> "" alors
réponse.writesql
Response.write "<enter> <b> <fontcolor =" "# ff0000" "> 正在生成文章内容页的 html 页, 请等待 ...... </font> </b> <spanid = showImport> </span> </senter> <ie: téléchargement =" "odownload" "style =" "comportement: url (# default # téléchargement)" "/>"
ifRequest ("p") <> "" puis
p = cint (demande ("p"))
autre
p = 1
endire
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
boucle
endire
Rs.Close
Sshu = maxperpage * p-maxperpage + 1 '当前已经生成的数量
Tshu = sshu + i-1 '已生成生成的
ifallshu <sshuthen
setrs = rien
Conn.Close
setConn = rien
réponse.redirect "makehtmlall.asp? type = ok" & "& shu =" & request ("shu") & "& d =" & d & "& p =" & p + 1
réponse.
autre
%>
<Metahttp-Equiv = "Refresh" Content = "0; url = dakehtmlall.asp? type = <% = request (" type ")%> & newCount = <% = request (" newCount ")%> & selyear = <% = request ("selyear")%> & selmonth = <% = request ("selmonth")%> & selday = <% = request ("selday")%> & shu = <% = tsu%> & d = <% = d%> & p = <% = p + 1%> ">