在线建站培训
您的位置: 魔客吧 网络编程 ASP编程 查看内容

简单分页函数一 常用

2018-2-28 10:01 | 发布者: moke | 栏目:ASP编程

response.write "bgcolor=#ffffff"
else
response.write "bgcolor=#f6f6f6"
end if
%>>







<%
rs.movenext
if rs.eof then exit for
next
%>
复制代码 代码如下:

<%
page=trim(request("page"))
maxperpage=40
first=true
last=true
dim rs
set rs=server.CreateObject("adodb.recordset")
sql="select id,title,add1,cartype,isred,enterdate,hits from newnews where classtype=0 and pass=1 order by id desc"
rs.open sql,conn,1,1
rs.pagesize=maxperpage
totalpage=rs.pagecount
if len(page)=0 then
intpage=1
first=false
else
if cint(page)<=1 then
intpage=1
first=false
else
if cint(page)>=rs.pagecount then
intpage=rs.pagecount
last=false
else
intpage=cint(page)
end if
end if
end if
if not rs.eof then
rs.absolutepage=intpage
end if
for a=1 to maxperpage
if rs.eof then exit for
%>
<%=a%>

<%add=rs("add1")
substring add,4
%>

" target="_blank">
<%
if rs("isred")=True then
%>

<%title=rs("title")
substring title,20
%>

<%else
title=rs("title")
substring title,20
%>
<%
end if
%>
<%=rs("cartype")%>

<%thetime=rs("enterdate")
themon=datepart("m",thetime)
if len(themon)<2 then themon="0"&themon
theday=datepart("d",thetime)
if len(theday)<2 then theday="0"&theday
ther=themon&"-"&theday
response.write ther
%>
<%=rs("hits")%>












<%if rs.pagecount>0 then %>
共有<%=rs.recordcount%>条|当前页<%=intpage%>/
<%

=rs.pagecount%>

<% end if %>
<%if intpage>1 then%>
?

page=1">首页
<%else%>
首页
<%end if%>
<%if first then%>
?

page=<%=intpage-1%>">上一页
<%else%>
上一页
<%end if%>
<%if last and intpage
?

page=<%=intpage+1%>">下一页
<%else%>
下一页
<%end if%>
<%if intpage
?

page=<%=rs.pagecount%>">尾页
<%else%>
尾页
<%end if%>
转到



<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

魔客吧温馨提示:如果正在寻找登录界面模板,那么到魔客吧的 登录界面模板 频道看看吧,这里有很多的登录界面模板哦!

最新分享资源

最新评论

验证码 换一个