📄 approveman.asp

📁 本同学录系统演示地址:　http://class.19870123.cn/ 下载后请在Web.Config里更改设置,如数据库路径等如果要换sql数据库,请将app_code里的MyPage
💻 ASP
字号:
<!-- #include file="../ConnDB.asp" -->
<!-- #include File="../class/Person.asp"-->

<!--#include file="isAdmin.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>加入申请管理</title>
<link href="../style.css" rel="stylesheet">
<script language="javascript">
function newWin(url) {
  var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
  oth = oth+",width=400,height=300";
  var newWin = window.open(url,"newWin",oth);
  newWin.focus();
  return false;
}
</script>
<style type="text/css">
<!--
.STYLE1 {
	color: #990000;
	font-weight: bold;
}
-->
</style>
</head>
<body link="#000080" vlink="#080080">
<form name="form1" method="POST">
<%
  '从表Person中获取所有注册用户的个人信息
  set objPerson = new Person
  objPerson.GetPersonlist
  '如果rs为空，则显示提示信息
  If objPerson.rs.EOF Then
    Response.Write "<tr><td colspan=5 align=center>目前还没有申请加入的用户。</td></tr></table>"
  Else
%>
<p align=center class="STYLE1"><font style='FONT-SIZE:12pt'>申请加入用户列表</font></p>
<table align=center border="1" cellspacing="0" width="100%" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" style='FONT-SIZE: 9pt'>
  <tr bgcolor="#FFCCFF">
   <td width="8%" align="center"><strong>用户名</strong></td>
   <td width="10%" align="center"><strong>姓名</strong></td>
   <td width="8%" align="center"><strong>性别</strong></td>
   <td width="10%" align="center"><strong>通讯地址</strong></td>
   <td width="8%" align="center"><strong>邮编</strong></td>
   <td width="8%" align="center"><strong>电子邮件</strong></td>
   <td width="8%" align="center"><strong>固定电话</strong></td>
   <td width="8%" align="center"><strong>移动电话</strong></td>
   <td width="8%" align="center"><strong>单位</strong></td>
   <td width="8%" align="center"><strong>生日</strong></td>
   <td width="8%" align="center"><strong>批准</strong></td>
   <td width="8%" align="center"><strong>删除</strong></td>
  </tr>
<%
    '设置每页记录数量为15
	objPerson.rs.PageSize = 15
	'设置并读取页码参数page
	iPage = CLng(Request("page"))
	If iPage <=0 Then
	  iPage = 1
	End If
	If iPage > objPerson.rs.PageCount Then
	  iPage = objPerson.rs.PageCount
	End If
    
    RowCount = objPerson.rs.PageSize
    '依次显示公告信息
    Do While Not objPerson.rs.EOF And RowCount > 0 
	  If objPerson.rs("Status")=0 Then
%>
  <tr>
    <td align="center"><%=objPerson.rs("UserId")%>&nbsp;</td>
    <td align="center"><%=objPerson.rs("Name")%>&nbsp;</td>
    <td align="center">
	<% if objPerson.rs("Sex")=0 then
		 response.write "男"
	   else
	     response.write "女"
	   end if
	%>&nbsp;</td>
    <td align="center"><%=objPerson.rs("Address")%>&nbsp;</td>
    <td align="center"><%=objPerson.rs("Postcode")%>&nbsp;</td>
    <td align="center"><%=objPerson.rs("Email")%>&nbsp;</td>
    <td align="center"><%=objPerson.rs("Telephone")%>&nbsp;</td>
    <td align="center"><%=objPerson.rs("Mobile")%>&nbsp;</td>
    <td align="center"><%=objPerson.rs("Company")%>&nbsp;</td>
    <td align="center"><%=objPerson.rs("Birthday")%>&nbsp;</td>
    <td align="center"><a href=#  onclick="return newWin('Approve.asp?uid=<%=objPerson.rs("UserId")%>')"  >批准&nbsp;</a></td>
    <td align="center"><a href=#  onclick="return newWin('PersonDelt.asp?uid=<%=objPerson.rs("UserId")%>')"  >删除&nbsp;</a></td>
  </tr>
<%
      End If
      objPerson.rs.MoveNext()
      '控制每页显示记录的数量
      RowCount = RowCount - 1
    Loop
%>
</table>
<%
    '显示页码链接
    If objPerson.rs.PageCount>1 then
      Response.Write "<table border='0'><tr><td><b>分页：</b></td>"
      For i=1 to rs.PageCount
        Response.Write "<td><a href='AddresslistMan.asp?page=" & i & "'>"
        Response.Write "[<b>" & i & "</b>]</a></td>"
      Next
      Response.Write "</tr></table>"
    End If
  End If
%>
		
</form>
</body>
</html>
⌨️ 快捷键说明

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