kscheck.asp

这是ASP的网上考试系统。 希望大家来分享

<%
if request.cookies("kstypeid")<>"" and request.cookies("kstypeid")<>request.form("typeid") then
 response.redirect "error.asp?err_on=8"
end if
%>
<!-- #include file="conn.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from ksb where kstypeid="&request.form("typeid")&" and ksstudent='"&request.cookies("studentname")&"'"
rs.open sql,conn,1,1
if not rs.eof then
rs.close
set rs=nothing
response.redirect "error.asp?err_on=7"
end if
rs.close
set rs=nothing
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from kstype where id="&request.form("typeid")
rs.open sql,conn,1,1
if not rs.eof then
id=trim(rs("id"))
kstype=trim(rs("kstype"))
kstime=trim(rs("kstime"))
kk=trim(rs("kk"))
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
if kk<>"True" then
response.redirect "error.asp?err_on=5"
else
response.cookies("ksstarttime")=now()
response.cookies("ksstarttime").expires=dateadd("d",1,date)
response.cookies("kstypeid")=id
response.cookies("kstypeid").expires=dateadd("d",1,date)
response.cookies("kstype")=kstype
response.cookies("kstype").expires=dateadd("d",1,date)
response.cookies("kstime")=kstime
response.cookies("kstime").expires=dateadd("d",1,date)
response.redirect "ks.asp"
end if
%>