Posted on 2005-12-21 14:48
张明康 阅读(99)
评论(0) 编辑 收藏 引用 所属分类:
ASP
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/Session.asa"-->
<!--#include file="../inc/conn.asp"-->
<%
Call ConnectionDatabase
Exec="Select * From [news] Order By Id Desc"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open Exec,Conn,1,1
page=Request.QueryString("page") 'page值为接受值
Rs.PageSize = 10 '每页显示记录数
If Not IsEmpty(page) Then '如果page已经初始化...
'response.write "1--------------"
If Not IsNumeric(page) Then '判断page值是否为数字
page=1
Else
page = cint(page) '接收page并化为数字型赋给page变量
End If
If page > Rs.PageCount Then '如果接收的页数大于总页数
Rs.AbsolutePage = Rs.PageCount '设置当前显示页等于最后页
ElseIf page <= 0 Then '如果page小于等于0
Rs.AbsolutePage = 1 '设置当前显示页等于第一页
Else
Rs.AbsolutePage = page '如果大于零,显示当前页等于接收的页数
End If
Else
'response.write "2--------------<br>"
Rs.AbsolutePage=1
'response.write "rs.Absolutepage............." & rs.Absolutepage
page=1
End If
'page = rs.Absolutepage
%>
<html>
<head>
<title>公司新闻列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin_style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" class="bgcolor" >
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" Class="border">
<tr >
<td height="22" colspan="4" class="topbg"><STRONG>公司新闻列表</STRONG></td>
</tr>
<tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
<td height="25" >序号</td>
<td height="25" >标题 </td>
<td height="25" >添加者</td>
<td >管理</td>
</tr>
<%
For i = 1 to Rs.PageSize
if Rs.EOF then
Exit For
End If
%>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="30" height="25" ><%=i%></td>
<td width="511" height="25" ><a href="../about us/news.asp?Id=<%=Rs("Id")%>" class="black" target="_blank"><%=Rs("Title")%></a></td>
<td width="100" ><%=Rs("Operation")%></td>
<td width="100" ><a href="admin_newsmodify.asp?Id=<%=Rs("Id")%>&Title=<%=Rs("Title")%>">修改</a> | <a href="admin_inc_delnews.asp?Id=<%=Rs("Id")%>" onClick = "javascript:if(window.confirm('真的要删除此条新闻吗?')==true){return true} else return false">删除</a> </td>
</tr>
<%
Rs.MoveNext
Next
%>
<!--<%="page is " & page%>-->
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="30" height="25" > </td>
<td width="511" height="25" ><form action="admin_newslist.asp" method="get">
<!--首先保证总页数不为1、不为0-->
<%If Rs.PageCount<>1 And Rs.PageCount<>0 Then%>
<!--如果当前页数大于1，无论何时都应显示首页和上一页的连接-->
<%If page>1 Then%>
[<a Href="admin_newslist.asp?page=<% = 1%>">首页</a>]
[<a Href="admin_newslist.asp?page=<% = page -1 %>">上一页</a>]
<!--如果当前页数大于1并且小于总页面数时，显示出尾页和下一页的连接-->
<%If page<Rs.PageCount Then %>
[<a Href="admin_newslist.asp?page=<% = page + 1%>">下一页</a>]
[<a Href="admin_newslist.asp?page=<% = Rs.PageCount%>">尾页</a>]
<!--如果当前页数大于1并且仍大于或等于总页面数时，不显示出尾页和下一页的连接-->
<%Else%>
[下一页] [尾页]
<%End If%>
<!--否则，当前页数不大于1，则只显示尾页和下一页的连接-->
<%Else%>
[首页] [上一页]
[<a Href="admin_newslist.asp?page=<% = page + 1%>">下一页</a>]
[<a Href="admin_newslist.asp?page=<% = Rs.PageCount%>">尾页</a>]
<%End If %>
<!--最终，总页数若为1、为0则没有任何连接-->
<%Else%>
[首页] [上一页] [下一页] [尾页]
<%End If%>
[页次:<font color=red><b><%=page%></b></font>/<%=Rs.PageCount%>]
[共<%=Rs.RecordCount%>条新闻 <font color=red><b><%=Rs.PageSize%></b></font>条新闻/页]
转到<input name="page" size=5 value="<%=page%>">页
<input name="Submit" type="submit" id="Submit" value="Go">
</form></td>
<td width="100" height="25" > </td>
<td width="100" height="25" > </td>
</tr>
</table>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</body>
</html>