question_del.asp

自己的毕业设计 考试系统 ASP+ACCE

<!--#include file="db.asp"-->
<%

dim i
dim j
id=request("id")
'response.write id
id=split(id,",")
i=ubound(id)

'response.write i
for j=0 to i
  sql="select * from question where id="& cint(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 ("question_admin.asp")
%>