loginchick.asp

1.本考试系统没有任何商业利益,请大家放心使用 2.本人进行了一些修改和界面美化 3.本考试系统考试题题型均为单选题,

<!--#include file="include\conn.asp"-->

<%
user=request.Form("user")
password=request.Form("password")
'验证用户是否输入空用户名和密码
if user="" then
response.Write("<script>alert('考号不能为空!');window.location.href('login.asp')</script>")
response.end
end if
if password="" then
response.Write("<script>alert('密码不能为空!');window.location.href('login.asp')</script>")
response.end
end if
'验证用户是否输入正确的用户名和密码
Set rs=server.CreateObject("adodb.recordset")
sql="select * from UserLogin where kaohao='"&user&"' and passwd='"&password&"'"
rs.open sql,conn
if not rs.eof then
session("user")=rs("user")
dim logintime,ip,user1
logintime=now()
user1=session("user")
ip=request.ServerVariables("REMOTE_addr")
Set rs1=server.CreateObject("adodb.recordset")
cmd1="select * from userlogin where user='"&user1&"'"
rs1.open cmd1,conn,1,3
'判断用户是否参加过考试
if rs1("logintime")<>"" and rs1("ip")<>"" then
response.Write("<script>alert('您已经参加过这次考试了!');window.location.href('login.asp')</script>")
response.end
else
rs1("logintime")=logintime
rs1("ip")=ip
rs1.update
rs1.close
response.redirect("default.asp")
end if
else
response.Write("<script>alert('考号和密码有误!');window.location.href('login.asp')</script>")
response.end
end if
%>