user_zt.asp

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

<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<%
action=trim(request.QueryString("action"))
id=request.querystring("id")
if action="lock" then
dim rs,sql
dim kt
kt="lock"
set rs=server.createobject("adodb.recordset")
sql="select * from user where id="&id&""
rs.open sql,conn,2,3
rs("kt")=kt
rs.update
rs.close
set rs=nothing
set conn=nothing
%>
<script language="vbscript">
msgbox("恭喜你成功锁定改考生的状态~!")
window.location.href"user_gl.asp"
</script>
<%
elseif action="unlock" then
kt="unlock"
set rs=server.createobject("adodb.recordset")
sql="select * from user where id="&id&""
rs.open sql,conn,2,3
rs("kt")=kt
rs.update
rs.close
set rs=nothing
set conn=nothing
%>
<script language="vbscript">
msgbox("恭喜你解除该考生的操作成功~!")
window.location.href"user_gl.asp"
</script>
<%else%>
<script language="vbscript">
msgbox("吻宇提示你非法操作")
window.location.href"user_gl.asp"
</script>
<%end if%>