📄 useradmin.asp

📁 学生管理功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除
💻 ASP
字号:
<!--#include file="a25175_top.asp"-->
<link href="../25175css_pro.css" rel="stylesheet" type="text/css">

<!--#include file="../Function.asp"-->
<!--#include file="a25175_conn.asp"-->

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body>
<table width="970" height="550" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="188" rowspan="5" valign="top"><!--#include file="adminleft.asp"--></td>
    
  </tr>
  <tr>
    <td width="589" height="25" align="center" valign="middle" bgcolor="#FFFFFF">用户管理</td>
    <td width="9" rowspan="4" background=""></td>
  </tr>
  <tr>
    <td height="20" align="right" valign="middle" bgcolor="#FFFFFF"><a href="regok.asp" target="_self">添加用户</a></td>
  </tr>
  <tr>
    <td height="400" align="center" valign="top"><table width="95%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ADD7FF">
      <tr align="center" bgcolor="#ADD7FF">
        <td width="9%" height="25">用户ID</td>
        <td width="12%">真名</td>
        <td width="12%">所在院吸</td>
        <td width="10%">所在班级</td>
        <td width="12%">用户编号</td>
        <td width="12%">注册时间</td>
        <td width="9%">注册IP</td>
        <td width="8%">身份</td>
        <td width="7%">通过</td>
        <td width="9%">删除 </td>
      </tr>
	   <%			
		   
			j=1
				
            
			
			
	Dim rs,strSql
	
	Set rs=Server.CreateObject("ADODB.Recordset")
	 strsql="select * from USERInfo order by id"
	rs.Open strSql,db,3
	'查询记录
	If Not rs.Bof And Not rs.Eof Then
		'以下主要为了分页显示
		dim page_size                            '定义每页多少条记录变量
		dim page_no                             '定义当前是第几页变量
		dim page_total                           '定义总页数变量
		page_size=fenye                           '每页显示2条记录
		'如果第一次打开，则page_no为1，否则由传回的参数决定
		if Request.QueryString("page_no")="" then   
			page_no=1
		else
			page_no=Cint(Request.QueryString ("page_no"))  '用Cint将字符串变为整数
		end if
		rs.PageSize=page_size               '设置每页多少条记录
		page_total=rs.PageCount          '返回总页数
		rs.AbsolutePage=page_no           '设置当前显示第几页
		'下面一段显示当前页的所有记录
		Dim I
		I=page_size  
		
		 do while NOt rs.eof and I>0
		 I=I-1
		  %>
      <tr align="center" bgcolor="#FFFFFF">
        <td height="25"><%=rs("username")%></td>
        <td><a href="#" onClick="MM_openBrWindow('displayUser.asp?username=<%=rs("username")%>','用户信息','width=300,height=370')"><%=rs("realname")%></a></td>
        <td><%=rs("depart")%></td>
        <td><%=rs("class1")%></td>
        <td><%=rs("num")%></td>
        <td><%=rs("submitdate")%></td>
        <td><%=rs("ip")%></td>
        <td>
		
		<%
		if rs("typed")=1 then
		str1="领导"
		elseif rs("typed")=2 then
		str1="督导"
		elseif rs("typed")=3 then
		str1="学生"
		else
		str1="教师"
		end if
		%>
		<a href="#" onClick="MM_openBrWindow('UserIM.asp?username=<%=rs("username")%>','0000','scrollbars=yes,width=300,height=300')">
		<%
		response.Write str1
		%></a></td>
        <td>
		<% if rs("typedok")=0 then
		
		 
		response.Write "<a href='USERTONGGUO.ASP?ID="&rs("id")&"&USERTYPED="&RS("TYPEDOK")&"'><img src=images/tongguo.gif width=31 height=20 border=0 alt='已禁止'></a>"
		else
		response.Write "<a href='USERTONGGUO.ASP?ID="&rs("id")&"&USERTYPED="&RS("TYPEDOK")&"'><img src=images/jinzhi.gif width=31 height=20 border=0 alt='已通过'></a>"
		end if
		%>
		</td>
        <td><a href=userdel.asp?username=<%=rs("username")%>&REALNAME=<%=rs("REALNAME")%>&DEPART=<%=rs("DEPART")%> target="_self">删除</a></td>
      </tr>
	  <%  
	  j=j+1
	  rs.movenext
	  loop
	  %>
       
    </table></td>
  </tr>
  <tr>
    <td height="50" align="right" valign="top"><%
		
		'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接
		For I=1 To page_total                        
			If I=page_no Then                        
				Response.Write "【"& I &"】" & "&nbsp"
			Else
				Response.Write "<a href='useradmin.asp?page_no=" & I & "'>" &"【"& I &"】"& "</a>&nbsp"
			End If
		Next
	End if
	'关闭对象就省略了 
	%></td>
  </tr>
</table>
</body>
</html>
<% databaseclose()%>
<!--#include file="../foot.asp"-->
⌨️ 快捷键说明

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