用ASP开发一个在线考试程序（四） -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → 用ASP开发一个在线考试程序（四）

用ASP开发一个在线考试程序（四） 时间：2004/10/7 19:18:00来源：本站整理作者：蓝点我要评论(0): Checkuser.asp

　　在应用程序的开始，访问者键入了他们的口令之后，他们的细节被指向了一页，如sendregister.asp,来检验一下具体

的用户名和口令在数据库中是否存在。

sql_check = "select count(*) from loginuser where username ='" & _

username &"' and password = '" & useremail &"'"

Set RS_check = Application("Conn").Execute(sql_check)

If RS_check(0) < > 0 Then

Session("username") = request.form("username")

response.redirect "default.asp"

End If

If RS_check(0) = 0 Then

Session("error") = "WRONG USER NAME OR PASSWORD"

response.redirect "index.asp"

End If

　　sql命令检查一个特定的用户是否已经注册了。如果返回值为0，就表明用户名或email 无效，将用户引导回注册页。

如果是会员，就被引导到default.asp 页。这一次又用到了替换函数，以保证如果会员键入了‘ （单引号），就要用''

(双引号)来替换。

username = replace(request.form("username"),"'","''")

useremail = replace(request.form("password"),"'","''")

选择一个测验

Default.asp

　　一旦成功登录，就出现第二个界面，提供会员可以选择的测验科目的列表。在本例中，我们有HTML 和DHTML ，当然可

以增加表格以提高主题数。Default.asp 要求表格安装一个下拉菜单，其中包含主题的列表。查询数据库，从试卷的表格

中搜集两个域。

sql_papers = "select *id, topic from paper sort order by topic asc"

SET RS_papers = Application("Conn").Execute(sql_papers)

　　为了在下拉菜单中显示结果，使用以下代码：

SELECT size=1 name=select1 onchange="msec(document.form1._

select1.options[document.form1.select1.selectedIndex].value);" >

< option value="0" >Select the examination

< %Do while not RS_papers.EOF% >

< option value="< %=RS_papers("id")% >" >< %=lcase(RS_papers("topic"))% >< /OPTION >

< %

RS_papers.MoveNext

Loop

% >

　　msec函数在X值的基础上调用 redirect.asp，把查询字符串: ?x 的值作为下拉菜单中被选择的项的值。

function msec(x)

{if (x==0)

{ alert("Please select any one of the Examinations")

}

else

{ location.href="redirect.asp?section=" + x

}

}

文章评论

查看所有0条评论>>