[求助]按时间分页问题 - ASP技术论坛

楼主

问题点数：0 回复次数：7

[求助]按时间分页问题

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

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

搜索更多相关主题的帖子: 时间　页面　代码　

第 2 楼

得分:0

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

分页：按日期分

">东搞一下西搞一下

第 3 楼

得分:0

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

我的小站:http://www.欢迎光临!

第 4 楼

得分:0

我本来是这样的代码:怎么改?
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://www.欢迎光临!

第 5 楼

得分:0

下面的分页是:
第</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>

我的小站:http://www.欢迎光临!

第 6 楼

得分:0

高手帮帮忙呀?

我的小站:http://www.欢迎光临!

第 7 楼

得分:0

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

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

得分:0

谢谢你!!!!!

我的小站:http://www.欢迎光临!