admindatabasedel.asp

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

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.inc"-->
<%
id=request("id")
'response.write id
id=split(id,",")
i=ubound(id)
m = 0
currUser = request.Cookies("userid")
'response.Write("currUser:"&currUser&"<br>")
for j=0 to i
  
  sql="select * from question_database where QueID="& cint(id(j))
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  if not rs.eof then
 ' response.Write("set_User_ID= :"&rs("set_User_ID")&"<br>")
  if cint(rs("set_User_ID")) = cint(currUser) then

  rs.delete
  rs.update
  else
  m = m +1
  end if
  rs.close

 
  end if
next
conn.close
set  conn = nothing


if m >0 then
Response.Write("<script>alert(""有他人试题不能删除！"");location.href=""admindatabase.asp"";</script>")
else
Response.Write("<script>alert(""删除成功！"");location.href=""admindatabase.asp"";</script>")
end if

	
%>