[求助]按时间分页问题 - ASP

qz沒愛過mm

电梯直达

1^#

发表于 2010-1-6 23:25:19 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我为公司做了一个许愿版
公司要求我做到按时间分页...
就是一天一个页面?
代码怎么写?

请高手帮忙!
先谢谢!!!

收藏0

使用道具举报

鰰﹎話

2^#

发表于 2010-1-6 23:25:23 | 只看该作者

高手帮帮忙呀?

回复支持反对

使用道具举报

千年@之恋

3^#

发表于 2010-1-6 23:25:26 | 只看该作者

下面的分页是:
第</font><font color=#ff0000><%=pages%></font><font color="#000000">页</font> <font color="#000000">
<a href="index.asp?pages=1" style="text-decoration: none"><font color="#000000">首页</font></a>　<a href="index.asp?pages=<%=pages-1%>" style="text-decoration: none"><font color="#000000">上页</font></a>　<a href="index.asp?pages=<%=pages+1%>" style="text-decoration: none"><font color="#000000">下页</font></a>　<a href="index.asp?pages=<%=rs.pagecount%>"" style="text-decoration: none"><font color="#000000">尾页</font></a>　共<%=rs.pagecount%>页</font>

回复支持反对

使用道具举报

晒月亮的蜻蜓

4^#

发表于 2010-1-6 23:25:29 | 只看该作者

谢谢!~!~!!我试一下

回复支持反对

使用道具举报

西门庆

5^#

发表于 2010-1-6 23:25:32 | 只看该作者

谢谢你!!!!!

回复支持反对

使用道具举报

平淡♀芳

6^#

发表于 2010-1-6 23:25:35 | 只看该作者

if request("page")<>"" then
page=cdate(request("page"))
else
page=date();
end if
sql语句 sql="select * from data where datediff('d',thisdate,"+page+")=0"

分页：按日期分

回复支持反对

使用道具举报

ㄗs-﹎呯倓

7^#

发表于 2010-1-6 23:25:38 | 只看该作者

我粗略的写了一下楼主你自己参考一下吧

==================================================
<body>
<%
'Response.Write(date())
Dim Conn,Connstr,rs,pages
pages = Request.QueryString("page")
If pages = "" Or Not IsDate(pages) Then pages=Date()
pages = Cdate(pages)
If pages > Date() Then Pages=Date()
Set Conn = Server.CreateObject("ADODB.CONNECTION")
ConnStr = "Provider = microsoft.jet.oledb.4.0;data source = "&Server.MapPath("db1.mdb")
Conn.Open connstr
Set rs = Server.CreateObject("ADODB.RECORDSET")
rs.Open "select * from tab where pubtime like '%"&pages&"%'" ,conn,1,1
If rs.Eof Then
Response.Write("暂时没有记录!")
Else
Do While Not rs.Eof
%>
<table width="200" height="23" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="58" align="center"><%=rs("id")%></td>
<td width="142" align="center"><%=rs("pubtime")%></td>
</tr>
</table>
<%
rs.MoveNext
Loop
End If
%>x
<table width="200" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="96" align="center"><a href="?page=<%=pages+1%>">上一页</a></td>
<td width="104" align="center"><a href="?page=<%=pages-1%>">下一页</a></td>
</tr>
</table>
</body>

回复支持反对

使用道具举报

√死胖子

8^#

发表于 2010-1-6 23:25:41 | 只看该作者

我本来是这样的代码:怎么改?
dim rs1,sql1
Set rs1= Server.CreateObject("ADODB.recordset")
sql="select * from ccc_love where cpassed=true order by cid desc"
rs.open sql,conn,1,1
sql1="select * from config"
rs1.open sql1,conn,1,1
pages=Request("pages")
if pages="" then
pages=1
else
pages=cint(pages)
end if
if pages<1 then pages=1
rs.PageSize=100
if rs.recordcount>0 then
if pages>rs.PageCount then pages=rs.PageCount
rs.AbsolutePage=pages
end if

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册