<%
set dnrs=server.CreateObject("adodb.recordset")
sql="select * from news where type='公告通知' order by id desc"
dnrs.open sql,conn,3,3
if not dnrs.eof then
if isNumeric(request("page")) then
if request("page")="" then
page=1
else
page=clng(request("page"))
end if
else
response.Write(""&request("page")&"是非法字符!")
response.End()
end if
dnrs.pagesize=20
page=clng(request("page"))
if page<1 then
page=1
end if
if page>dnrs.pagecount then
page=dnrs.pagecount
end if
dnrs.absolutepage=page
for i =1 to dnrs.pagesize
if not dnrs.eof then
%>
|
<%if len(dnrs("title"))>24 then response.Write(""&left(dnrs("title"),22))&"..."&"" else response.Write(""&dnrs("title")&"") end if%> |
<%=year(dnrs("time"))%>-<%=month(dnrs("time"))%>-<%=day(dnrs("time"))%> |
<%dnrs.movenext
end if
next
%>
| <%
self=request.ServerVariables("SCRIPT_NAME")
if page <> 1 then
response.Write("第一页"&" ")
response.write("上一页"&" ")
end if
if page<>dnrs.pagecount then
response.write("下一页"&" ")
response.Write("尾页"&" ")
end if
%>总数:<%=dnrs.recordcount%>条 每页:<%=dnrs.pagesize%>条 共<%=dnrs.pagecount%>页
<%dnrs.close
conn.close
set dnrs=nothing
set conn= nothing
else
response.Write(" 暂无内容! ")
end if%> |
|
|
