adminsubjectsaveedit.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 29 行

<!--#include file="conn.inc"-->
<%


'修改科目信息
exam_subject=request("exam_subject")


exam_subject=split(exam_subject,",")
i=ubound(exam_subject)
sql="select * from subject_info"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
for j=0 to i
subname = trim(exam_subject(j))
isEdit="select * from subject_info where SubName = '"&subname&"'"
set isRs=server.createobject("adodb.recordset")
isRs.open isEdit,conn,3,2

if(isRs.eof) then
 rs("SubName")=subname
 rs.update
 rs.movenext
end if
isRs.close
set isRs= nothing
next
response.redirect "adminsubject.asp"
%>