📄 all_admin.asp

📁 oracle9i程序事例集
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" %>
<!-- #include file="../common/conn.asp" -->
<!-- #include file="../common/status.html" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>浏览全部管理员信息</title>
<% if session("admin_id")<>"admin" then %>
  您还没有登录或者您的权限不够，五秒钟后自动返回登录，如果您的浏览器没有自动返回，请<a href="../admin/login.html">点击登录</a>。
  <meta http-equiv="refresh" content="5;url=login.html">
<% else %>
<style type="text/css">
<!--
.style2 {font-size: x-small}
-->
</style>
</head>
<body background="../img/adminbg.gif">
<div align="center"><center>
<table width="700" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="30" colspan="3" align="center" bgcolor="#0000FF"><font color="#FFFFFF">全部管理员信息</font></td>
  </tr>
  <tr align="center">
    <td width="25%" height="30">管理员帐号</td>
    <td width="25%">添加时间</td>
    <td width="25%">备注</td>
  </tr>
<%
  Const MaxPerPage=5
  dim totalPut   
  dim CurrentPage
  dim TotalPages
  dim j
  dim sql
  if Not isempty(request("page")) then
     currentPage=Cint(request("page"))
  else
     currentPage=1
  end if 
  
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from scott.admin order by admin_time" 
  rs.open sql,connstr,1,1
		  
  if err.number<>0 then
	 response.write "<p>数据库中暂时无数据</p>"
  end if
				
  if rs.eof And rs.bof then
     Response.Write "<p> 对不起，目前还没有管理员！</p>"
  else
	 totalPut=rs.recordcount

  if currentpage<1 then
     currentpage=1
  end if

  if (currentpage-1)*MaxPerPage>totalput then
	 if (totalPut mod MaxPerPage)=0 then
	 	currentpage= totalPut \ MaxPerPage
	 else
	 	currentpage= totalPut \ MaxPerPage + 1
	 end if
  end if

  if currentPage=1 then
   	 showContent
     showpage totalput,MaxPerPage,"all_admin.asp"
  else
     if (currentPage-1)*MaxPerPage<totalPut then
        rs.move  (currentPage-1)*MaxPerPage
        dim bookmark
        bookmark=rs.bookmark
        showContent
        showpage totalput,MaxPerPage,"all_admin.asp"
     else
	    currentPage=1
        showContent
        showpage totalput,MaxPerPage,"all_admin.asp"
	 end if
  end if
  end if

  sub showContent
      dim i
	  i=0

  do while not rs.eof
%>
  <tr align="center">
  <td height="25"><%=rs("admin_id") %></td>
  <td><%=rs("admin_time") %></td>
  <td><%=rs("admin_remark") %></td>
  </tr>
<%
  i=i+1
  if i>=MaxPerPage then exit do
  rs.MoveNext
  loop
  rs.Close
  set rs=nothing
%>
</table>
<% 
  end sub
  
  Function showpage(totalnumber,maxperpage,filename)  
  Dim n
  				
  If totalnumber Mod maxperpage=0 Then  
	 n= totalnumber \ maxperpage  
  Else
	 n= totalnumber \ maxperpage+1  
  End If %>
<form method="Post" action="<%=filename%>">
<table width="700" border="0" cellspacing="0" cellpadding="0">
  <tr align="center">
  <% If CurrentPage<2 Then  %>
    <td width="8%" height="25"><span class="style2">首页</span></td>
    <td width="8%"><span class="style2">上一页</span></td>
  <% Else %>
    <td width="8%"><a href=<%=filename%>?page=1 class="style2">首页</a></td>
    <td width="8%"><a href=<%=filename%>?page=<%=CurrentPage-1%> class="style2">上一页</a></td>
  <% end if %>
  <% If n-currentpage<1 Then %>
    <td width="8%"><span class="style2">下一页</span></td>
    <td width="8%"><span class="style2">末页</span></td>
  <% Else %>
    <td width="8%"><a href=<%=filename%>?page=<%=(CurrentPage+1)%>><span class="style2">下一页</span></a></td>
    <td width="8%"><a href=<%=filename%>?page=<%=n%> class="style2">末页</a></td>
  <% end if %>
    <td width="8%"><span class="style2">第<%=CurrentPage%>页</span></td>
    <td width="8%" class="style2">共<%=n%>页</td>
    <td width="16%" height="25" colspan="2" align="center" class="style2">共<%=totalnumber%>条记录</td>
    <td width="16%" colspan="2" align="center" class="style2">每页<%=maxperpage%>条记录</td>
    <td colspan="2" align="center" width="20%"><span class="style2">转到第
        <input type="text" name="page" size="2" maxlength="10" value="<%=currentpage%>">
      页</span>    <input type="submit" value="跳转" name="cndok"></td>
  </tr>
  <tr><td>&nbsp;</td></tr>
  <tr><td height="20" colspan="13" align="right"><a href="javascript:history.go(-1)" class="style2">返回上一页</a>&nbsp;&nbsp;<a href="index.asp" class="style2">返回主页</a></td>
  </tr>
</table>
</form>
<%
  End Function 
%>
</center></div>
<% end if %>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -