复制代码代码如下:
<!-#incluirfile = "Conn.asp"->
<styleType = "text/css">
corpo, td, th {
Cor:#000000;
Size da fonte: 14px;
Background-Color:#d6dff7;
}
</style>
<%
Dimrs
setrs = server.createObject ("adodb.recordset")
ifRequest ("type") = "date" então
anos)
monstruic = request ("Selmonth")
Daytr = Solicitação ("Selday")
ifdaystr <> "" então
eles md = anos e "-" & monstruos & "-" & Daystr
SQL = "SelectIdFromNewsWheredAtTimelike '" e eles
outro
eles themd = anos e "-" e monstruoss & "-"
SQL = "SelectIdFromNewsWheredAtTimelike '" e eles
endif
elseifrequest ("type") = "novo" então
topNew = solicitação ("NewCount")
IfTopNew <> "" então
topnew = cint (topnew)
SQL = "SelectTop" e TopNew e "IdFromNewsOrderByDateTimedesc"
endif
elseifrequest ("type") = "nosh" então
SQL = "SelectIdFromNewswhereShengCheng = 0"
elseifrequest ("type") = "all" então
SQL = "SelectIdFromNewsOrderByidDesc"
endif
ifSQL <> "" então
Response.WritesQL
Response.Write "<Center> <b> <fontcolor =" "#ff0000" "> 正在生成文章内容页的 html 页, 请等待 ...... </font> </b> <spanid = showimport> </span> </central> <ie: downloads =" Odownload "" "" "" "" "" "" "" "" "" "" ""
ifrequest ("p") <> "" então
p = cint (solicitação ("p"))
outro
p = 1
endif
MaxPage = 100
Rs.opensql, Conn, 1,1
ifnotrs.eofthen
rs.pagesize = maxPage '得到每页数
mpage = rs.pagecount '得到总页数
allshu = rs.recordCount '得到总数
rs.move (P-1)*MaxPage
Dowhilenotrs.eof
i = i+1
callmakehtml ()
ifi> = maxperpageTenexitdo
rs.movenext
laço
endif
rs.close
Sshu = maxperpage*p-maxperpage+1 '当前已经生成的数量
Tshu = sshu+i-1 '已生成生成的
Ifallshu <Sshuthen
setrs = nada
Conn.Close
setConn = nada
Response.Redirect "makehtmlall.asp? type = ok" & "shu =" & request ("shu") & "& d =" & d & "& p =" & p+1
resposta.END
outro
%>
<metahttp-equiv = "refresh" content = "0; url = makehtmlall.asp? type = <%= request (" type ")%> & newCount = <%= request (" newCount ")%> & selyear = <%= request ("Selyear")%> & Selmonth = <%= request ("Selmonth")%> & SelDay = <%= request ("Selday")%> & shu = <%= tshu%> & d = <%= d%> & p = <%= p+1%> ">