save_db_tryinfo_set.asp

学生的在线考试系统,教师后台管理系统和试题的管理系统,验证密码为firekinger

<!--
****************************************************************
*
*                  『CnSohoW作品』 OnlineExam V1.1
*
*              版权所有: 『cnsohow』
*
*              程序制作:  CnSohoW『firekinger』
*           
*              主页地址:  http://www.cnsohow.com/
*              E-MAIL:  [e-mail]
*
****************************************************************
*      Copyright (C) 2002 cnsohow.com All Rights Reserved
****************************************************************
*
*                         【 版权声明 】
*
*     本系统只作为一种技术交流，不能用于商业，希望能给予合作。
*
****************************************************************
*
*　　如果你在使用这个程序的过程中有什么错误、意见、建议，请及时
*    告诉我，谢谢！
*
****************************************************************
*
* 安装说明：
*
*   默认的后台数据管理员用户名和密码都是：admin
*   默认的验证密码都是：firekinger
*　
****************************************************************几几点说明:

	题库中的数据只作测试，不为真实，若要实施还需删除各题表，重新建表。具体过程如下：
a)	先点击题库信息浏览，删除无用题表，注意：正修改的数据题表不能删除!
b)	添加题库建表，注意：数据表名是一次性的，建了就不能修改表名
c)	在试题后台设置中，选择要修改的考试题目，点击修改否
d)	再点击添加试题数据，添加相关考试试题，注意：在判断题中，对的写“A”，错的写“B”
e)	最后浏览选择试题，检查修改您所添加的试题。
****************************************************************
*      Copyright (C) 2002 cnsohow.com All Rights Reserved
****************************************************************
-->
<!--#include file="../include/conn2.asp"-->
<%
'on error resume next
ModifyFlagRT=Cint(trim(request("ModifyFlagR")))
tryInfoSql="select ID from tryInfo"
set rsT=conn.execute(tryInfoSql)
while not(rsT.eof)
	tryInfoId=rsT("ID")
	CheckboxNameT="OnOffC"&tryInfoId
	OnOffT=trim(request(CheckboxNameT))
	if OnOffT<>"0" then
		OnOffT="1"
	end if
	ModfiySql="UPDATE tryinfo set DB_ONOFFT='"&OnOffT&"' where ID="&tryInfoId
	'response.Write(ModfiySql)
	'response.End()
	'response.Write(ModfiySql&"<br>")
	set rsTt=conn.execute(ModfiySql)
	rsT.movenext	
wend
'response.End()
ModfiyFlagCSql="UPDATE tryinfo set DB_MODFIYFLAG='1' where DB_MODFIYFLAG='0'"
set rsT=conn.execute(ModfiyFlagCSql)
ModfiyFlagSql="UPDATE tryinfo set DB_MODFIYFLAG='0' where ID="&ModifyFlagRT
set rsT=conn.execute(ModfiyFlagSql)
'response.Write(ModfiyFlagSql)
'response.End()
Session("sa_help")="上条记录修改完毕！"

conn.close
set conn=nothing
response.Redirect("db_tryinfo_set.asp")
%>