<%
dim sql,rs,action
dim newsID
dim currentpage,endpage,page_count,Pcount,totalrec
action=lcase(trim(request("action")))
newsID=trim(request("ID"))
select case action
case "show"
if newsID<>"" and isNumeric(newsID) then
call show(newsID)
end if
response.Write("")
call list()
case else
call list()
end select
function show(newsID)
sql="update examNews set newsHits=newsHits+1 where ID="&newsID
set rs=conn.execute(sql)
sql="select * from examNews where ID="&newsID
set rs=conn.execute(sql)
%>
| 查看新闻 |
<%
response.Write("| 标题 | "&rs("newsTitle")&_
" |
| 内容 | "&HTMLEncode(rs("newsInfo"))&_
" |
| 作者 | "&rs("newsWriter")&_
" |
| 时间 | "&rs("newsTime")&_
" |
| 点击率 | "&rs("newsHits")&_
" |
")
%>
<%
end function
function list()
sql="select * from examNews order by id desc"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn,1,1
totalrec=rs.recordcount
if totalrec=0 then response.Redirect("index.asp")
if request("page")="" or not isNumeric(request("page")) then
currentPage=1
else
currentPage=cint(request("page"))
end if
rs.PageSize = 20
rs.AbsolutePage=currentpage
page_count=0
response.Write("
")
%>
| 序号 |
标题 |
作者 |
时间 |
<%
while not(rs.bof or rs.eof) and ( page_count <> rs.PageSize)
page_count = page_count + 1
response.Write "| "&rs("ID")&" | "&rs("newsTitle")&" | "&rs("newsWriter")&" | "&rs("newsTime")&" |
"
rs.movenext
wend
%>
<%
response.Write("")
call listPages3()
response.Write("
")
end function
function listPages3()
Pcount=rs.PageCount
response.write "页次："¤tpage&"/"&Pcount&"页"&_
" 每页"&rs.pagesize&", 总数:"&totalrec&", "&_
" 分页："
if currentpage > 3 then
response.write " [1] ..."
end if
if Pcount>currentpage+3 then
endpage=currentpage+3
else
endpage=Pcount
end if
for i=currentpage-2 to endpage
if not i<1 then
if i = clng(currentpage) then
response.write " ["&i&"]"
else
response.write " ["&i&"]"
end if
end if
next
if currentpage+3 < Pcount then
response.write " ...["&Pcount&"]"
end if
end function
%>