adminvip.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="bjhead.asp"-->
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid" 
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
  <TBODY>
  <TR vAlign=top>
    <TD bgColor=#cccccc><IMG height=1 alt="" src="../image/stu.htm" width=1 
      name=""></TD>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
      bgColor=#ffffff border=0>
        <TBODY>
        <TR>
          <TD height=8 bgColor=#f4f4f4></TD></TR>
          <TD>
 <TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse" 
            cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top>
                  <TABLE width="100%" 
                  border=0 align="center" cellPadding=3 cellSpacing=0 
                  borderColor=#111111 id=AutoNumber5 style="BORDER-COLLAPSE: collapse">
                    <TBODY>
                    <TR>
                      <TD class=6 width=495 background=../image/type_bg.gif><IMG height=12 src="../image/type01.gif" width=12 
                        align=absMiddle> <span class="style4">当前位置:</span> <A 
            href="index.asp?clas=<%=session("clas")%>">网站首页</A> - <A 
            href="?clas=<%=session("clas")%>" style="color: #FF99CC"><%=session("clas")%>班级管理</A></TD>
                      <TD width=100 background=../image/type_bg.gif>
                        <DIV align=center><IMG 
                        src="../image/more.gif" 
                    border=0></DIV></TD></TR><TR>
                      <TD colSpan=2>
                        <DIV align=center>
<%dim username,sql,type2,ad,id,use
username=Session("wzname")
use=request.querystring("use")
clas=Session("clas")
type2=request.queryString("type2")
set rs=Server.CreateObject("Adodb.Recordset")
	sql="select * from bj where bjname = '" &clas& "'"
	rs.open sql,conn,1,3
	if rs("adminname")<>Session("wzname") then
Response.Write("兄弟，你的权力不够啊！快来给我送点礼吧")
	Response.Write("<br>")
	Response.Write("<a href='javascript:history.go(-1)'><font color=red size=2>哎，回去吧</font></a>")
		rs.close
	set rs=nothing
	else
Select Case type2
	Case "del":
		Call del
	Case Else:
		 call show
End Select 
end if
sub show
Dim rs,cur,rowcount,i,clas
 clas=Session("clas")
	set rs=Server.CreateObject("Adodb.Recordset")
	sql="select * from user where userclass = '" &clas& "' order by joindate desc"
	rs.open sql,conn,1,3
cur=request.form("cur")
if cur="" then
cur=1
end if
rs.pagesize=30
rs.absolutepage=cint(cur)
rowcount=0%>
<table width="100%"  cellspacing="0">
                            <tr>
                              <td>
<table width="100%"  cellspacing="0">
   <tr>
    <td width="19%"><a href="adminbj.asp">班级资料</a></td>
    <td width="19%"><a href="admingg.asp">发布公告</a></td>
    <td width="19%"><a href="adminvip.asp">成员管理</a></td>
    <td width="13%"><a href="adminvote.asp">班级投票</a></td>
    <td width="11%"><a href="adminsong.asp">歌曲管理</a></td>
    <td width="19%"><a href="adminmove.asp">移交大权</a></td>
    </tr>
</table>
</td> 
                            </tr>
                            <tr>
                              <td>&nbsp;</td>
                            </tr>
							 <tr>
                              <td><table width="100%" border="1" cellpadding="1"  cellspacing="1" bordercolor="#FFD21D">
                                <tr>
                                  <td width="13%"><div align="center">姓名</div></td>
                                  <td width="14%"><div align="center">用户名</div></td>
                                  <td width="11%"><div align="center">QQ</div></td>
                                  <td width="26%"><div align="center">生日</div></td>
                                  <td width="28%"><div align="center">注册日期</div></td>
                                  <td width="8%"><div align="center">操作</div></td>
                                </tr>
 <%do while not rs.eof and rowcount<rs.pagesize%>
							    <tr>
                                  <td height="17"><a href="../datum.asp?username=<%=rs("username")%>"><%=rs("username")%></a></td>
                                  <td><%=rs("name")%></td>
                                  <td><%=rs("qq")%></td>
                                  <td><%=rs("userbirthday")%></td>
                                  <td><%=rs("joindate")%></td>
                                  <td><div align="center"><a href="?type2=del&use=<%=rs("username")%>" onClick="return confirm('真的要删除？')">踢出班级</a></div></td>
                                </tr>
<%rowcount=rowcount+1
				rs.movenext
      loop%>
                              </table></td>
                            </tr>
							 <tr>
                              <td><table width="100%"  border="0">
  <tr><form name="form2" method="post" action=""><TD align=left bgcolor="#FEE571"><span class="style2 style4">共<%=rs.recordcount%>人　 分<%=rs.pagecount%>页　　每页30人　　　当前页次：<%=cur%>/<%=rs.pagecount%>　　　　　　　　　　　　　　　　　
    转到: 
                      <select name="cur" size="1" onchange="javascript:submit()">
  <%for i = 1 to rs.pagecount%>              
    <option value="<%=i%>" <%if i=cint(cur) then%> selected <%end if%>>第<%=i%>页 </option>   
    <%next%>   
                      </select>
                      <%
  rs.close
	 set rs=nothing%>
</span></td>
  </form>
  </tr>
</table></td>
                            </tr>
                          </table>
<%
end sub
sub del
set rs=Server.CreateObject("Adodb.Recordset")
	sql="select * from user where username='"&use&"'"
rs.open sql,conn,1,3
		rs("userclass")="在校学生"
	rs.update
	rs.close
	set rs=nothing
Response.Redirect "adminvip.asp"
end sub%>
                      </DIV></TR></TBODY>
                  </TABLE>
                 </TD></TR></TBODY></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="../bottom.asp"--></BODY></HTML>