最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
案例:如何实现网上考试？
时间：2022-06-30 11:30:11 编辑：袖梨 来源：一聚教程网
下面就是满足你设想的几个主程序，你还可以在实际应用中不断完善和扩充：
login.asp
' 考生验证
<％@ Language=VBScript％>
<％
name=trim(request("name"))
passwd=trim(request("passwd"))
if name<>"" and passwd<>"" then
' 检查考生是否输入用户名和密码
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver(＊.mdb)};
dbq="＆ Server.MapPat("exercise.mdb")
set rs= server.createobject("adodb.recordset")
sql= "select ＊ from user where user=
'" ＆name＆"' and passwd='" ＆ passwd ＆"'"
Set rs= conn.Execute(sql)
' 验证考生合法性
if not(rs.eof) then
if rs("score")<>0 then
' 检查考生是否已参加过考试,若是则进行成绩查询
response.write rs("user")＆"的考试成绩是"＆rs("score")
else
session("pass")=1
session("user")=name
response.redirect "test.asp"
end if
else
Response.Write "噢,您输入的用户名或密码不正确!"
end if
else
end if
％>
>
精彩春风之考生登录
FORM1 method=post name=FORM1>
login.asp
' 考生验证
<％@ Language=VBScript％>
<％
name=trim(request("name"))
passwd=trim(request("passwd"))
if name<>"" and passwd<>"" then
' 检查考生是否输入用户名和密码
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver(＊.mdb)};
dbq="＆ Server.MapPat("exercise.mdb")
set rs= server.createobject("adodb.recordset")
sql= "select ＊ from user where user=
'" ＆name＆"' and passwd='" ＆ passwd ＆"'"
Set rs= conn.Execute(sql)
' 验证考生合法性
if not(rs.eof) then
if rs("score")<>0 then
' 检查考生是否已参加过考试,若是则进行成绩查询
response.write rs("user")＆"的考试成绩是"＆rs("score")
else
session("pass")=1
session("user")=name
response.redirect "test.asp"
end if
else
Response.Write "噢,您输入的用户名或密码不正确!"
end if
else
end if
％>
FORM1 method=post name=FORM1>
＆nbsp;
＆nbsp;
考生:
密码:
相关文章
- 解限机阿奎纳怎么打 阿奎纳进阶挑战通关攻略 07-07
- 解限机鸣神怎么打 鸣神进阶挑战通关攻略 07-07
- 解限机剑龙怎么打 剑龙进阶挑战通关攻略 07-07
- PS如何保留单色? PS制作照片单色保留效果 07-07
- 领取拼多多优惠券的微信公众号,每天更省拼多多的无门槛隐藏大额优惠券 07-07
- h5封装下拉刷新 07-07