save_setsapass.asp

这是一个用ASP写的在线考试系统.特别一点 就是考试试卷有两种考法,一种为系统自动出卷,另一种是老师出卷考试.前者的实现是参考网上代码.总的来说还是很值得参考的.

<!--

****************************************************************
*
* 安装说明：
*
*   默认的后台数据管理员用户名和密码都是：admin
*   默认的验证密码都是：firekinger
*　
****************************************************************几几点说明:

	题库中的数据只作测试，不为真实，若要实施还需删除各题表，重新建表。具体过程如下：
a)	先点击题库信息浏览，删除无用题表，注意：正修改的数据题表不能删除!
b)	添加题库建表，注意：数据表名是一次性的，建了就不能修改表名
c)	在试题后台设置中，选择要修改的考试题目，点击修改否
d)	再点击添加试题数据，添加相关考试试题，注意：在判断题中，对的写“A”，错的写“B”
e)	最后浏览选择试题，检查修改您所添加的试题。
****************************************************************
*      Copyright (C) 2002 cnsohow.com All Rights Reserved
****************************************************************
-->
<!--#include file="conn2.asp"-->
<%
RoleId=request("SaveModfiyId")
if RoleId="" or isNull(RoleId) then
	RoleId=session("saLoginRole")
end if

'RoleId=1
SaNameT=request("SaName")
SaPassT=request("SaPass")
RoleT_1=request("try")
RoleT_2=request("stu")
RoleT_3=request("set")
if RoleT_1="" then
	RoleT_1=False
end if
if RoleT_2="" then
	RoleT_2=False
end if
if RoleT_3="" then
	RoleT_3=False
end if
adminSql="update admin set SANAME='"&SaNameT&"',SAPASS='"&SaPassT&"',ROLE_1="&RoleT_1&",ROLE_2="&RoleT_2&",ROLE_3="&RoleT_3&" where ID="&RoleId

set rsT=conn.execute(adminSql)
Session("sa_help")="密码设置完毕！"
response.Redirect("setsapass.asp")
conn.close
set conn=nothing
%>