check.asp

来自「考试系统asp环境下开发,access数据库」· ASP 代码 · 共 37 行

<%
if request.form("student")="" or request.form("pass")="" then
response.redirect "error.asp?err_on=2"
end if
%>
<!-- #include file="conn.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from studentinfo where student='"&request.form("student")&"'"
rs.open sql,conn,1,1
if not rs.eof then
 if trim(rs("pass"))=trim(request.form("pass")) then
  if request.cookies("studentname")=request.form("student") then
   response.redirect "ks.asp"
   else
  response.cookies("studentname")=trim(rs("student"))
  response.cookies("studentname").expires=dateadd("d",1,date)
  rs.close
  set rs=nothing
  response.redirect "kstype.asp"
  end if
 else
  rs.close
  set rs=nothing
  response.redirect "error.asp?err_on=3"
 end if
else
rs.close
set rs=nothing
response.redirect "error.asp?err_on=4"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>