takesec.asp

来自「中国创网同学录1.02」· ASP 代码 · 共 39 行

<%@ Language=VBScript %>
<!--#include file=globals.asp -->
<%
userid=trim(session("userid"))
curclassid=trim(session("classid"))
curmonitor1=trim(request.form("monitor1"))
if userid="" then
    response.redirect "../error.asp?info=对不起，您已经掉线了，请重新申请！"
end if
set rs = createobject("ADODB.recordset")
sql="select * from classinfo where classid='"&curclassid&"'"
rs.open SQL,schooldb
if not rs.eof then
   monitor=rs("monitor")
  
end if
rs.close
if userid<>monitor  then
   response.redirect "../error.asp?info=对不起，您不是正管理员无权进入！"
end if  

if curmonitor1<> "" then
   sql="select * from userjoinclassinfo where classid='"&curclassid&"' and userid='"&curmonitor1&"'"
 
   rs.open SQL,schooldb
   if rs.eof then
      response.redirect "../error.asp?info=对不起，您所要加的副管理员不是本班成员！"
   end if
   rs.close 
end if
sql="select * from classinfo where classid='"&curclassid&"'"
rs.open SQL,schooldb,1,3
if not rs.eof then
   rs("monitor1")=curmonitor1
   rs.update
end if
rs.close
response.redirect "../success.asp?info= 修改副管理员成功了！"  
%>