www.gusucode.com > 随缘网络产品管理系统 2.0码程序 > manage/editabout.asp

    <!--#include file="conn.asp"-->
<%
if not session("check")="checked" then
response.Redirect "login.asp"
end if
%>
<html>
<head>
<link href="images/private.css" rel="stylesheet" type="text/css" />
<script language='javascript' src='images/private.js'></SCRIPT>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>综合管理</title>
</head>

<body >
<form method=Post action="editnews.asp"> 

	<table border=0 cellspacing=1 align=center class=navi>
	<tr>
	  <th>当前位置:综合管理 &gt;&gt; 栏目管理</th>
	</tr>
	</table>
<br>
<table width="75%" border="0" align="center" cellpadding="0" cellspacing="1" class="list">
  <tr> 
    <th width="100%" height="25" align="center" bgcolor="#FF0000" colspan="3">
	<a href="about.asp"><span style="text-decoration: none">
    <font color="#FFFFFF">栏目添加</font></span></a></th>
  </tr>
  <tr> 
    <td width="5%" height="25" align="center" bgcolor="#FF0000"><span class="style1">ID</span></td>
    <td width="26%" align="center" bgcolor="#FF0000"><span class="style1">栏目标题</span></td>
    <td width="8%" align="center" bgcolor="#FF0000"><span class="style1">操作</span></td>
  </tr>
  <%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from about"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有记录")
else
rs.PageSize=10
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page  
    
for j=1 to rs.PageSize 
%>
  <tr bgcolor="#FFFFFF"> 
    <td height="22" align="center"><%=rs("id")%></td>
    <td align=center><%=left(rs("title"),12)%></td>
    <td align="center"><a href="about.asp?id=<%=rs("id")%>">修改</a><% if rs("id")>4 then%> <a href="delabout.asp?id=<%=rs("id")%>">删除<%else response.write "  默认"%><%end if%></a></td>
  </tr>
  <%
rs.movenext
if rs.eof then exit for
next                                                       
%>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="list" height="31">
  <tr bgcolor="#FFFFFF">  
      <td height="31" align="center"> 
    <%if Page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=editabout.asp?page=1>首页</a>&nbsp;"
    response.write "<a href=editabout.asp?page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=editabout.asp?page=" & (page+1) & ">"
    response.write "下一页</a> <a href=editabout.asp?page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次:<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span>"     
%>
      </td>
  </tr>
</table></form>
<% 
end if
rs.close
set rs=nothing
%>
</body>
</html>