复制代码代码如下:
<!-#includeFile = "conn.asp"->
<styletype = "text/css">
cuerpo, td, th {
Color:#000000;
tamaño de fuente: 14px;
Color de fondo:#d6dff7;
}
</style>
<%
dimrs
setrs = server.createObject ("ADODB.Recordset")
ifRequest ("type") = "fecha" entonces
Yearstr = request ("Selyear")
Monstr = request ("Selmonth")
daystr = request ("Selday")
ifdaystr <> "" entonces
ellosmd = añostr & "-" & monstr & "-" & díastr
sql = "selectIdFromNeWSwheredateTimelike '" & Theymd & "%' OrderByDateTimedesc"
demás
Ellos son = añostr & "-" & Monstr & "-"
sql = "selectIdFromNeWSwheredateTimelike '" & Theymd & "%' OrderByDateTimedesc"
endif
elseifrequest ("type") = "nuevo" entonces
topnew = request ("Newcount")
iftopnew <> "" entonces
topnew = cint (topnew)
sql = "selectTop" & topnew & "idfromnewserDerByDateTimedesc"
endif
elseifrequest ("type") = "nosh" entonces
sql = "selectIdFromNeWSwhereshengcheng = 0"
elseifrequest ("type") = "all" entonces
sql = "selectIdFromNewsOrderByidDesc"
endif
ifsql <> "" entonces
respuesta.Writesql
Response.Write "<Center> <b> <fontcolor =" "#ff0000" "> 正在生成文章内容页的 html 页, 请等待 ...... </font> </b> <spanid = showImport> </span> </center> <ie: download =" "Odownload" "Style =" "Comportamiento: url (##descargar)
ifrequest ("p") <> "" entonces
p = cint (request ("P"))
demás
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
bucle
endif
rs.
Sshu = maxperPage*p-maxperPage+1 '当前已经生成的数量
Tshu = sshu+i-1 '已生成生成的
ifallshu <sshuthen
SETRS = nada
Conn.clar
setConn = nada
Respuesta.Redirect "Makehtmlall.asp? type = ok" & "& shu =" & request ("shu") & "& d =" & d & "& p =" & p+1
respuesta.
demás
%>
<metahttp-equiv = "refresh" content = "0; url = wahtmlall.asp? type = <%= request (" type ")%> & newcount = <%= request (" Newcount ")%> & Selyear = <%= request ("Selyear")%> & Selmonth = <%= request ("Selmonth")%> & Selday = <%= request ("Selday")%> & shu = <%= tshu%> & d = <%= d%> & p = <%= p+1%> ">">