复制代码代码如下::
<!-#includeFile = "conn.asp"->
<Syletyps = "text/css">
Körper, td, th {
Farbe:#000000;
Schriftgröße: 14px;
Hintergrundfarbe:#d6dff7;
}
</style>
<%
dimrs
setrs = server.createObject ("adodb.recordset")
IfRequest ("Typ") = "Datum" dann
jahrelang = Anfrage ("Selyear")
monstr = request ("selmonth")
DAYTR = Anfrage ("selday")
ifdaystr <> "" dann
siemd = jahrestr & "-" & monstr & "-" & Daytr
SQL = "SelectIdFromNewswheredatetimelike '" & theMd & "%' OrderByDatetimedesc"
anders
siemd = jahrestr & "-" & monstr & "-"
SQL = "SelectIdFromNewswheredatetimelike '" & theMd & "%' OrderByDatetimedesc"
Endif
ElseIfRequest ("Typ") = "new" dann
TopNew = Anfrage ("NewCount")
iftopNew <> "" dann
TopNew = Cint (TopNew)
SQL = "selectTop" & topNew & "IDFromNewsORDBYDATETIMEDESC"
Endif
ElseIfRequest ("Typ") = "nosh" dann
sql = "selectIdFromNewsWheresGheng = 0"
ElseIfRequest ("Typ") = "Alle" dann
SQL = "selectIdFromNewsOrDByIdDesc"
Endif
ifsql <> "" dann
response.writesql
Antwort.
IFREQUEST ("P") <> "" Dann
p = cint (request ("p"))
anders
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
Schleife
Endif
rs.close
Sshu = maxperpage*P-MaxperPage+1 '当前已经生成的数量
Tshu = sshu+i-1 '已生成生成的
Ifallshu <sshuthen
setrs = nichts
conn.close
setConn = nichts
Antwort.Redirect "Makehtmlall.asp? type = ok" & "& shu =" & request ("shu") & "& d =" & d & "& p =" & p+1
Antwort.end
anders
%>
<metahttp-äquiv = "aktualisieren" 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%> ">