<% '============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2007-12-16 13:28 ' E-Mail: xivn@163.com QQ:531233814 '============================================================ Set rs = Server.CreateObject("ADODB.Recordset") sql="Select * from [bbsads] where ttmm>= '"&date()&"' order by [id] desc" rs.open sql,conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=15 Dim Count,page,pagecount,gopage gopage="todayad.asp?sid="&sid&"&" Count=rs.recordcount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For %><%=i+(page-1)*PageSize%>.会员<%=Rs("name")%>(ID<%=Rs("UsID")%>)广告ID:<%=rs("adid")%>
时间:<%=rs("ttmm")%>
<% rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页[GO]
" Else %> 暂时没有人点击广告！
<% end if rs.close set rs=nothing conn.close set conn=nothing %> [清空记录]
[点击送币]
[后台管理]