在线考试系统

				
								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 User_info where Userid="& 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 "User_admin.asp"
				%>