kemu_zt.asp

来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 32 行

<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<% 
dim action,id,sql
action=trim(request.querystring("action"))
id=clng(request.querystring("id"))
if action="lock.asp" then
sql="update kemu set zt='lock' where id="&id
conn.execute(sql)
conn.close
set conn=nothing
%>
<script language="vbscript">
msgbox("恭喜你关闭考试科目的操作成功~!")
window.location.href"kemu_gl.asp"
</script>
<%elseif action="unlock.asp" then
sql="update kemu set zt='unlock' where id="&id
conn.execute(sql)
conn.close
set conn=nothing
%>
<script language="vbscript">
msgbox("恭喜你开启考试科目的操作成功~!")
window.location.href"kemu_gl.asp"
</script>
<%else%>
<script language="vbscript">
msgbox("站长吻宇提示你非法操作~!")
window.location.href"admin.asp"
</script>
<%end if%>