save_db_tryinfo_set.asp

来自「这是一个用ASP写的在线考试系统.特别一点 就是考试试卷有两种考法,一种为系统」· ASP 代码 · 共 35 行

<!--#include file="conn2.asp"-->
<%

'on error resume next
ModifyFlagRT=Cint(trim(request("ModifyFlagR")))
tryInfoSql="select ID from tryInfo1"
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 tryinfo1 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 tryinfo1 set DB_MODFIYFLAG='1' where DB_MODFIYFLAG='0'"
set rsT=conn.execute(ModfiyFlagCSql)
ModfiyFlagSql="UPDATE tryinfo1 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("try_info_set.asp")
%>