📄 all_admin.asp

📁 oracle9i程序事例集
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
   <%
   dim connstr
   connstr="Driver={Microsoft ODBC for Oracle};server=mylink;uid=system;pwd=system;"
    %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {
	font-family: "黑体";
	font-size: 24px;
	font-weight: bold;
}
body {
	background-color: #435167;
}
-->
</style>
<link href="../../Css/bd_font_size.css" rel="stylesheet" type="text/css">
</head>

<body>

<div align="center">
<form action="all_admin.asp" method="post">
  <table width="582" border="0" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr>
      <td width="582" height="64" align="center" valign="middle" bgcolor="#868686"><span class="style1">浏览所有管理员信息</span></td>
    </tr>
    <tr>
      <td height="54" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr>
            <td width="187" height="27" align="center" valign="middle" bgcolor="#9E9E9E" class="bd_font_size">管理员账号</td>
            <td width="199" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">添加时间</td>
            <td width="196" align="center" valign="middle" bgcolor="#9E9E9E" class="bd_font_size">备注</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 GSCOTT.ADMIN_TABLE 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>
            <td height="27" valign="top" bgcolor="#CDCDCD"><%=rs("admin_id") %></td>
            <td valign="top" bgcolor="#CDCDCD"><%=rs("admin_time") %></td>
            <td valign="top" bgcolor="#CDCDCD"><%=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 %>
	</td>
    </tr>
    <tr>
      <td height="36">&nbsp;</td>
    </tr>
    <tr>
      <td height="54" valign="top">
	  
	  <form method="Post" action="<%=filename%>">
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr>
              <% If CurrentPage<2 Then  %>
            <td width="40" height="27" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">首页</td>
            <td width="39" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">上一页</td>
              <% Else %>
            <td width="40" height="27" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size"><a href=<%=filename%>?page=1>首页</a></td>
            <td width="39" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size"><a href=<%=filename%>?page=<%=CurrentPage-1%>>上一页</a></td>
              <% end if %>
              <% If n-currentpage<1 Then %>                 
		    <td width="40" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">下一页</td>
            <td width="40" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">末页</td>
            <% Else %>
			<td width="40" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size"><a href=<%=filename%>?page=<%=(CurrentPage+1)%>>下一页</a></td>
            <td width="40" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size"><a href=<%=filename%>?page=<%=n%>>末页</a></td>
             <% End If %>
            <td width="45" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">第<%=CurrentPage%>页</td>
            <td width="45" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">共<%=n%>页</td>
            <td width="90" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">共<%=totalnumber%>条记录</td>
            <td width="90" align="center" valign="middle" bgcolor="#D4D0C8" class="bd_font_size">每<%=maxperpage%>页条记录</td>
            <td width="153" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">跳转到
              <input type="text" name="page" size="2" value="<%=currentpage%>">
              页
            <input type="submit" name="cndok" value="跳转"></td>
          </tr>
          <tr align="right" valign="middle" bgcolor="#9E9E9E" class="bd_font_size">
            <td height="27" colspan="9"><a href="javascript:history.go(-1)">返回上一页</a>&nbsp;&nbsp;<a href="../index.asp">返回主页</a></td>
          </tr>
        </table></td>
    </tr>
    <tr>
      <td height="297">&nbsp;</td>
    </tr>
      </form>
</div>
<%
  End Function 
%>
</body>
</html>
⌨️ 快捷键说明

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