<%
idd=28
dim i,intPage,page,pre,last,filepath
set rsp = server.createobject("adodb.recordset")
productsSQL= "select * from News where TreeID like '%"&idd&"%' and Putout='1' order by Addtime desc"
rsp.PageSize = 12
rsp.CursorLocation = 3
rsp.Open productsSQL,conn,0,2,1
%>
Total:<%=rsp.recordcount%>
| 内容 |
点击次数 |
日期 |
<%
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page)>=rsp.PageCount then
intpage = rsp.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rsp.eof then
rsp.AbsolutePage = intpage
end if
if rsp.bof then Response.write"暂无内容"
pcount=rsp.recordcount
for i=1 to rsp.PageSize
if rsp.EOF or rsp.BOF then exit for
Newtitle=rsp("Newtitle")
if len(Newtitle)>26 then Newtitle=left(Newtitle,26)&"..."
day1=rsp("addtime")
%>
| "><%=Newtitle%> |
(阅读<%=rsp("kig")%>次) |
<%=Year(rsp("addtime"))%>.<% mm=month(rsp("addtime"))
IF Cint(mm)<10 THEN
mm="0"&mm
Response.Write(mm)
else Response.Write month(rsp("addtime"))
End IF %>.<% dd=day(rsp("addtime"))
IF Cint(dd)<10 THEN
dd="0"&dd
Response.Write(dd)
else
Response.Write(day(rsp("addtime")))
End IF%> |
<%
rsp.movenext
next
%>
 |
 |
<%for j=1 to rsp.PageCount
if intpage=j then
%>
<%=j%> |
 |
<%
else
%>
<%=j%> |
|
<%
end if
next
%>
 |
 |
|
