ks.asp

吻宇考试管理系统源码 吻宇考试管理系统源码

<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<%
dim wzrs,wzsql,wyrs,wysql
dim wzid,namer
wzid=request.querystring("id")
set wyrs=server.CreateObject("adodb.recordset")
wysql="select * from kemu where id="&wzid&""
wyrs.open wysql,conn,1,1
namer=wyrs("name")
if wyrs("zt")="unlock" then
set wzrs=server.CreateObject("adodb.recordset")
wzsql="select * from score where kemu='"&namer&"' and username='"&request.cookies("name")&"'"
wzrs.open wzsql,conn,1,1
if not wzrs.eof then
%>
<script language="vbscript">
msgbox("你已经参加过了本门考试,请返回~!")
window.location.href"ksindex.asp"
</script>
<%
else
session("kemu")=wyrs("name")
session("dxts")=wyrs("dxts")
session("sxts")=wyrs("sxts")
session("dxfs")=wyrs("dxfs")
session("sxfs")=wyrs("sxfs")
session("zongf")=wyrs("zongf")
session("xztime")=wyrs("xztime")
session("passfs")=wyrs("passfs")
response.redirect"test.asp"
end if
wzrs.close
wyrs.close
set wzrs=nothing
set wyrs=nothing
set conn=nothing
else
%>
<script language="vbscript">
msgbox("此科目当前的状态为关闭~!暂时不能进行考试~!")
window.location.href"ksindex.asp"
</script>
<%
end if%>