|
| |
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from s_news where trim(n_language)=1 and trim(n_class)=2 order by n_date desc",conn,1,1
if rs.bof and rs.eof then
response.write "| 暂无数据！ | "
else
rs.pagesize=11
tatalrecord=rs.recordcount
tatalpages=rs.pagecount
rs.movefirst
if not isempty(request("page")) then
nowpage=cint(request("page"))
spage=cint(request("page")-5)
if spage<1 then
spage=1
epage=10
else
epage=cint(request("page")+5)
end if
if epage>tatalpages then
epage=tatalpages
end if
else
spage=1
if tatalpages>10 then
epage=10
else
epage=tatalpages
end if
nowpage=1
end if
rs.absolutepage=nowpage
i=0
do while not rs.eof and i<=rs.pagesize%>
 |
">
<%=Trim(rs("n_title"))%> |
<%=year(rs("n_date"))%>.<%=month(rs("n_date"))%>.<%=day(rs("n_date"))%> |
<%i=i+1
if i>=rs.pagesize then exit do
rs.movenext
loop%>
| <%
if nowpage>1 then
response.write "上一页 "
else
response.write "上一页 "
end if
for p=spage to epage
if p<>nowpage then
response.write ""&p&" "
else
response.write ""&p&" "
end if
next
if nowpage < tatalpages then
response.write "下一页"
else
response.write "下一页"
end if
%> |
<%end if
rs.close
set rs=nothing%>
|
|
|