adminsubjectdel.asp

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

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