⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_cls.asp

📁 他是一个asp+access的多用户留言板!
💻 ASP
字号:

<!-- #include file="密码验证.asp" -->
<%

if NOIPUserTit<>"管理员" and NOIPUserTit<>"班长" then Response.Status="404" : Response.End



if Request("CLS_NAME")<>"" then
   
     set rs = server.CreateObject("ADODB.Recordset")  
     rs.open "SELECT * FROM 班级 WHERE id=" & classnum ,conn ,3,3
     rs("班名")=Request("CLS_NAME")
     rs("URL")=Request("CLS_URL")
     rs("EMAIL")=Request("CLS_EMAIL")
     rs("logo")=Request("CLS_LOGO")
     if Request("CLS_MASTER")<>"" and NOIPUserTit="管理员" then 
         if name2id(Request("CLS_MASTER")) = -1 then banzhang=0 else banzhang=name2id(Request("CLS_MASTER"))
         rs("班长")= banzhang
     end if
     rs.Update
     rs.Close
     set rs= nothing
     if Request.QueryString("admin")="1" then Response.Redirect "admin.asp?class=" & classnum else  Response.Redirect "admin_cls.asp?class=" & classnum
end if

%>

<BODY>
<STYLE>
<!--
.sec_menu {
	BORDER-RIGHT: white 1px solid; BACKGROUND: #d6dff7; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid
}

-->
</STYLE>

<%title=CLS_NAME & "----班长管理"%>
<!-- #include file="head.asp" -->
<script language=VBScript>
top.document.title="<%=CLS_NAME%>  --班长管理"
if instr(1,top.location,"index.asp")=  0 then top.location="index.asp?url=" & replace(self.location ,"&","%26")
</script>
<%if Request.QueryString("login")="ok" then %>
  <SCRIPT>
  if(self.top.location!=self.location  )
  {
    top.document.frames["carnoc"].location.reload
  }
  </SCRIPT>
  
  
  <%end if
%>
<%valigntop()%>
<span >

</span>
<table cellspacing="1" cellpadding="0" width="97%" align="center" border="0" class="a2" height="25">
<tr height="25" id=TableTitleLink>
	<td width="100%" height="23" class="a1" align="middle">
	<span><b><%=CLS_NAME%>  --班长管理</b></span></td></tr>
	
	
<center>
<span >
<table cellspacing="1" cellpadding="0" width="97%" align="center" border="0" class="a2" height="25">

<form method="POST" action="admin_cls.asp?class=<%=classnum%>">
 
  <tr height=25 class=a3 colspan=2> 

    <td width="25%">班名</td>
    
    <td><input size="45" value="<%=CLS_NAME %>" name="CLS_NAME">

    
        </td>
</a>
  </tr>


  <tr height=25 class=a3 colspan=2> 

    <td>LOGO</td>
    <td><input size="45" value="<%=CLS_LOGO%>" name="CLS_LOGO"></td>
</a>
  </tr>

 <tr height=25 class=a3 colspan=2> 

    <td>URL</td>
    <td>

<span >

    <input size="45" name="CLS_URL" value="<%=CLS_URL%>"></a></span></td>
  </tr>




 <tr height=25 class=a3 colspan=2> 

  <a name="addedit">
    <td>E-mail</td>
    <td><input size="45" name="CLS_EMAIL" value="<%=CLS_EMAIL%>"></td>
</a>
  </tr>




  <tr height=25 class=a3 colspan=5>
    <td colspan="5">
	
		<p align="center">


<input type="submit" value="修改" name="B1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="reset" value="重置" name="B2"></p>
		</td>
  </tr>
    	</form>
</table>

<span ><%valignbottom()%> </span></center> </table>

</span>







<!-- #include file="foot.asp" --></BODY></HTML>

⌨️ 快捷键说明

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