ksok.asp

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

<!-- #include file="cookies.asp" -->
<!-- #include file="kstime.asp" -->
<%
if request.form("da")="" then
response.redirect "error.asp?err_on=1"
end if
%>
<!-- #include file="conn.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from ks where id="&request.form("ksid")
rs.open sql,conn,1,1
if not rs.eof then
dim yes
if trim(rs("da"))=trim(request.form("da")) then
yes="yes"
else
yes="no"
end if
end if
rs.close
set rs=nothing
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from ksa where ksid="&request.form("ksid")
rs.open sql,conn,1,1
dim kss
if not rs.eof then
kss="y"
else
kss="n"
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
if kss="y" then
sql="select * from ksa where ksid="&request.form("ksid")
else
sql="select * from ksa"
end if
rs.open sql,conn,1,3
if kss="n" then
rs.addnew
end if
rs("ksid")=request.form("ksid")
rs("student")=request.cookies("studentname")
rs("da")=request.form("da")
rs("kstypeid")=request.cookies("kstypeid")
if yes="yes" then
rs("yes")=True
else
rs("yes")=False
end if
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
if request.form("ksxg")<>"yes" then
response.redirect "ksright.asp?page="&request.form("page")&""
else
response.redirect "ksjc.asp"
end if
%>