新微赢技术网

标题: [求助]按时间分页问题 [打印本页]

作者: qz沒愛過mm 时间: 2010-1-6 23:25
标题: [求助]按时间分页问题
我为公司做了一个许愿版
公司要求我做到按时间分页...
就是一天一个页面?
代码怎么写?

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

作者: 鰰﹎話 时间: 2010-1-6 23:25
高手帮帮忙呀?

作者: 千年@之恋 时间: 2010-1-6 23:25
下面的分页是:
第</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>

作者: 晒月亮的蜻蜓 时间: 2010-1-6 23:25
谢谢!~!~!!我试一下

作者: 西门庆 时间: 2010-1-6 23:25
谢谢你!!!!!

作者: 平淡♀芳 时间: 2010-1-6 23:25
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-﹎呯倓 时间: 2010-1-6 23:25
我粗略的写了一下楼主你自己参考一下吧

==================================================
<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>

作者: √死胖子 时间: 2010-1-6 23:25
我本来是这样的代码:怎么改?
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

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)