www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_NewList_Pre.asp

    <%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<table class="tb_2">
          <tr class="tr_1"> 
            
    <td>全部公告</td>
          </tr>
          <tr> 
            <td><table width="100%" border="0" align="center">
                <%
Sql="Select Top 10 * From CFWztg_SysInfo Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1

If Not Rs.eof Then
 If ChkStr(Request("Page"),2) = "" Then
  Page = 1
 Else 
  Page = CLng(ChkStr(Request("Page"),2))
 End If
 
 Rs.pagesize=10
 TotalRs=Rs.RecordCount
 TotalPage=Rs.PageCount
 MyPageSize=Rs.PageSize
 Rs.AbsolutePage=Page
End If

While Not Rs.Eof And MyPageSize>0
%>
                <tr> 
                  <td width="80"><%=rs("AddDate")%></td>
                  <td width="100">[ <%
	If Rs("Assort")=1 Then
	 Response.Write "网友或网站主"
	ElseIf Rs("Assort")=2 Then
	 Response.Write "广告主"
	End If%>
                    ]</td>
                  <td> <a href="NewsShow.asp?ID=<%=Rs("ID")%>" target="_blank"> 
                    <%
 Response.write Rs("Title")
 %>
                    </a> </td>
                </tr>
                <%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
              </table></td>
          </tr>
        </table>


<table class="tb_3">
  <tr>
    <td><a href="?Page=1">第一页</a>
<%
If Page>1 Then
%>
            <a href='?Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount   then%>
            <a href='?Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
            <a href="?Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条
<%
Response.write "&nbsp;&nbsp;转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
 Response.Write "<option value=?Page="& i
 If Page=I Then Response.Write " selected"
 Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%></td>

  </tr>
</table>