adminknowledgedel.asp

来自「一套在线考试系统」· ASP 代码 · 共 18 行

<!--#include file="conn.asp"-->
<%
Dim id,i,j
id=trim(request("id"))
id=split(id,",")
i=ubound(id)
for j=0 to i
    sql="select * from exam_knowledge where id="&trim(id(j))
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,3,2
    if not rs.eof then
        rs.delete
        rs.update
        rs.close
    end if
next
response.redirect "adminknowledge.asp?subject="&request.form("subject")&"&msg=删除成功！"
%>