adminknowlegesaveedit.asp

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

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


'修改科目信息
vkid = request("knowID")
vkid = split(vkid,",")
subject_knowledge=request("subject_knowledge")
subject_knowledge=split(subject_knowledge,",")
i=ubound(subject_knowledge)

for j=0 to i
know_name = trim(subject_knowledge(j))
know_ID  = vkid(j)
isEdit="select * from knowledge_info where  KnowID="&know_ID&""
set isRs=server.createobject("adodb.recordset")
isRs.open isEdit,conn,3,2

if(not isRs.eof) then
 isRs("KnowName")=know_name
 isRs.update
end if
isRs.close
set isRs= nothing
next
response.redirect "adminknowlege.asp"
%>