站内搜索
分类列表
本类阅读排行
本类推荐文章
- ASP技巧：让Len,Left,Right函数识...
- 用ASP实现IE地址栏参数的判断
- 如何实现ASP.NET网站个性化
- 如何在Asp.net中使用HtmlArea编辑...
- 用ASP.Net实现在线压缩和解压缩
- ASP实现不存在的网页就自动发送邮...
- 用ASP取出HTML里面的图片地址的函...
- asp.net跳转页面的三种方法比较
- 一个Winsock组件
- 用WinSock设计Chat程序(转)
- 在MFC应用中深入定制WebBrowser控...
- 这几天有人问关于编应.dll的问题，...
- 在Visual J++中编写ASP COM组件(转...
- 一个显示Grid的VBScript对象
- 好东西，快来看呀：（转载自中华网...
广告
案例:如何实现网上考试？
作者： 来源： 点击： 日期：2007-3-9 23:30:54
下面就是满足你设想的几个主程序，你还可以在实际应用中不断完善和扩充：
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
％>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>精彩春风之考生登录</TITLE>
</HEAD>
<BODY>
<FORM action="login.asp" id=
FORM1 method=post name=FORM1>
<P title="">＆nbsp;</P>
<P title="">＆nbsp;</P>
<P title="" align=center>考生:
<INPUT id=text1 name=name style="HEIGHT:22px; WIDTH: 103px"></P>
<P title="" align=center>密码:
<INPUT id=password1 name=passwd style="HEIGHT: 23px; WIDTH: 101px" type=password></P>
<P title="" align=center>
<INPUT id=submit1 name=submit1 type=submit value="进入 " style="FONT－SIZE: medium; FONT－STYLE: normal; FONT－VARIANT:normal; FONT－WEIGHT: bold" title=""></P>
<P title="" align=center>
</P>
</FORM>
</BODY>
</HTML>
test.asp
' 从题库中取题考试
<％@ Language=VBScript ％>
<％
if session("pass")<>1 then
response.redirect "login.asp"
else
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (＊.mdb)};
dbq="＆ Server.MapPath("exercise.mdb")
sql="select ＊ from test"
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
％>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>精彩春风之考生登录</TITLE>
</HEAD>
<BODY>
<FORM action="login.asp" id=
FORM1 method=post name=FORM1>
<P title="">＆nbsp;</P>
<P title="">＆nbsp;</P>
<P title="" align=center>考生:
<INPUT id=text1 name=name style="HEIGHT:22px; WIDTH: 103px"></P>
<P title="" align=center>密码:
<INPUT id=password1 name=passwd style="HEIGHT: 23px; WIDTH: 101px" type=password></P>
<P title="" align=center>
<INPUT id=submit1 name=submit1 type=submit value="进入 " style="FONT－SIZE: medium; FONT－STYLE: normal; FONT－VARIANT:normal; FONT－WEIGHT: bold" title=""></P>
<P title="" align=center>
</P>
</FORM>
</BODY>
</HTML>
test.asp
' 从题库中取题考试
<％@ Language=VBScript ％>
<％
if session("pass")<>1 then
response.redirect "login.asp"
else
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (＊.mdb)};
dbq="＆ Server.MapPath("exercise.mdb")
sql="select ＊ from test"
案例:如何实现网上考试？ 评论