dim totalnews,Currentpage,totalpages,i
opennews
sql="select news_id,news_title,news_date from news order by news_date DESC"
if request("type")=1 then
sql="select top 10 news_id,news_title,news_date from news order by news_date DESC"
elseif request("type")=2 then
sql="select news_id,news_title,news_date from news order by news_date DESC"
elseif request("type")=3 then
sql="select news_id,news_title,news_date from news order by news_date ASC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
:::::本站新闻列表::::::
最新的10篇新闻
共有 篇新闻
if not rs.eof then
rs.movefirst
rs.pagesize=newsperpage
if trim(request("page"))"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totalnews=rs.recordcount
if currentpage1 then
if (currentpage-1)*newsperpage rs.move(currentpage-1)*newsperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totalnews mod newsperpage)=0 then
totalpages=totalnews\newsperpage
else
totalpages=totalnews\newsperpage+1
end if
i=0
do while not rs.eof and i %>
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
当前没有新闻！
end if%>
/页，共有条新闻/每页篇。
| i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
|
sql="select top "&hotnews&" news_id,news_title,news_date from news order by news_count DESC"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "很抱歉！内容正在更新之中！"
else
do while not rs.eof
response.write "·"&rs("news_title")&""
rs.movenext
loop
end if
rs.close
set rs=nothing%>
