2024年5月30日发(作者：)
ASP网上考试系统源代码
数据库设计
首先建立一数据库，其中包括两个表：user和test，user表中有包括三个字段：
字段名称：user；字段类型：文本；字段大小：20。存储用户名
字段名称：passwd；字段类型：文本；字段大小：20。存储用户密码
字段名称：score；字段类型：数字；字段大小：整型。存储用户成绩
test表中有五个字段：
字段名称：question；字段类型：文本；字段大小：255。存储考试题目
字段名称：a；字段类型：文本；字段大小：100。存储选项A的答案
字段名称：b；字段类型：文本；字段大小：100。存储选项B的答案
字段名称：c；字段类型：文本；字段大小：100。存储选项C的答案
字段名称：d；字段类型：文本；字段大小：100。存储选项D的答案
字段名称：ans；字段类型：文本；字段大小：2。存储正确答案
二．程序原代码
下面是该系统中较核心的三段原程序，希望对开发类似系统的读者取到抛砖引玉的作用，读者也可对
其进行改进以适应自己的系统。
‘源程序，检验用户是否合法
< %@ Language=VBScript % >
< %
name=trim(request("name"))
passwd=trim(request("passwd"))
‘检查用户是否输入信息
if name< >"" and passwd< >"" then
Set conn = Object
("tion")
"driver={Microsoft Access
Driver (*.mdb)};dbq=" &
h("")
set rs= object("set")
sql= "select * from user where user='" &name&
"' and passwd='" & passwd & "'"
‘检查用户的合法性
Set rs= e(sql)
if not() then
检查用户是否已参加过考试，
若是则进行成绩查询
if rs(“score”)< >0 then
rs(“user”)&
“的考试成绩是”&rs(“score”)
else
session("pass")=1
session(“user”)=name
ct “”
end if
else
"对不起，
用户或口令不正确！！！"
end if
else
end if
% >
< HTML >
< HEAD >
< META NAME="GENERATOR"
Content="Microsoft Visual Studio 6.0" >
< TITLE >用户口令检查< /TITLE >
< /HEAD >
< BODY >
< FORM action="" id=FORM1
method=post name=FORM1 >
< P title="" > < /P >
< P title="" > < /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 >
发布者：admin，转转请注明出处：http://www.yc00.com/news/1717059774a2733396.html
评论列表（0条）