📄 show_detail_info.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%const need_purview=3%>
<!--#include file="../purview.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../lockip.asp"-->
<!--#include file="../check_function.asp"-->
<!--#include file="show_error.asp"-->
<%
response.expires=now()-1
Response.CacheControl = "no-cache"
dim action,id,is_lock
action=lcase(trim(request.querystring("action")))
id=request.querystring("id")
'response.write id
'is_lock=request.querystring("Is_lock")
'or (not (is_lock="锁定" or is_lock="解锁"))
if check_num(id,"非法参数！") then
'response.write id
finderror=true
call Iserror()
response.end
end if
select case action
case "update_manager"
dim sql_50
sql_50="select * from eric_manager where id=" & id
call opendb()
set rs=conn.execute (sql_50)
do while not rs.eof
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="file:///D|/homework_system/main/eric.css" rel="stylesheet" type="text/css">
</head>
<body>
<form name="add_manager" method="post" action="admin_check.asp?action=admin_manager&target=<%=rs("id")%>">
<table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_01">
<tr>
<td width="120" class="white_bold_blue">添加管理组成员</td>
<td width="240" class="white_bold_blue"> </td>
<td width="212" class="white_bold_blue">说明:</td>
</tr>
<tr>
<td>用户名：</td>
<td><%=rs("eric_manager")%></td>
<td>请使用英文1-20</td>
</tr>
<tr>
<td>姓名：</td>
<td><%=rs("teacher")%></td>
<td>当前不允许更必名称，后继版本会支持</td>
</tr>
<tr>
<td>备注：</td>
<td> <textarea name="remark" cols="30" rows="3" class="input_textarea_01" id="remark"><%=rs("remark")%></textarea></td>
<td>可以不填</td>
</tr>
<tr>
<td colspan="3" class="center"><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="返回" onclick="history.go(-1)"></td>
</tr>
</table>
</form>
</body>
</html>
<%
rs.movenext
loop
call closers()
call closedb()
case "del_manager"
call opendb()
set rs=conn.execute("select * from eric_manager where id=" & id)
if rs("purview")=3 then
conn.execute("delete * from eric_manager where id=" & id)
call closedb()
response.redirect "../show_success.asp?info=删除管理员操作成功！"
response.end
else
teacher=rs("teacher")'教师姓名，中文
call closers()
'删除eric_manager表中相关内容
conn.execute("delete * from eric_manager where id=" & id)
set rs=conn.execute("select * from class where parentid='0' and classname='" & teacher & "'")
teacher_id=rs("id")
child_id=rs("childid")
if not rs.eof and not(isnull(child_id) or child_id="") then'如果记录集不为空，且班级不为无则执行以下操作
call closers()
set rs=conn.execute("select * from class where parentid<>'0'")
if not rs.eof then
do while not rs.eof'删除该教师的班级
if left(trim(rs("parentstr")),len(trim(teacher_id)))=cstr(teacher_id) then conn.execute("delete * from class where id=" & rs("id"))'attention:这里teacher_id变量为自动编号类型，与字符比较应用cstr转换
rs.movenext
loop
call closers()
end if
conn.execute("delete * from class where id=" & teacher_id)
'删除homework表中的相关内容
conn.execute("delete * from homework where teacher_name='" & teacher & "'")
'删除upload_inof中相关内容
conn.execute("delete * from upload_info where teacher='" & teacher & "'")
'删除eric_member中相关学生的注册内容
conn.execute("delete * from eric_member where teacher='" & teacher & "'")
'删除相关文件夹
'创建一个FileSystemObject对象的实例
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'生成文件夹路径
folder_path=server.mappath("..\upload\" & teacher)
'删除这个文件夹
fs.DeleteFolder (folder_path)
set fs=nothing
response.redirect "../show_success.asp?info=操作成功！已经删除与该教师相关的所有内容，如果误操作请与系统管理员联系！--><a href='control/admin_main.asp' target='_parent'>返回管理首页</a>"
else
call error("没有该教师！系统出现未知错误，请与系统管理员联系！")
call Iserror()
response.end
end if
end if
case "lock_manager"
is_lock=request.querystring("Is_lock")
if not (is_lock="锁定" or is_lock="解锁") then
call error("非法参数")
call Iserror()
response.end
end if
'response.write "dd"
'if is_lock="锁定" then
'response.write "锁定"
'elseif is_lock="解锁" then
'response.write "解锁"
'end if
dim sql_60
if is_lock="锁定" then
'response.write "ddtt"
sql_60="update eric_manager set Is_lock=true where id=" & id
call opendb()
conn.execute(sql_60)
call closedb()
response.redirect "../show_success.asp?info=" & is_lock & "操作成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首页</a>"
response.end
elseif is_lock="解锁" then
sql_60="update eric_manager set Is_lock=false where id=" & id
call opendb()
conn.execute(sql_60)
call closedb()
response.redirect "../show_success.asp?info=" & is_lock & "操作成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首页</a>"
response.end
end if
case else
call error("非法参数！")
call error("<a href='http://jjxy.zj.com'>前往-->Eric工作室</a>")
call Iserror()
response.end
end select
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -