复制代码代码如下:
<!-#includefile = "conn.asp"->
<StyleType = "Text/CSS">
الجسم ، td ، th {
اللون:#000000 ؛
حجم الخط: 14px ؛
لون الخلفية:#D6DFF7 ؛
}
</style>
<٪
Dimrs
setRs = server.createObject ("adodb.recordset")
ifrequest ("type") = "Date" ثم
سنوات = طلب ("selyear")
MORNT = طلب ("سلمونث")
DayStr = request ("Selday")
IFDayStr <> "" ثم
themd = yearstr & "-" & monstr & "-" & daystr
sql = "selectIdFromNewSwheredateTimelike" و themd & "٪ 'orderbydatetimedesc"
آخر
themd = yearstr & "-" & monstr & "-"
sql = "selectIdFromNewSwheredateTimelike" و themd & "٪ '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 <> "" ثم
استجابة. writesql
Response.write "<center> <b> <fontcolor =" "#ff0000"> 正在生成文章内容页的 html 页 ، 请等待 ...... </font> </b> <spanid = showimport> </span> </center> <ee: downloadid = "" odownload "style =" url:#default#develop.
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 ( = <٪ = request ("selyear") ٪> & selmonth = <٪ = request ("selmonth") ٪> & selday = <s request ("selday")