复制代码代码如下 :
<!-#includefile = "conn.asp"->
<styletype = "text/css">
몸, td, th {
색상 :#000000;
글꼴 크기 : 14px;
배경색 :#d6dff7;
}
</스타일>
<%
희미한
setrs = server.createobject ( "adodb.recordset")
ifrequest ( "type") = "date"
Yearttr = request ( "Selyear")
monster = request ( "selmonth")
daystr = request ( "selday")
ifdaystr <> ""그런 다음
theymd = alftr & "-"& monstr & "-"& daystr
sql = "selectIdfromnewswheredateTimelike '"& "%'orderbyDateTimedesc"
또 다른
theymd = congrtr & "-"& monstr & "-"-"
sql = "selectIdfromnewswheredateTimelike '"& "%'orderbyDateTimedesc"
endif
elseifrequest ( "type") = "new"
TopNew = 요청 ( "NewCount")
iftopnew <> ""그럼
Topnew = Cint (Topnew)
sql = "selecttop"& topnew & "idfromnewsOrderByDateTimedesc"
endif
elseifrequest ( "type") = "nosh"
sql = "selectIdfromnewswhereshengcheng = 0"
elseifrequest ( "type") = "all"
sql = "selectIdfromnewSorderByIddesc"
endif
ifsql <> ""그런 다음
response.writesql
응답. "<center> <b> <fontcolor =" "#ff0000" "> 正在生成文章内容页的 html 页, 请等待 ...... ...... </font> </b> <spanid = showimport> </span> </center> <ie : downloadid ="OdowNload ""style = "" ""url (#default#다운로드) ""/> "
ifrequest ( "P") <> "" "그런 다음
p = cint (요청 ( "p"))
또 다른
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
고리
endif
Rs.Close
sshu = maxperpage*p-maxperpage+1 '当前已经生成的数量
tshu = sshu+i-1 '已生成生成的
ifallshu <sshuthen
setrs = 아무것도
conn.close
setconn = 아무것도 없습니다
response.redirect "makehtmlall.asp? type = OK"& "& shu ="& request ( "shu") & "& d ="& d & "& p ="& p+1
응답. 엔드
또 다른
%>
<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%> ">