quxiao.asp

来自「该系统实现居域网网络考试和,系统平分轻松实现」· ASP 代码 · 共 25 行

<!--#include file="conn.asp"-->
<%
if session("admin")="" or session("key")="" then
response.Write("<script>alert('您好!您还没有登陆');window.location.href('login.asp')</script>")
response.end
end if
%>
<%
dim id
id=request.querystring("id")
if id<>"" then
set rs=server.createobject("adodb.recordset")
cmd="select * from userlogin where kaohao='"&id&"'"
rs.open cmd,conn,1,3
dim nowtime 
nowtime=now()
rs("logintime")=nowtime
rs("ip")="127.0.0.1"
rs.update
response.Write("<script>alert('已经取消了该考生的考试资格,若要恢复考试通过补考开通!');window.location.href('Manageuser.asp')</script>")
else
response.Write("<script>alert('请至少选择一个考生');window.location.href('Manageuser.asp')</script>")
response.end
end if
%>